Buy With Confidence
using our Secure Servers
with 128 BIT encryption.
 |
|
<%
' THIS IS FOR THE IMAGE FUNCTION FURTHER DOWN
'============================================
dim fso
Set fso=Server.CreateObject("Scripting.FileSystemObject")
varNext = request.querystring("Next")
'response.write varNext
varNextNumber = 0
varNextNumber = request.querystring("NextNumber") + 1
'response.write varNextNumber
IF varNext = "Yes" Then
strSQL = "SELECT * FROM Products WHERE Featured = Yes AND display='yes' "
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL, objConn
objRS.Move varNextNumber -1
varProductIDNumber = objRS("ProductID")
else
IF request.querystring("ProductID") = "" Then
varProductId = varIdLst(1)
Response.Redirect "?ProductID=" &varProductId
Else
varProductId = request.querystring("ProductID")
End If
strSQL = "SELECT * FROM Products WHERE Featured = Yes AND ProductID = " &varProductID &" AND display='yes'"
'response.write strSQL
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL, objConn
objRS.MoveFirst
end if
%>
<%=objRS("Description")%> |
 |
|
','<%=objRS("Description")%>')">
 a.JPG" width="319" style="border: 1px solid #000000">
<%=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"
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">
<%
ELSE
END IF
%>
<%
strImgPath = "e:\domains\s\spanglecat.co.uk\user\htdocs\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">
<%
ELSE
END IF
%>
<%
strImgPath = "e:\domains\s\spanglecat.co.uk\user\htdocs\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">
<%
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%> |
<%
'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
%>
<%
strSQL = "SELECT * FROM Products WHERE Featured = Yes"
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
%>
<%
response.write ""
objRS.MoveFirst
Do While NOT objRS.EOF
response.write "| "
'PUT TABLE RESULTS HERE
varAuthorised = Request.Cookies("SpangleCat")("Authorised")
'response.write varAuthorised
If varAuthorised = "True" Then
varPrice = objRS("TradePrice")
Else
varPrice = objRS("CostPrice")
End If
%>
<%
response.write " | "
IntCount = IntCount+1
if IntCount=3 Then
Response.Write " "
IntCount = 0
End If
%>
<%
objRS.MoveNext
Loop
objRS.Close
Set objRS=nothing
ObjConn.close
' CLOSE THE IMAGE FUNCTION
'=========================
Set fso = nothing
%>
|
|
