<%    
 dim cn,rs,driver_name  
 driver_name="Provider=MSDAORA.1;Password=pass;User ID=user;Data Source=afis;Persist Security Info=True"  
 set cn = server.CreateObject("adodb.connection")  
 cn.open driver_name  
 set rs=server.CreateObject("adodb.recordset")
 rs.open "select * from table",cn,3,1
 do while not rs.eof
    response.write rs("field")
    rs.movenext
 loop 
%>