Upper Peninsula Manufacturer's Directory

<%option explicit%> Upper Peninsula Manufacturer's Directory <% dim mfgRS, conn, mfgSQL, cntyRS, proRS, cntySQL, proSQL set conn = server.createobject("ADODB.connection") 'conn.open "DSN=mfgdirectory" Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=../database/mfgdirectory.mdb;" set mfgRS = server.createobject("ADODB.recordset") mfgSQL = "Select Company FROM MFG Group By Company Order By Company" mfgRS.Open mfgSQL, conn set cntyRS = server.createobject("ADODB.recordset") cntySQL = "Select county FROM MFG Group By county Order By county" cntyRS.Open cntySQL, conn set proRS = server.createobject("ADODB.recordset") proSQL = "Select product FROM MFG Group By product Order By product" proRS.Open proSQL, conn %>