<%@ Language=VBScript %>
<html>
<head>
<title>Oracle Test</title>
</head>
<body>
<center>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=OraOLEDB.Oracle;Data Source=neptune;User ID=xxxxxx;Password=xxxxxx"
Set objRs = objConn.Execute("SELECT * FROM s_emp")

Response.Write "<table border=1 cellpadding=4>"
Response.Write "<tr>"

For I = 0 To objRS.Fields.Count - 1
Response.Write "<td><b>" & objRS(I).Name & "</b></td>"
Next

Response.Write "</tr>"

Do While Not objRS.EOF
Response.Write "<tr>"

For I = 0 To objRS.Fields.Count - 1
Response.Write "<td>" & objRS(I) & "</td>"
Next

Response.Write "</tr>"

objRS.MoveNext
Loop

Response.Write "</table>"

objRs.Close
objConn.Close
%>
</center>
</body>
</html>