Product list

<% Session.LCID = 1033 Set Conn = Server.CreateObject("ADODB.Connection") DBPath = "DBQ=" & server.mappath("/asp/shop.mdb") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};"&DBPath strSQL ="SELECT Varer.ProductNumber, Varer.ProductName, Varer.Weight FROM Varer WHERE ((Varer.ProductNumber)=3430 Or (Varer.ProductNumber) = 3440 Or (Varer.ProductNumber) = 3640 Or (Varer.ProductNumber) = 3630 Or (Varer.ProductNumber) = 3740 Or (Varer.ProductNumber) = 3730) ORDER BY Varer.ProductNumber;" Set rs = Conn.execute(strSQL) Do Response.write "" Response.write "" Response.write "" Response.write "" rs.movenext() loop while not rs.EOF rs.close() Conn.Close Set conn = Nothing %>
Extender overview
Nr. Product
Please enquire for prices.
" & rs("productnumber") &"" & rs("productname") & "

<% Session.LCID = 1033 Set Conn = Server.CreateObject("ADODB.Connection") DBPath = "DBQ=" & server.mappath("/asp/shop.mdb") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};"&DBPath strSQL ="SELECT Varer.ProductNumber, Varer.ProductName, Varer.Weight FROM Varer WHERE (((Varer.ProductNumber)>=10000 And (Varer.ProductNumber)<10020))ORDER BY Varer.ProductNumber;" Set rs = Conn.execute(strSQL) Do Response.write "" Response.write "" Response.write "" Response.write "" rs.movenext() loop while not rs.EOF rs.close() Conn.Close Set conn = Nothing %>
Trigger spray bottle for manual dosing
Nr. Product
Please enquire for prices.
" & rs("productnumber") &"" & rs("productname") & "