%
SessionID=Session.SessionID
SQLString="SELECT Basket.*, Product.*, Basket.SessionID FROM Basket INNER JOIN Product ON Basket.ProductID = Product.Product_ID WHERE (((Basket.SessionID)='"& SessionID & "'))"
Set LogobjRec = server.createobject("ADODB.Recordset")
LogobjRec.ActiveConnection = db
LogobjRec.open SQLString
IF LogobjRec.BOF=false THEN
LogobjRec.MoveFirst
END IF
NewRow=FALSE
Total=0
Do While LogobjRec.EOF=FALSE
ProdID=LogObjRec("Product_ID")
Quantity=LogObjRec("Quantity")
Price = LogobjRec("Price")
Total=Total+(Price*Quantity)
Items=Items+Quantity
LogObjRec.MoveNext
LOOP
if Items=0 THEN
Total=0
END IF
LogobjRec.Close
%>
<% Search=Request.QueryString("Search")
Set LogobjRec = server.createobject("ADODB.Recordset")
SQLString= "SELECT Product.*, Product.Display "
SQLString = SQLString & "FROM Product WHERE Temp_Delete='No' and (((Product.Display)='Yes'))"
'response.write SQLString
iPageSize = 4
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
LogobjRec.PageSize = iPageSize
LogobjRec.CursorLocation=3
LogobjRec.LockType=3
LogobjRec.CursorType=3
LogobjRec.open SQLString, db, 1
iPageCount = LogobjRec.PageCount
If iPageCurrent > iPageCount Then
iPageCurrent = iPageCountEnd
End If
If iPageCurrent < 1 Then
iPageCurrent = 1
End If
If iPageCount = 0 Then %>