<%
dim rs,Newdate,i,j
Newdate=date()
sET RS=SERVER.CreateObject("adodb.recordset")
%>
<%
rs.open "select top 1 imgurl,bannertype, ljdz,bannerts,linktarget from banner where bs=47 and Enable=1 order by updatedate desc",conn,1,1
j=rs.recordcount
for i=1 to j
If rs("bannertype")=1 Then
Response.Write""
Else
Response.Write""
End If
rs.movenext
next
rs.close
do while j<1
Response.Write("")
j=j+1
loop
%>