%@ Language=VBScript %>
<%
CID = Request.querystring("CID")
MainID = Request.querystring("MainID")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "GPALSDB","Admin",""
StrSql = "SELECT * FROM Tools "
StrSql = StrSql & "WHERE cID = " & CID & " "
Set RS = Conn.Execute(StrSql)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "GPALSDB","Admin",""
StrSql = "SELECT * FROM Tools_Category "
StrSql = StrSql & "WHERE cID = " & CID & " "
Set RS2 = Conn.Execute(StrSql)
%>
Benches
|
Park
Bench Family (Frame
Finishes) |
|
|
<%DO WHILE NOT RS.EOF%>
|
Product Image
|
Item #
|
Description
|
|
|
|
|
|
|
|
N/A
|
Antique Pewter Finish
|
|
|
N/A
|
Black Finish
|
|
|
N/A
|
Grecian Bronze
|
|
|
N/A
|
Hunter Green Finish
|
|
|
N/A
|
Mocha Tan Finish
|
|
|
N/A
|
Rustic Bronze Finish
|
|
|
N/A
|
Sandcastle Ivory Finish
|
|
|
N/A
|
Verdigris Finish
|
|