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

Stack-On Products

Stack-On Products is a leading American manufacturer of Tool Storage Systems, Accessories and Security Products offering a diverse line of tool storage products to meet the needs of mechanics, maintenance personnel, trades persons, homeowners and hobbyists throughout the world. In addition, Stack-On offers Security Products ranging from fire resistant waterproof safes to small personal safes. With over 35 years of experience Stack-On has been serving customers in Europe and around the world with innovative, value oriented products.

Connect on