Avatar billede stengaard Praktikant
05. november 2004 - 21:52 Der er 18 kommentarer og
1 løsning

hvad er der galdt med mit nyhedsbrev

<strong>Tilmeld/Afmeld Nyhedsbrev</strong><br>
<input type="text" name="email" size="71" onFocus="select()" value="Skriv din e-mail adresse her">&nbsp;&nbsp;<p>
&nbsp;&nbsp;&nbsp;
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">&nbsp;</label><input id="subm" type="submit" value="Tilmeld/Frameld" />
</fieldset>
</form>

<!-- P:End -->
</TD>
  </TR>
</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 %>

<% End If %>
Avatar billede trekkies Juniormester
05. november 2004 - 22:04 #1
Hvad er din fejl?
Avatar billede stengaard Praktikant
05. november 2004 - 22:12 #2
det er som om det ikke sker noget og jeg for ikke nogen ting i databasen

prøv eventuelt selv på http://www.lkongen.dk/Nyhedsbrev/tilmeld.asp
Avatar billede trekkies Juniormester
05. november 2004 - 22:15 #3
Jeg kan se hvad du mener.

Hvad jeg kan se i din kode, så har du en start form, men du har 2 slut form.
Avatar billede erikjacobsen Ekspert
05. november 2004 - 22:21 #4
Har du en

    mode=request.querystring("mode")

et sted i din kode? Og skulle der så ikke stå

<form action="tilmeld.asp?mode=submit" METHOD="POST">
Avatar billede trekkies Juniormester
05. november 2004 - 22:21 #5
Prøv dette:
Du har en start <% men du har en mere start <% men kun en slut %>
Avatar billede trekkies Juniormester
05. november 2004 - 22:22 #6
I hans kilde har han denne:
<form action="tilmeld.asp?mode=1" METHOD="POST">
Avatar billede stengaard Praktikant
05. november 2004 - 22:22 #7
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">&nbsp;&nbsp;<p>
&nbsp;&nbsp;&nbsp;
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">&nbsp;</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 %>

<% End If %>
Avatar billede trekkies Juniormester
05. november 2004 - 22:23 #8
Hvorfor har du en else i din top kode?
Der står Elseif, skulle der ikke kun stå if
Avatar billede stengaard Praktikant
05. november 2004 - 22:27 #9
????

ved det ikke er ny begynder og har set koden på hjemmesideskolen på dette link

http://www.hjemmesideskolen.dk/scripts/nyhedsbrev/index.asp
Avatar billede erikjacobsen Ekspert
05. november 2004 - 22:29 #10
Du skal starte med at kopiere rigtigt fra koden på den side ;)
Avatar billede stengaard Praktikant
05. november 2004 - 22:33 #11
hvad mangler udover formularen som jeg selv har lavet !!!
Avatar billede trekkies Juniormester
05. november 2004 - 22:35 #12
Prøv dette erikjacobsen skrev kl. 22:21:09:
<form method="post" action="tilmeld.asp?mode=submit">

Se hvad der så sker...
Avatar billede stengaard Praktikant
05. november 2004 - 22:37 #13
den er med jeg havde ikke fået kopiet det hele over ca. klokken 22:22:48
Avatar billede trekkies Juniormester
05. november 2004 - 22:39 #14
I din kode står der:
<form action="tilmeld.asp?mode=1" METHOD="POST">

Den skal være:
<form method="post" action="tilmeld.asp?mode=submit">
Avatar billede stengaard Praktikant
05. november 2004 - 22:39 #15
ok prøver
Avatar billede stengaard Praktikant
05. november 2004 - 22:43 #16
så virker den har også fået tilført en mail adresse i databasen
Avatar billede trekkies Juniormester
05. november 2004 - 22:52 #17
Jeg synes at du skal give point til erikjacobsen, fordi at han kom med det rigtige svar først.

Jeg takker nej tak.
Avatar billede erikjacobsen Ekspert
06. november 2004 - 07:20 #18
Jeg samler slet ikke på point, tak.
Avatar billede stengaard Praktikant
01. december 2005 - 10:28 #19
lukket
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester