<%
dim linknum
linknum=7
set rslink=server.createobject("ADODB.recordset")
rslink.open "select top "& linknum &" * from link where logo<>'' and flage=1 order by orders",conn,1,1
if not rslink.eof then
j=0
do while not rslink.eof and j<=linknum
%>
" target="_blank">
" border="0" width="88" height="31">
<%
rslink.movenext
j=j+1
loop
end if
rslink.close
if j
<%
next
end if
%>
