<% sql = "select top 8 man_id,man_pic,man_name from man where man_type='T' order by man_index desc" set rs = server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then for i = 1 to rs.recordcount response.Write("document.write('\n');" & vbcrlf) rs.movenext next end if rs.close set rs = nothing conn.close set conn = nothing %>