<%
Randomize()
intRandomNumber = Int (1000*Rnd)+1
qSpecial = "SELECT Rnd(" & -1 * (intRandomNumber) & "*[Number]), * FROM qrySpecials"
qSpecial = qSpecial & " ORDER BY 1"
Set objSpecials = objConn.Execute(qSpecial)
IF NOT objSpecials.EOF THEN
%>
RESELLER'S
SPECIAL
<%
IF NOT IsNull(objSpecials("PicURL")) AND NOT objSpecials("PicURL") = "" THEN
Response.Write "
" & objSpecials("Field2") & "
"
imgToShow = objSpecials("PicURL")
tmbWidth = 175
tmbInterpolation = 1
tmbSharpen = 0
tmbRotate = 0
imgToShowPath = Server.MapPath(imgToShow)
'tmbHeight = (CInt(objSpecials("Height")) / CInt(objSpecials("Width"))) * tmbWidth
tmbHeight = (INT(objSpecials("Height")) / INT(objSpecials("Width"))) * tmbWidth
IF tmbHeight > 200 THEN
tmbHeight = 200
'tmbWidth = (CInt(objSpecials("Width")) / CInt(objSpecials("Height"))) * tmbHeight
tmbWidth = (INT(objSpecials("Width")) / INT(objSpecials("Height"))) * tmbHeight
END IF
'Response.Write ""
%>" style="text-decoration:none">
<%
Response.Write "![]() "
Response.Write ""
END IF
Response.Write "
" & objSpecials("Price1") & ""
%>
<%
ELSE
%>
There is no special offer
at the moment.
<%
END IF
Set objSpecials = Nothing
%>
|
|
|
