Error hvis feltet ikke er et tal

Hej
Jeg har et lille problem med min login. Den virker ok, men jeg ville meget gerne at man fik min egen 'fejlsætning' hvis indholdet Request.Form("Idnr") ikke er et tal.
Kan det fikses, og hvordan?


If Request.Form("Action") = "Luk Op" Then
    ' Her forberedes de indtastede værdier til validering
    strUID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
    strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))
    strIDNR = Trim(Replace(Request.Form("Idnr"),"",""))

    If Len(strUID) > 0 And Len(strPWD) > 0 And Len(strIDNR) > 0 Then


        Set myConn = Server.CreateObject("ADODB.Connection")
        myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/huttelihut.mdb")


        strSQL = "SELECT username FROM smask_members"&_
            " WHERE (username = '" & strUID & "')"&_
            " AND (userid = '" & strPWD & "')"&_
            " AND (id = " & strIDNR & ")"

        Set rs = myConn.Execute(strSQL)
        If Not (rs.BOF Or rs.EOF) Then
            ' Hvis brugeren fandtes i databasen
            intUID = rs("username")
        Else

            strERR = "Fejl i login.<br><span class='nonewhite'><br><br><br></span><form action='default.asp' method='POST' style='display:inline'><span class='smallerror'><input type='submit' value='NEJ' class='bluebutton' name='NoneAction'> Glemt din Adgangskode? <input type='submit' value='JA' class='bluebutton' name='Action3'></span></form>"
        End If

0ffline