script til at skifte kode

jeg er igang med at lave et script til min hjemmeside, hvor man kan skifte sin kode.men jeg får denne her fejl:

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/forbindelseluk.asp, line 3

selve scriptet ser sådan her ud:

gamleadgangskode=request.form("gamleadgangskode")
adgangskode=request.form("adgangskode")
gentagadgangskode=request.form("gentagadgangskode")

'kontrollere den gamle adgangskode
if gammeladgangskode=id=session("brugerid") <> adgangskode then
'hvis den ene er lig med den anden, så gør dette :
if adgangskode=gentagadgangskode And adgangskode <> "" then
sql="select * from adresse where brugernavn='"&brugernavn&"'"
set record=rs.execute(sql)
if record.eof then
    sql="update adresse set adgangskode='"&adgangskode&"' where id='"&session("brugerid")&"'"
    set record=rs.execute(sql)
Response.redirect "/profil.asp"
else ' ellers
response.write "Den gamle adgangskode er ikke rigtig eller den nye adgangskode blev ikke indtastet ens, din kode blev ikke ændret."
' afslut IF sætning
end if

%>