noget er galt, men jeg ved ikke hvad det er

Dette fungere sådan at man skal tilføje nogle oplysninger til en database, udfra et password man allerede har og som ligger i db\'en.
Hvis man skriver et forkert password, for man det at vide, og man bliver bedt om at prøve igen.
Skriver man et rigtigt password opdatere man så den række i db\'en som passer til passwordet med andre de oplysninge så som navn, adresse, postnr, bynavn og email.

Men det skal ikke kunne lade sig gøre at ændre oplysningerne, hvis de en gang er skrevet ind.
Jeg tror fejlen ligger i denne del.
navnSQL = \"SELECT Navn FROM Invit\"
    response.write(navnSQL)
    set rs = myConn.Execute(navnSQL)
    navntjek = rs(\"Navn\")
   
        if navntjek <>\"\" then

HER ER HELE SCRIPTET:

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

SQL = \"SELECT * FROM Invit WHERE password =\'\" & password & \"\'\"
set rs = myConn.Execute(SQL)

if rs.BOF AND rs.EOF then

    response.write \"<center><b><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"2\"\">Your password (\"& password &\") is not correct</font></b></center>\"
    response.write \"<form>\"
    response.write \"<center><input type=\'button\' value=\'Retry\' onclick=history.back()></center>\"
    response.write \"</form>\"
    response.end
else
   
    navnSQL = \"SELECT Navn FROM Invit\"
    response.write(navnSQL)
    set rs = myConn.Execute(navnSQL)
    navntjek = rs(\"Navn\")
   
        if navntjek <>\"\" then
            response.write \"<center><b><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"2\"\">Your can\'t correct your informations</font></b></center>\"
            response.write \"<form>\"
            response.write \"<center><input type=\'button\' value=\'Retry\' onclick=history.back()></center>\"
            response.write \"</form>\"
            response.end

        Else
            strSQL = \"Update Invit set \"
              strSQL = strSQL & \"navn= \'\" & navn & \"\', \"
            strSQL = strSQL & \"adresse= \'\" & adresse & \"\', \"
            strSQL = strSQL & \"postnr= \'\" & postnr & \"\', \"
            strSQL = strSQL & \"bynavn= \'\" & bynavn & \"\', \"
            strSQL = strSQL & \"email= \'\" & email & \"\' \"
            strSQL = strSQL & \" Where password =\'\" & password & \"\'\"
            myConn.Execute(strSQL)
        end if
end if