<%
varCategory = request.querystring("Category")
%>
<%
strSQL = "SELECT * FROM SubCategory WHERE CategoryID = " &varCategory &" Order by SubCategory"
'response.write strSQL
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL, objConn
ON ERROR RESUME NEXT
objRS.MoveFirst
Do While Not objRS.EOF
%>
|
&SubCategory=<%=objRS("SubCategoryID")%>"><%
response.write objRS("SubCategory")
%>
|
<%
objRS.MoveNext
Loop
objRS.Close
Set objRS=nothing
%>
Buy With Confidence
using our Secure Servers
with 128 BIT encryption. |
|
<%
varNext = request.querystring("Next")
varNextNumber = 0
varNextNumber = request.querystring("NextNumber") + 1
'response.write varNextNumber
varMyNumber = request.querystring("ProductID")
'response.write varMyNumber
varMove0 = request.querystring("Move")
IF varMove0 = "" or varMove0 = "0" THEN
varMove = "0"
Else
varMove = varMove0
End If
'response.write varMove
' THIS IS FOR THE IMAGE FUNCTION FURTHER DOWN
'============================================
dim fso
Set fso=Server.CreateObject("Scripting.FileSystemObject")
IF varNext = "Yes" Then
strSQL = "SELECT * FROM Products WHERE CategoryID = " &varCategory &" AND display='yes' order by ProductCode"
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL, objConn
objRS.Move varNextNumber -1
ELSE
IF varMyNumber = "0" THEN
strSQL = "SELECT * FROM Products WHERE CategoryID = " &varCategory &" AND display='yes' order by ProductCode"
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL, objConn
objRS.MoveFirst
ELSE IF varMyNumber = "" THEN
strSQL = "SELECT * FROM Products WHERE CategoryID = " &varCategory &" AND display='yes' order by ProductCode"
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL, objConn
objRS.Move varMove
ELSE
strSQL = "SELECT * FROM Products WHERE CategoryID = " &varCategory &" AND ProductID=" &varMyNumber &" AND display='yes' order by ProductCode"
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL, objConn
objRS.MoveFirst
END IF
END IF
END IF
'response.write strSQL
'response.write objRS("ProductID")
' FUNCTION TO STOP ERRORS WHEN THERE IS NO NEXT 9
If objRS.EOF Then
response.write "
Sorry - There are no more products in this category.
"
response.write "Please click your back button or select another category
"
objRS.Close
Set objRS=nothing
objConn.Close
' CLOSE THE IMAGE FUNCTION
'=========================
Set fso = nothing
response.end
ELSE
END IF
varPhotoNumber = objRS("ProductID")
%>
<%=objRS("Description")%> |
 |
|
','<%=objRS("Description")%>')">
 a.JPG" width="319" style="border: 1px solid #000000" alt="CLICK ME to view a bigger photo">
<%=objRS("Description")%> <%=objRS("Notes")%> Available in
<%
varColour = objRS("Colour")
varColour = replace(varColour, "," , " ")
response.write varColour
%>
|
<%
strImgPath = "e:\domains\s\spanglecat.co.uk\user\htdocs\Products\" & objRS("ProductID") &"b.jpg"
'strImgPath = "D:\s\p\spanglecat\www\Products\" & objRS("ProductID") &"b.jpg"
blnImgExists = fso.FileExists(strImgPath)
'response.write strImgPath
'response.write blnImgExists
IF blnImgExists = "True" THEN
%>
b.jpg','<%=objRS("Description")%>')">
b.JPG" width="103" ONMOUSEOVER="hiLite('Pic000','nav3')" ONMOUSEOUT="hiLite('Pic000','nav3a')" style="border: 1px solid #000000" alt="CLICK ME to view a bigger photo">
<%
ELSE
END IF
%>
<%
strImgPath = "e:\domains\s\spanglecat.co.uk\user\htdocs\Products\" & objRS("ProductID") &"c.jpg"
'strImgPath = "D:\s\p\spanglecat\www\Products\" & objRS("ProductID") &"c.jpg"
blnImgExists = fso.FileExists(strImgPath)
'response.write strImgPath
'response.write blnImgExists
IF blnImgExists = "True" THEN
%>
c.jpg','<%=objRS("Description")%>')">
c.JPG" width="103" ONMOUSEOVER="hiLite('Pic000','nav4')" ONMOUSEOUT="hiLite('Pic000','nav4a')" style="border: 1px solid #000000" alt="CLICK ME to view a bigger photo">
<%
ELSE
END IF
%>
<%
strImgPath = "e:\domains\s\spanglecat.co.uk\user\htdocs\Products\" & objRS("ProductID") &"d.jpg"
'strImgPath = "D:\s\p\spanglecat\www\Products\" & objRS("ProductID") &"d.jpg"
blnImgExists = fso.FileExists(strImgPath)
'response.write strImgPath
'response.write blnImgExists
IF blnImgExists = "True" THEN
%>
d.jpg','<%=objRS("Description")%>')">
d.JPG" width="103" ONMOUSEOVER="hiLite('Pic000','nav5')" ONMOUSEOUT="hiLite('Pic000','nav5a')" style="border: 1px solid #000000" alt="CLICK ME to view a bigger photo">
<%
ELSE
END IF
%>
<%
varAuthorised = Request.Cookies("SpangleCat")("Authorised")
'response.write varAuthorised
If varAuthorised = "True" Then
varPrice = objRS("TradePrice")
Else
varPrice = objRS("CostPrice")
End If
%>
|
Price: £<%=varPrice%>
<%
varSpecial = objRS("SpecialPrice")
If varSpecial = "" Then
Else
response.write "In Special Offers this item is only £" &varSpecial &""
End If
%>
|
<%
'response.write objRS("Stock")
varStockLeft = objRS("Stock")
IF objRS("Stock") < 1 Then
Response.Write "
Sorry this item is currently out of stock."
Else
%>
|
<%
End If
%>
<%
varDisplay10 = 0
strSQL = "SELECT * FROM Products WHERE CategoryID = " &varCategory &" AND display='yes' order by ProductCode"
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL, objConn
'response.write strSQL
IF objRS.EOF = "True" THEN
Response.write "Sorry no more products available
"
ELSE
END IF
%>
<%
varMyNumber = request.querystring("ProductID")
'response.write varMyNumber
response.write ""
objRS.Move varMove
varProductID = objRS("ProductID")
Do While Not varDisplay10 = "9"
If objRS.EOF Then
%>
<% If varMove >= 9 Then %>
<
PREVIOUS 9
•
<% End If %>
|
|
