<%@ 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

DMT® Diamond Machining Technology

DMT® Diamond Machining Technology manufactures a full range of precision engineered diamond and unbreakable ceramic sharpeners, honing cones and files that meet the needs of professionals and do-it-yourselfers alike. Retailers will appreciate convenient wall and counter merchandisers available to maximize space and sales opportunities! Product packages are available with German, French, Spanish or Italian translations. DMT’s USA produced products are designed to provide years of consistent performance and reliable service.

For more information contact: DMTCustomerCare@dmtsharp.com


Follow Us on Connect on Sign Up for AHMA Updates

© 2010 American Hardware Manufacturers Association. All Rights Reserved.