Dim objConn, objRs
Set objConn = Server.CreateObject("ADODB.Connection")
Dim strConnection
strConnection="PROVIDER=OraOLEDB.Oracle;DATA SOURCE=beq-local;USER ID=scott;PASSWORD=tiger;PLSQLRSet=1"
objConn.Open strConnection
Set objRs = objConn.Execute("select * from table1")
Do While Not objRs.EOF
...
objRs.MoveNext
Loop
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing