Connects to MSSQL database from Classic ASP
All DB variables need to be already defined
DBServer, DBName, DBUser, DBPass
Content below is used to be in Inc_Conn.asp file and included inside tool ASP files
<%
Server.ScriptTimeout = 200
' Variables needed to be set
' DBServer = "db.server.com"
' DBName = "DatabaseName"
' DBUser = "dbadmin"
' DBPassword = "pwdofdbuser"
Err.Clear
On Error Resume Next
Set Connection = Server.CreateObject("ADODB.Connection")
ConnString = "PROVIDER=SQLNCLI11 ;SERVER=" & DBServer & ";DATABASE=" & DBName & ";USER ID=" & DBUser & ";PASSWORD=" & DBPassword & ";"
' ConnString = "PROVIDER={SQL Server} ;DATA SOURCE=" & DBServer & ";DATABASE=" & DBName & ";USER ID=" & DBUser & ";PASSWORD=" & DBPassword & ";"
Connection.Open ConnString
If Err.Number < > 0 Then Response.Redirect "/Error"
On Error GoTo 0
% >
Server.ScriptTimeout = 200
' Variables needed to be set
' DBServer = "db.server.com"
' DBName = "DatabaseName"
' DBUser = "dbadmin"
' DBPassword = "pwdofdbuser"
Err.Clear
On Error Resume Next
Set Connection = Server.CreateObject("ADODB.Connection")
ConnString = "PROVIDER=SQLNCLI11 ;SERVER=" & DBServer & ";DATABASE=" & DBName & ";USER ID=" & DBUser & ";PASSWORD=" & DBPassword & ";"
' ConnString = "PROVIDER={SQL Server} ;DATA SOURCE=" & DBServer & ";DATABASE=" & DBName & ";USER ID=" & DBUser & ";PASSWORD=" & DBPassword & ";"
Connection.Open ConnString
If Err.Number < > 0 Then Response.Redirect "/Error"
On Error GoTo 0
% >
Views 4,488
Downloads 1,281
CodeID
DB ID
ANmarAmdeen
610
Revisions
v2.0
Friday
August
10
2018