Variable is undefined: 'OpenConn' VBScript runtime error '800a01f4'

[nitewriter]

Hi,

Can someone help me with this scripts, it works on a different server but gives me error now,

This is the error I now get
Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'OpenConn'

/customer/authenticate.asp, line 17

<%@LANGUAGE="VBScript"%>
<%OPTION EXPLICIT%>
<%Response.Buffer = true%>
<!--#Include file="includes/utilities.asp"-->
<%    ON ERROR GOTO 0
    ''-----------------------------------------------
    '' Login page for simple ASP validation
    ''-----------------------------------------------
    Dim UserId, Password
    UserID = Trim(Request.Form("UserID"))
    Password = Request.Form("Password")
    VerifyUser UserID, Password   ''''USER-CREATED SUB
 
'''==================================================
SUB VerifyUser (UserID, Password)
    Dim objConn, sql, rs
    Set objConn = OpenConn()
 
    sql = "SELECT * FROM tblClients WHERE UserID = '" & UserID & "'"
    Set rs = Server.CreateObject("ADODB.Recordset")
    Set rs = objConn.Execute(sql,,1)
 
    If rs.EOF and rs.BOF Then
        '''Error! User Not found
        CleanUp rs
        CleanUp objConn
        Response.Redirect "cbaLoginError.asp"
    Else
        If rs("Pass") <> Password Then
        ''''Oops!! Incorrect Password ----------
            CleanUp rs
            CleanUp objConn
            Response.Redirect "LoginError.asp"
        Else
            ''Checking if the account has been created.
            if(rs("CreateStatus")=1 OR rs("Status")= 2) then
                Response.Redirect "AccountDisabled.asp"
            end if
            ''-----------------------------------------
            Session("UserID") = UCase(rs("UserID"))
            'Session("UserAccess") = CInt(rs("AccessLevel"))
            Response.Redirect "custHome.asp"    ''always, for all accesslevels!
            ''''' Logins audit code here -----------------
            ''IF CInt(rs("AccessLevel"))=77 THEN
            '    Response.Redirect "includes/msg.asp?msg=<tr><td>You do not have permission to log into the CMS System</td></tr>"
            'ELSE
            '    Response.Redirect "Home.asp"    ''always, for all accesslevels!
            'END IF
            '''---------------------------------------------
        End If
        CleanUp rs
        CleanUp objConn
    End If
    CleanUp rs
    CleanUp objConn
END SUB
'''===================================================
%>

[jhardman]

    Set objConn = OpenConn()
 

This line doesn't make sense. It should be more like this:

set objConn = server.createobject("adodb.connection")

OpenConn() doesn't mean anything, as far as I know, and the error just means that the server couldn't figure out what it meant either. Perhaps it refers to something in the global.asa file that was not transferred to this server. Now that I think of it, there is more code missing since there is no indication here that you have opened the db connection or specified where you want to connect. Check the global.asa file from the previous server and see if there is a function called OpenConn() that you can copy over.

Jared

BTW, please put your code in code tags, there is a button marked # provided

[nitewriter]

Thanks, i have been able to figure it out.

The OpenConn function statement in the includes\utilities.asp file is missing, added the statement and script running fine.

Thanks

[jhardman]

glad you found it.

Jared