>>data.asp
<!--#include file=CONN.ASP-->
<script>
<%
dim p,i
p=""
i=0
dim rs
set rs=Server.CreateObject("adodb.recordset")
sql="select userid from user"
rs.open sql,conn
Do while not rs.eof
i=i+1
p=p&rs("userid")
if i>10 then exit do
rs.movenext
Loop
rs.close
set rs=nothing