Please help me to resolve the problem.

Run-time error ‘3001’ occurs ONLY during the debug of server-site
ActiveX DLL.

Is something wrong with my code? Error occurs on “cmd.ActiveConnection
= mvarConnection” line.

The following is Visual Basic code (I am using VB 6.0).
--------------------------------------------------------------------------------

Private mvarErrMsg As String 'local copy
Private mvarPassword As String 'local copy
Private mvarUserName As String 'local copy
Private mvarConnection As ADODB.Connection 'local copy
Private mvarScriptingContext As ASPTypeLibrary.ScriptingContext 'local
copy
Public Sub OnStartPage(objScriptingContext As Object)
Set mvarScriptingContext = objScriptingContext
mvarPassword = mvarScriptingContext.Request.Form("USER_PASSWORD")
mvarUserName = mvarScriptingContext.Request.Form("USER_ID")
mvarScriptingContext.Session.Contents.Item("custid") = mvarUserName
Set mvarConnection =
mvarScriptingContext.Session.StaticObjects("objConn")
End Sub
Public Function IsNewPage() As Boolean
IsNewPage = (mvarUserName = "" And mvarPassword = "")
End Function

Public Function Authenticate() As Boolean
Dim cmd As ADODB.Command
Dim parm1, parm2 As ADODB.Parameter
Dim rs As ADODB.Recordset
Err.Clear

Authenticate = False
On Error GoTo Err
Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
cmd.CommandText = "AuthenticateCustomerReseller"
cmd.CommandType = adCmdStoredProc
Set parm1 = cmd.CreateParameter("val1", adBSTR, adParamInput)
Set parm2 = cmd.CreateParameter("val2", adBSTR, adParamInput)
parm1.Value = mvarUserName
parm2.Value = mvarPassword
cmd.Parameters.Append parm1
cmd.Parameters.Append parm2
cmd.ActiveConnection = mvarConnection
Set rs = cmd.Execute
If Not rs.BOF Then
Authenticate = True
Else
mvarErrMsg = "Authentication failed"
End If

Set cmd = Nothing
Set parm1 = Nothing
Set parm2 = Nothing
Set rs = Nothing
Err:
Dim Msg
' If an error occurs, construct an error message
If Err.Number <> 0 Then
Msg = "Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & Chr(13) & Err.Description & _
" in CRlogon.Authenticate"
mvarScriptingContext.Response.Write Msg
End If
End Function