Dim rs
set rs = server.createObject("ADODB.Recordset")
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.Open "select empno,ename,hiredate,sal from emp where deptno=10",conn
do while not rs.EOF
Response.write("
" & rs.fields("empno").value & " " & rs.fields("ename").value & " " & rs.fields("hiredate").value & " " & rs.fields("sal").value & "
")
rs.MoveNext
loop
rs.Close
