<% 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 %>
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
det starter den med men fik ikke det hele med sorry
<form action="tilmeld.asp?mode=1" METHOD="POST">
<td width="14" class="vertline" background='../2c73fc43.JPG"'> <img border="0" src="../ssl/images/2c73fc43.JPG"></td> <td valign="top" style="padding:15px; BACKGROUND-IMAGE: url('/images/navline_drop_white.gif');BACKGROUND-REPEAT: repeat-x" width="534"><!-- P:Begin --> <h1 align="left"><u>Nyhedsbrev</u></h1> <p align="left">Nyhedsbrevet på lkongen.dk vil jævnligt blive udsendt. Der er ikke nogen fast dag eller tidspunkt for udsendelsen, det kommer når der er nyt på banen. Man kan på et hvilket som helst tidspunkt afmelde nyhedsbrevet igen.</p> <p align="left">Lkongen's nyhedsbrev indeholder typisk informationer om dette websites udvikling samt præsentation af nye artikler, downloads, services etc.</p> <p> <strong>Tilmeld/Afmeld Nyhedsbrev</strong><br> <input type="text" name="email" size="71" onFocus="select()" value="Skriv din e-mail adresse her"> <p> Tilmeld: <input id="t2" type="radio" name="status" value="tilmeld" checked="checked" /> Frameld: <input type="radio" name="status" value="frameld" /><br /><br /> <label for="subm" style="margin-top:10px"> </label><input id="subm" type="submit" value="Tilmeld/Frameld" /> </fieldset> </form>
<% 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 %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.