<%
' Employee database connection - uses centralized config
Dim objConn, empConnError
empConnError = ""
Session.Timeout = APP_SESSION_TIMEOUT
On Error Resume Next
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = GetEmployeeConnectionString()
objConn.Open
If Err.Number <> 0 Then
empConnError = "Employee DB Connection Error: " & Err.Number & " - " & Err.Description & " (Source: " & Err.Source & ")"
Err.Clear
End If
On Error Goto 0
Set rs = Server.CreateObject("ADODB.Recordset")
' If connection failed, display error and stop
If empConnError <> "" Then
Dim connType
If USE_EMP_DSN Then
connType = "DSN-based (wjf_employees)"
Else
connType = "Direct ODBC"
End If
Response.Write "Database Error"
Response.Write "Database Connection Error
"
Response.Write "" & Server.HTMLEncode(empConnError) & "
"
Response.Write "Connection String Type: " & connType & "
"
Response.Write ""
Response.End
End If
%>