Et objekt er obligatorisk: 'rs'

Min kode herunder tjekker først om der er een i db med samme email, dernæst SKULLE den tjekke om der er een i forvejen med samme TNIid. Men der kommer følgende fejl på tjek om TNIid:
Et objekt er obligatorisk: 'rs'

Kan nogen hjælpe med at få min kode til at opføre sig ordentligt:

Fornavn = request.form("Fornavn")
Efternavn = request.form("Efternavn")
TNIid = request.form("TNIid")

If Fornavn <> "" and Efternavn <> "" Then
    Email = request.form("Email")
    if instr(Email,"@") > 1 and instr(strReverse(Email),".") < 6 then
        EmailX = True
        else
        if Email <> "" then
        strErr = "Den opgivne E-mail er ikke gyldig. Tjek venligst stavemåde!"
        'response.end
        end if
    end if
    TNIid = request.form("TNIid")
    if isNumeric(TNIid) and len(TNIid) = 7 or TNIid = "" then
        TNIidX = True
        else
        'if TNIid <> "" then
        strErr = "Det opgivne TNIid er ikke gyldig. Der kræves 7 cifre!"
        'response.end
        'end if
    end if
end if


If Fornavn <> "" and Efternavn <> "" and EmailX = True and TNIidX = True Then
       
    strSQL = " select Email from Forhandler where Email = '" & Email & "' "
    rs.open strSQL, conn
    if rs.eof then
        EmailX2 = True
        else
        strErr = "Der er en Forhandler med denne E-mail i forvejen!"
    end if
    set rs = nothing

    if EmailX2 = True and TNIid <> "" then
        strSQL = " select TNIid from Forhandler where TNIid = " & TNIid
        rs.open strSQL, conn
        if rs.eof then
            TNIidX2 = True
            else
            strErr = "Der er en Forhandler med dette TNI ID i forvejen!"
        end if
        set rs = nothing
    end if
   
    if EmailX2 = True and (TNIidX2 = True or TNIid = "") then
        Adgangskode = KodeGenerator
        strSQL = " insert into Forhandler ("
        if TNIid <> "" then
            strSQL = strSQL & "TNIid, "
        end if
        strSQL = strSQL & "Adgangskode, Oprettet, Rettet, Fornavn, Efternavn, Email, SidstLoggetInd, Bemaerkninger) "
        strSQL = strSQL & "values("
        if TNIid <> "" then
            strSQL = strSQL & "'" & TNIid & "',"
        end if
        strSQL = strSQL & "'" & Adgangskode & "',"
        strSQL = strSQL & " now " & ", "
        strSQL = strSQL & " '-' " & ","
        strSQL = strSQL & "'" & Fornavn & "',"
        strSQL = strSQL & "'" & Efternavn & "',"
        strSQL = strSQL & "'" & Email & "',"
        strSQL = strSQL & " '-' " & ","
        strSQL = strSQL & "'Tilmeldt online' "
        strSQL = strSQL & ") "
        conn.execute(strSQL)
        %>
        <!--#include file="TilmeldeMail_inc.asp" -->
        <%
    end if
End If