COM

AppMonitor = Server.CreateObject("AppMonitor.LoginDetails").InitialLogin
(Application("cdscConnection"), gstrAccountName, Session.SessionID, stest)

Public Function InitialLogin( _
                    ByVal ConnectionString As String, _
                    ByVal AccountName As String, _
                    ByVal SessionID As String, _
                    ByRef stest As Variant _
                    ) As Long
Dim UserID As String
UserID = "sa"
Dim Password As String
Password = ""
Dim sql As String
sql = "EXEC cdsc_TBTrace 0, '" & Replace(AccountName, "'", "''") & "', " & SessionID
On Error GoTo ErrorHandler
    Set cn = New ADODB.Connection
    cn.Open (ConnectionString)
    cn.Execute (sql)
    stest = "Success"
    cn.Close
ErrorHandler:
    With Err
        stest = Err.Description & "<BR>" & Err.Number
    End With
End Function