<%
If Request.QueryString("prodid")<>"" Then
If Len(cat)<3 AND IsNumeric(Request.QueryString("prodid")) Then
intProdid=Request.QueryString("prodid")
Else
Response.Redirect("shop.asp")
End IF
Else
Response.Redirect("shop.asp")
End If
Dim conn
Call OpenDB()
Dim productid, catid, productname, productdesc, prodphoto, prodthumb, prodprice, prodxtra, catname
productid=0
catid=0
productname=""
productdesc=""
prodphoto=""
prodthumb=""
prodprice="0.00"
prodxtra=""
catname = "Empty"
strSQL = "SELECT productid, p.catid, productname, productdesc, prodphoto, prodthumb, prodprice, prodxtra, catname, instore FROM product p LEFT JOIN category c on p.catid=c.catid ORDER BY productname ASC "
Set rsProd = Server.CreateObject("ADODB.Recordset")
rsProd.Open strSQL, conn
IF Not rsProd.EOF THen
noArray=0
arProd=rsProd.GetRows()
Else
noArray=1
End If
rsProd.Close
strSQL = "SELECT DISTINCT c.catid, catname, catphoto FROM category c INNER JOIN product p on c.catid=p.catid ORDER BY catname ASC"
rsProd.Open strSQL, conn
If Not rsProd.EOF Then
noCats=0
arCat = rsProd.GetRows()
Else
noCats=1
End If
rsProd.Close
If noArray=0 THen
intProdid = CINT(Request.QueryString("prodid"))
For i = 0 to UBOUND(arProd, 2)
If intProdid = arProd(0,i) THen
productid= arProd(0,i)
catid= arProd(1,i)
productname= arProd(2,i)
productdesc= arProd(3,i)
prodphoto= arProd(4,i)
prodthumb= arProd(5,i)
prodprice= arProd(6,i)
prodxtra= arProd(7,i)
catname= arProd(8,i)
instore = arProd(9,i)
End If
Next
End If
%>
Shop Shirts, Music and More - Stephen Speaks
