Første loginscript

hej jeg har lavet mig mit første loginscript. men der er noget jeg ikke forstår :)

<%
Dim strKodeord,strBrugernavn
    if session("brugernavn") <> "" AND session("kodeord") <> "" Then
        dim sessionBrugernavn:sessionBrugernavn = session("brugernavn")
        dim sessionKodeord:sessionKodeord = session("kodeord")
            Logind(sessionBrugernavn, sessionKodeord)
    End if

        function Logind(brugernavn, kodeord)
            dim strLogin
            Set strLogin = Server.CreateObject("ADODB.Recordset")
            strLogin.Open "SELECT COUNT(fldId) AS Antal FROM tblBruger WHERE fldBrugernavn='"&brugernavn&"' AND fldKodeord = '"&kodeord&"'", database
                If strLogin.Fields("Antal") <> 0 Then
                    Session("brugernavn") = brugernavn
                    Session("kodeord") = kodeord
                    strBrugernavn = brugernavn
                    strKodeord = kodeord
                    Logind = true
                Else
                    Logud()
                    Logind = false
                End if
        End function

        Function Logud()
            If Loggetind() = true Then
                Session.Contents.Remove("brugernavn")
                Session.Contents.Remove("kodeord")
                strKodeord = ""
                strBrugernavn = ""
                Logud = true
            Else
                Logud = false
            End if
        End Function

        Function Loggetind()
            if strBrugernavn <> "" AND strKodeord <> "" Then
                Loggetind = true
            Else
                Loggetind = false
            End if
        End Function
%>

jeg får fejlen:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0414)
Der kan ikke bruges parenteser ved kald af en Sub
/opgave4/loginfunktion.asp, line 6, column 41
Logind(sessionBrugernavn, sessionKodeord)

Er der nogen der kan fortælle mig hvad jeg gør galt?