skal bruges i dette script
<% ElseIf mode = "submit" Then 'Hvis mode = "submit" så godkend og registrer indtastning
Dim email, status, error
error = False 'Bruges til at teste om der er sket fejl eller der er mangler i indtastning
email = Trim(Replace(Request.Form("email"), "'", ""))
status = Request.Form("status")
If Len(email) = 0 Then 'Tester om der er indtastet e-mail adresse
Response.Write "<h1>OBS</h1>"
Response.Write "<b>Du har ikke indtastet en e-mail adresse</b>"
error = True
End If
If error = False Then 'Tilføjer eller fjerner e-mail adresse fra database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN
If status = "tilmeld" Then 'Tilmelder e-mails
Set rs = Conn.Execute("SELECT email FROM nyhedsbrev WHERE email='" & email & "'")
If Not rs.EOF Then
Response.Write "<h1>OBS</h1>"
Response.Write "<p>Denne e-mail adresse er allerede tilmeldt i systemet</p>"
Else
Conn.Execute("INSERT INTO nyhedsbrev (email) VALUES ('" & email & "')")
Response.Write "<h1>Tak for tilmeldingen</h1>"
Response.Write "<p>Du modtager fremover Nyhedsbreve</p>"
End If
End If 'Slutter tilmeld
If status = "frameld" Then 'Framelder e-mails
Set rs = Conn.Execute("SELECT email FROM nyhedsbrev WHERE email='" & email & "'")
If Not rs.EOF Then
Conn.Execute("DELETE * FROM nyhedsbrev WHERE email='" & email & "'")
Response.Write "<h1>Frameldingen er registreret</h1>"
Response.Write "<p>Du får ikke flere Nyhedsbreve</p>"
Else
Response.Write "<h1>OBS</h1>"
Response.Write "<p>Din e-mail adresse blev ikke fundet i systemet</p>"
End If
End If 'Slutter frameld
Conn.Close
Set Conn = Nothing
End If 'Slutter tilmeld/frameld %>
<% End If %>
