Chandler's Medical - Bathroom Aides

<%@LANGUAGE="VBSCRIPT"%> <% Dim rs1__MMColParam rs1__MMColParam = "bath" If (Request.QueryString("bath") <> "") Then rs1__MMColParam = Request.QueryString("bath") End If %> <% Dim Conn, rs1 Set Conn = Server.CreateObject("ADODB.Connection") Set rs1 = Server.CreateObject("ADODB.Recordset") DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" DSNName = DSNName & Server.MapPath("/access_db/products.mdb") Conn.Open DSNName sql = "SELECT * FROM store WHERE prodCategory = '" + Replace(rs1__MMColParam, "'", "''") + "' ORDER BY prodID ASC" rs1.CursorType = 0 rs1.CursorLocation = 2 rs1.LockType = 1 rs1.Open sql, Conn, 3, 3 rs1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs1_numRows = rs1_numRows + Repeat1__numRows %> Chandler's Medical - Bathroom Aides

Bathroom Aides

<% While ((Repeat1__numRows <> 0) AND (NOT rs1.EOF)) %>


	<%=(rs1.Fields.Item("prodName").Value)%>
" alt="Product Image" name="imgHolder" border="2" id="imgHolder" style="" />	<%=(rs1.Fields.Item("prodDescription").Value)%>
<%=(rs1.Fields.Item("prodNumber").Value)%>	<%=(rs1.Fields.Item("prodDetails").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs1.MoveNext() Wend %>

Chandler's Medical Supply Inc. 7425 Annapolis Road Landover Hills Maryland 20784
Phone: 301-577-9001 Fax: 301-577-0893

[ HOME ] [ STORE ] [ CONTACT ] [ LOCATION ]

<% rs1.Close() Set rs1 = Nothing %>