|
MKSCollectibles.com
|
|
Welcome to the MKS Collectibles web site. Browse our collectibles for sale by choosing from the categories menu to the right.
|
Search Items for Sale | E-mail Us
©2003 MKS Collectibles
|
|
Categories:
|
-
All Categories
<%
Response.expires=0
CALL itemDig(0)
SUB itemDig(parent)
DIM conn
DIM result
DIM result2
DIM i
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={MySQL}; SERVER=localhost; DATABASE=mkscollectibles_com; UID=mkscollectibles; PWD=gip20per"
set result = Server.CreateObject("ADODB.RecordSet")
set result2 = Server.CreateObject("ADODB.RecordSet")
set result = conn.Execute("SELECT id, category FROM categories WHERE parent = " & parent & " ORDER BY category")
IF NOT result.EOF THEN
WHILE NOT result.EOF
set result2 = conn.Execute("SELECT * FROM inventory WHERE category = " & result("id"))
Response.write("- ")
IF NOT result2.EOF THEN
Response.write("")
END IF
Response.write(result("category"))
IF NOT result2.EOF THEN
Response.write("")
END IF
Response.write("
")
set result2 = conn.Execute("SELECT id FROM categories WHERE parent = " & result("id"))
IF NOT result2.EOF THEN
Response.write("")
CALL itemDig(result("id"))
Response.write(" ")
END IF
result.MoveNext()
WEND
END IF
END SUB
%>
|
|