For each key in Request.Form

Hejsa

Jeg har følgende og det har virket fint, lige indtil jeg inde i If sætningen "If left(key,12) = "blabla" then.." satte denne anden If sætning ind "If left(key,7) = "etellerandet" then.."

Det der ikke virker er at jeg ikke kan trække værdien af formfeltet i sidste if sætning ud. Hvad gør jeg galt? Håber det er til at forstå, ellers må i spørge.



For each key in Request.Form
    If left(key,12) = "blabla" then
        SQL = "UPDATE table SET bla1 = 0, bla2 = 'N' WHERE id = '" & Request.Form(key) & "'"
        cn.execute(SQL)
       
        SQL = "SELECT bla1, bla2 FROM table where id = '" & Request.Form(key) & "'"
        Set objRS = cn.execute(SQL)
            if not objRS.eof then
                bla1 = objRS("bla1")
                bla2 = objRS("bla2")
                MailText = Replace(MailText,"[blabla]",bla2)
                    If left(key,7) = "etellerandet" then
                        test = Request.Form(key)
                        mail = Replace(MailText,"[test]",test)
                    End if
                                             
                SendMail email, MailSubject, MailText
            end if
        objRS.close
        Set objRS = nothing
    end if
Next