<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<%
Dim strConnection as String = "PROVIDER=OraOLEDB.Oracle;DATA SOURCE=xxx;USER ID=xxx;PASSWORD=xxx;PLSQLRSet=1";
data_src.text = strConnection
Dim objConnection as New SqlConnection(strConnection)
try
objConnection.Open()
con_open.text="Connection opened successfully.<br>"
objConnection.Close()
con_close.text="Connection closed.<br>"
catch e as Exception
con_open.text="Connection failed to open.<br>"
con_close.text=e.ToString()
end try
%>
<html>
<body>
<h4>Testing the data connection
<asp:label id=data_src runat=server/></h4>
<asp:label id=con_open runat=server/><br>
<asp:label id=con_close runat=server/><br>
</body>
</html>