[CODE]<%response.Write "document.write('<link href=1.css rel=stylesheet type=text/css>');"%>
<!--#include file = "public.asp"-->
<%response.Write "document.write('<div align=center>');"
if request("scroll")="1" then Response.Write "document.write('<MARQUEE direction=up onmouseout=start() onmouseover=stop() scrollAmount=3 scrollDelay=200>');"
Set rs=server.createobject("ADODB.RECORDSET")
if request("all")="0" then
rs.open "Select top "&request("count")&" * From friend where sitelogo<>'' order by id desc" ,Conn,1,1
else
rs.open "Select top "&request("count")&" * From friend where sitelogo<>'' and show=1 order by id desc" ,Conn,1,1
end if
linkcount=0
do while not rs.eof
response.Write "document.write('<a href="&rs("URL")&" target=_blank><img src="&rs("sitelogo")&" width=88 height=31 border=0></a>');"
if request("up")="0" then
response.Write "document.write('<br><br>');"
else
response.Write "document.write(' ');"
linkcount=linkcount+1
if linkcount mod request("col")=0 then response.Write "document.write('<br><br>');"
end if
rs.movenext
loop
rs.close
set rs=nothing
if request("scroll")="1" then Response.Write "document.write('</MARQUEE>');"
response.Write "document.write('</div>');"
%>[/CODE]