find fejlen, har stirret mig blind

Ved ikke om det har noget at gøre med at du tjekker på B1 (if request.form("B1") )

Og længere nede er det R1

Men hvilken fejl får du?

Det bliver letter at læse din kode hvis du laver indrykninger.

Gætter desuden på at din fejl forsvinder hvis du ændre til dette:

<%
if request.form("B1") <> "" AND request.form("email") <> "" then

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

    if request.form("R1") = "V1" then
        Sql = "select * from nyhedsbrev where email <> '" & request.form("email") &"'"
        Set rs = Conn.Execute(sql)

        ' RETTET HER: Byttet om på if- og else-delen.
        if rs.EOF or rs.BOF then
            sql1 = "Insert into nyhedsbrev (email) values('" & request.form("email") &"')"
            Conn.Execute(sql1)

            response.redirect "default.asp?valg=nyhedsbrev&Status=1"
        else
            response.redirect "default.asp?valg=nyhedsbrev&Status=2"
        end if
    end if

    if request.form("R1") = "V2" then
        Sql = "select * from nyhedsbrev where email = '" & request.form("email") &"'"
        Set rs = Conn.Execute(sql)

        if rs.EOF or rs.BOF then
            'response.redirect "default.asp?valg=nyhedsbrev&Status=3"
        else
            sql1 = "Delete From nyhedsbrev Where email = '" & request.form("email") &"'"
            Conn.Execute(sql1)

            response.redirect "default.asp?valg=nyhedsbrev&Status=2"
        end if
    end if

else
    response.redirect "default.asp?valg=nyhedsbrev&Status=5"
end if
%>

Sql = "select * from nyhedsbrev where email <> '" & request.form("email") &"'"
Set rs = Conn.Execute(sql)
if rs.EOF or rs.BOF then


betyder vælg fra db hvor email er forskellig fra den indtastede.

hvis der ikke findes noget der er forskelligt

redirect til default - findes allerede

det må da være forkert

Ja, det skal jo nok også være:

    if request.form("R1") = "V1" then
        Sql = "select * from nyhedsbrev where email = '" & request.form("email") & "'"
        Set rs = Conn.Execute(sql)

        ' RETTET HER: Byttet om på if- og else-delen.
        if rs.EOF or rs.BOF then
            sql1 = "Insert into nyhedsbrev (email) values('" & request.form("email") &"')"
            Conn.Execute(sql1)

            response.redirect "default.asp?valg=nyhedsbrev&Status=1"
        else
            response.redirect "default.asp?valg=nyhedsbrev&Status=2"
        end if
    end if

det lykkedes. Nielle et svar ??

Måske du også kan hjælpe med: http://www.eksperten.dk/spm/821091

Svar :^)

Du er da allerede ved at få hjælp der ... jeg skal nok blande mig hvis I ikke får den lsåt i fællesskab :^)

jamen det er jo netop ikke løst

Skal bare have selve datoen ud af "dato" uden klokkeslet

Hvis det var blevet løst var der jo heller ingen grund til at hjælpe... Det jeg mener er at, siden folk endnu ikke har opgivet at finde en løsning, så er der ingen grund til at blande mig i deres forsøg.

be om

Det er altså ikke for at være ond ved dig, men jeg synes altså at de andre skal have deres chance!

Og så er der knapt nok en lille halv time siden sidste indlæg - lidt tålmodighed er nok på sin plads.

står bare og skal bruge det.... :-/

Hvis der ikke er nogen som har hjulpet inden en ½ time skal jeg nok pippe.

Thanks :-)