<%
dim sql2h2,rs2h2,iiu12
sql2h2="select top 25 * from 3gg_hk_link order by times desc"
set rs2h2=server.createobject("adodb.recordset")
rs2h2.open sql2h2,conn,1,1
if not rs2h2.eof then
for iiu12=1 to rs2h2.recordcount
html"
"&rs2h2("title")&""
rs2h2.movenext
next
end if
rs2h2.close
Set rs2h1= Nothing
%>