<%@ LANGUAGE = VBScript %>

<% Response.Buffer=False %>

<!-- #include virtual="/Adovbs.inc" -->

<%

Server.ScriptTimeOut = 300

strConnect = "dsn=test1;database=test1;uid=sa;pwd=;"

strSQL="Select col3, col4, col5 From ta1 Where col2<161"

On Error Resume Next

set objRecord=Server.CreateObject("ADODB.Recordset")

objRecord.open strSQL, strConnect

If Err.Number<>0 Then

Response.Write "A problem occurred while querying!<BR>"

End If

DO UNTIL objRecord.eof

FOR i = 0 to objRecord.fields.count -1

fieldvalue=objRecord(i)

response.write fieldvalue

Next

objRecord.movenext

LOOP

objRecord.close

set objRecord=nothing