http://support.microsoft.com/default.aspx?scid=kb;KO;193225
< %@ Language=VBScript %>
< html>
< head>
< title>Oracle Test
< /head>
< body>
< center>
< %
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=MSDAORA;Data Source=
Set objRs = objConn.Execute("SELECT * FROM DEMO.EMPLOYEE")
Response.Write ""
Response.Write ""
For I = 0 To objRS.Fields.Count - 1
Response.Write ""
Next
Response.Write ""
Do While Not objRS.EOF
Response.Write ""
For I = 0 To objRS.Fields.Count - 1
Response.Write ""
Next
Response.Write ""
objRS.MoveNext
Loop
Response.Write "
| " & objRS(I).Name & " |
| " & objRS(I) & " |
objRs.Close
objConn.Close
%>
< /center>
< /body>
< /html>
Posted by 홍반장
