AHMA / USA Pavilion International Hardware Fair / Practical World

<%@ Language=VBScript %> <% Response.Buffer=True%> <% Set conn = Server.CreateObject("ADODB.Connection") ConnStr = "DSN=ahma;UID=Admin" Conn.Open ConnStr 'Response.Write "In Here" 'Response.End %> <% strPageID = "GPOindex" mySQL = "SELECT * FROM MetaTags WHERE PageName = '" mySQL = mySQL + strPageID mySQL = mySQL + "' AND Type = 1 " Set RS1 = Server.CreateObject("ADODB.RecordSet") 'Response.Write "
" + mbrSQL 'Response.End set RS1 = Conn.Execute(mySQL) strTitle = "American Hardware Manufacturers Association (AHMA)" strKeywords = "Hardware, Manufacturers, Association, American, AHMA, Hardlines" strDescription = "The American Hardware Manufacturers Association mission is to be the worlds leading resource on and about the U.S. manufacturing segment of the worldwide consumer hardware/home improvement marketplace." do Until RS1.EOF strTitle = RS1("Title") strKeywords = RS1("Keywords") strDescription = RS1("Description") RS1.movenext Loop %> <% conn.Close Set conn = Nothing %> <% Set conn = Server.CreateObject("ADODB.Connection") ConnStr = "DSN=ahmaNOTD;UID=Admin" Conn.Open ConnStr %> <% mySQL = "SELECT * FROM NewsOfTheDay ORDER BY ID DESC " 'Response.Write mySQL 'Response.End if mySQL <> "" then ' Response.Write " I made it into the program and here is my SQL: " ' Response.Write "
" + mySQL ' Response.End Set RSdata = Server.CreateObject("ADODB.RecordSet") 'Response.Write "
" + mySQL 'Response.End set RSdata = Conn.Execute(mySQL) end if If NOT RSdata.EOF then strDept = RSdata("ID") End If 'Response.Write "
Dept " & strDept 'Response.End %> <% conn.Close Set conn = Nothing %> AHMA / USA Pavilion International Hardware Fair / Practical World

LA-CO^® / Markal^®

LA-CO® / Markal® is a manufacturer of high performance industrial markers including liquid paint markets, solid paint markers and industrial felt-tip ink markers that can be used on almost any surface in cold to hot. Also available at Markal®, Thermomelt® temperature indicating sticks for accurate, fast, low-cost method for measuring surface temperatures.

Connect on