Chandler's Medical - Adult Diapers

<%@LANGUAGE="VBSCRIPT"%> <% Dim rs1__MMColParam rs1__MMColParam = "diapers" If (Request.QueryString("diapers") <> "") Then rs1__MMColParam = Request.QueryString("diapers") 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 - Adult Diapers

Diabetic Shoes

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


	<%=(rs1.Fields.Item("prodName").Value)%>
" alt="Product Image" name="imgHolder" id="imgHolder" style="" />	<%=(rs1.Fields.Item("prodDescription").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 Rd.
    Landover Hills,
    Maryland 20784

    Phone:
    301-577-9001

Fax:
301-577-0893

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

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