SQL Connection String w/ConnectSQLNT Function:
Code:
Opening Connection:
Highlight
<% Dim conn Dim rs Dim strSQL Dim sSQL strSQL = "exec sp_StoredProcedureName" Set conn = ConnectSQLNT("DatabaseName", "ServerName") Set rs = server.createobject("adodb.recordset") rs.open strSQL, conn %>
Closing Connection:
Highlight
<% rs.close: set rs = nothing conn.close: set conn = nothing %>