Here is an example code for connecting an Oracle 8i database and listing
all staffs in staffs table. Enjoy it :)
<html>
<head>
</head>
<body>
<%
Dim con
Dim rst
Dim strSQL
Dim ax
Dim arst
Dim strConn
Dim strPersNum
' Declare the Open method constants
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = 1
Set con = Server.CreateObject("ADODB.Connection")
'OLE DB connection
strConn = "Provider=MSDAORA; Data Source={your oracle data source name};
User ID={your oracle user id}; Password={your oracle password}"
con.Open strConn
strSQL = " select persnumber, name, surname from staffs"
Set rst = con.Execute(strSQL)
If rst.EOF = False Then
arst = rst.GetRows
rst.Close
Set rst = Nothing
con.Close
Set con = Nothing
for ax = 0 to ubound(arst,2)%>
<div align="left">
<br>
<table border="0" width="227">
<tr>
<td width="59" align="left"><strong><font face="Arial"
size="2">Staff ID</font></strong></td>
<td width="10" align="left"><strong><font face="Arial"
size="2">:</font></strong></td>
<td width="138" align="left"><b><font size="2" face="Arial"><%=arst
(0,ax)%></font></b></td>
</tr>
<tr>
<td width="59" align="left"><strong><font face="Arial"
size="2">Name</font></strong></td>
<td width="10" align="left"><strong><font face="Arial"
size="2">:</font></strong></td>
<td width="138" align="left"><b><font size="2" face="Arial"><%=arst
(1,ax)%></font></b></td>
</tr>
<tr>
<td width="59" align="left"><strong><font face="Arial"
size="2">Surname</font></strong></td>
<td width="10" align="left"><strong><font face="Arial"
size="2">:</font></strong></td>
<td width="138" align="left"><b><font size="2" face="Arial"><%=arst
(2,ax)%></font></b></td>
</tr>
<tr>
<td width="227" colspan="3" align="left"><hr></td>
</tr>
<tr>
<td width="227" colspan="3" align="right"></td>
</tr>
</table>
</div>
<%next
else
rst.Close
Set rst = Nothing
con.Close
Set con = Nothing
%>
</div>
</body>
</html>
View Cart
