<html>
<body>
<%
set
con=server.CreateObject("ADODB.connection")
con.Open "dsn=sql123;database=test","test","test"
set
rs=server.CreateObject("ADODB.recordset")
rs.Open
"select * from sample",con,1,3
while(not rs.EOF)
for i=0 to rs.RecordCount
Response.Write rs(i) & ":"
next
Response.Write
"<br>"
rs.MoveNext()
wend
%>
</body>
</html>