<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
Sub Page_Load()
' Dim strConnection as String = "user id=sa;password=;"
'strConnection += "database=northwind;server=EWANB;"
'strConnection += "Connect Timeout=30"
Dim strConnection as String = "Data Source=whsql-v08.prod.mesa1.secureserver.net;Initial Catalog=DB_49907;User ID=rntsoftuser;Password=password;"
data_src.text = strConnection
Dim objConnection as New SqlConnection(strConnection)
try
objConnection.Open()
con_open.text="Connection opened successfully.
objConnection.Close()
con_close.text="Connection closed.
catch e as Exception
con_open.text="Connection failed to open.
con_close.text=e.ToString()
end try
end Sub
Testing the data connection