<%@ Page CompilerOptions='/R:"C:\Program Files\Microsoft.NET\OracleClient.Net\System.Data.OracleClient.dll"' Language="vb" %>
<%@ import Namespace="System.Data.OracleClient" %>
<%@ Import Namespace="System.Data" %>
<%@ import Namespace="System.XML" %>
<script runat="server">
 
    Sub Page_Load(Sender As Object, E As EventArgs)
 
        Dim oOracleConn As OracleConnection = New OracleConnection()
        Dim oraODR as System.Data.OracleClient.OracleDataReader
            Dim oraConn As System.Data.OracleClient.OracleConnection
            Dim oraCMD as System.Data.OracleClient.OracleCommand
        Try
            oOracleConn.ConnectionString = "User ID=a; Data Source=b; Password=c;"
            oOracleConn.Open()
            Response.write("Connected to Oracle.")
            oraCMD = New System.Data.OracleClient.OracleCommand()
                oraCMD.Connection = oOracleConn
                oraCMD.CommandText = "SELECT tid, descrption FROM TSTAT;"
                oraODR = oraCMD.ExecuteReader()
        Catch
        Finally
        End Try
   End Sub
 </script>