<% 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 %>
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
%>