<%
Sub GetProduct
dim con
dim rs
strDBPath =request.servervariables("appl_physical_path")
set con=server.createobject("adodb.connection")
conStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & strDBPath & "zips.mdb"
con.ConnectionString = conStr
con.open
Set rst=Server.CreateObject("ADODB.recordset")
strProductChoices = ""
' Get the data for the Product pulldown
set rst=server.createobject("adodb.recordset")
strSQL = "select * from products"
set rst=con.execute(strSQL)
'Now get all of the Product codes from the result of the query and put them in the list
do while not rst.eof
strProductChoices = strProductChoices & " " & ""
rst.movenext
loop
response.write(strProductChoices)
rst.close
End Sub
%>
Locate a WOOD LOGIC Dealer by Zipcode