% If Trim(Request.Form("hidMode")) = "1" Then CurrentAuctionHeight=450 CurrentAuctionInnerHeight=560 MakePastAuctionVisible="False" MakeCurrentAuctionVisible="True" ElseIf Trim(Request.Form("hidMode")) = "2" Then PastAuctionHeight=430 PastAuctionInnerHeight=560 MakePastAuctionVisible="True" MakeCurrentAuctionVisible="False" ElseIf Trim(Request.Form("hidMode")) = "0" Then CurrentAuctionHeight=180 CurrentAuctionInnerHeight=300 PastAuctionHeight=180 PastAuctionInnerHeight=300 MakePastAuctionVisible="True" MakeCurrentAuctionVisible="True" Else CurrentAuctionHeight=450 CurrentAuctionInnerHeight=560 MakePastAuctionVisible="False" MakeCurrentAuctionVisible="True" End If %>
|
|||
|
<%
Set pRS = Server.CreateObject("ADODB.Recordset")
sqlString = "SELECT AdvertiseManager_ID,AdvertiseManager_LinkName,AdvertiseManager_GraphicFile FROM BigScreenBiz_AdvertiseManager WHERE AdvertiseManager_AdType =1 and AdvertiseManager_Featured=1 and AdvertiseManager_Active = 1 ORDER BY AdvertiseManager_SortNumber "
pRS.Open sqlString,objConn
while not pRS.Eof
%>
" target="_blank"> |
|||
|
<%
Set pRS = Server.CreateObject("ADODB.Recordset")
sqlString = "SELECT AdvertiseManager_ID,AdvertiseManager_LinkName,AdvertiseManager_GraphicFile FROM BigScreenBiz_AdvertiseManager WHERE AdvertiseManager_AdType =1 and AdvertiseManager_Featured=0 ORDER BY AdvertiseManager_SortNumber "
pRS.Open sqlString,objConn
while not pRS.Eof
%>
" target="_blank"> |
|||