Buy With Confidence
using our Secure Servers
with 128 BIT encryption. |
|
Here are a few selected Special Offers...
for more info & to buy click on the image.
<%
strSQL = "SELECT * FROM Products WHERE SpecialOffer = True "
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
%>
<%
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
%>
|
|
