Søg
Avatar billede remo27 Nybegynder
17. september 2006 - 13:50 Der er 11 kommentarer og
1 løsning

problem med nyhedsbrev.

Jeg har dette html nyhedsbrev, jeg ønsker at koble en afmeld funktion på nyhedsbrevet. hvordan laver man det ??

koden til nyhedsbrevet er:

<!-- #include file="databaseforbindelse.asp"-->
<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<%
if request("mode") = "send" then
'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
'1 = JMAIL
'2 = CDONTS

mailertype = 1

'**********************************************

'Set Conn = Server.CreateObject("ADODB.Connection")
'conn.Open "DBQ="&(Server.MapPath(".")) &" .\db\kornumgaard.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"
    SQL = "SELECT * from mailingliste"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next

tekst = "<html><body><center><table border='1' width='650' cellpadding='0' cellspacing='0'><tr><td><img border='0' src='http://www.kornumgaard.dk/images/top.gif' width='650' height='90'></td></tr><tr><td bgcolor='#FFFFCC'>"
tekst = tekst + request.form("tekst")
tekst = tekst + "</td></tr><tr><td bgcolor='#CCFF66' align='center'>"her skal slet funtionen være" </td></tr></table></center></body></html>"

if mailertype = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        JMail.ContentType = "text/html"
        ' This is my local SMTP server
        JMail.ServerAddress = "massmail.scannet.dk"
   
        ' mail config settings
        'JMail.Charset = "iso-8859-1"
        'JMail.ContentTransferEncoding = "8bit"
       
        JMail.Sender = "kornumgaard@kornumgaard.dk"
        JMail.Subject = "NYHEDSBREV FRA BØRNEHAVEN KORNUMGÅRD"
        JMail.AddRecipient send("email")
        JMail.Body = tekst
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        ' Send it...
        JMail.Execute
        set JMail = nothing
elseif mailertype = 2 then

        ' importance = 0        ' lav
        importance = 1        ' normal
        ' importance = 2        ' høj

        Set mailObj = CreateObject("CDONTS.NewMail")
   
        ' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send "afsenders emailadresse", send("email"), request("header"), tekst, importance

        ' slet reference til CDONTS object
        Set mailObj = Nothing
end if



response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& send("email") &"</STRONG></FONT><BR>"
send.movenext
loop

conn.close

response.redirect("default.asp?emne=pic")

else
%>
<CENTER>
<TABLE BORDER="0">
<form action="nyhedsbrev.asp" METHOD="POST">
<INPUT TYPE="hidden" NAME="mode" VALUE="send">
  <TR>
 
    <TD ALIGN="LEFT" class="nyhed">Overskrift:&nbsp;</TD>
    <TD ALIGN="LEFT">
    <INPUT TYPE="TEXT" NAME="header" SIZE="50">
    </TD>
  </TR>
  <TR>
    <TD ALIGN="RIGHT" VALIGN="TOP" class="nyhed">Tekst:&nbsp;</TD>
    <TD ALIGN="LEFT">
    <TEXTAREA COLS="45" ROWS="15" NAME="tekst"></TEXTAREA>
    </TD>
  </TR>
  <TR>
    <TD ALIGN="LEFT">
    &nbsp;
    </TD>
    <TD ALIGN="RIGHT">    <input type="submit" value="-- SEND --"> </TD>
  </TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>
Avatar billede madeindk Nybegynder
17. september 2006 - 13:57 #1
Lav en fil der hedder afmeld.asp og test først denne kode, så kigger vi på selve nyhedsbrevet bagefter.

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DBQ="&(Server.MapPath(".")) &" .\db\kornumgaard.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"

Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM mailingliste WHERE email='" & request.form("mail") & "'"
rs.Open Addera, Connect, 3, 3

if not rs.eof then

rs.delete
rs.update

Response.Write("Du er nu slettet fra nyhedsbrevet")

Else

Response.Write("E-mailen blev ikke fundet")
%>

<form action="afmeld.asp?action=afmeld" method="post">

<input type="text" name="email"><br><br><input type="submit" value="Afmeld">

</form>
Avatar billede madeindk Nybegynder
17. september 2006 - 13:58 #2
Hov, der manglede en End if efter sidste Response.Write.

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DBQ="&(Server.MapPath(".")) &" .\db\kornumgaard.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"

Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM mailingliste WHERE email='" & request.form("email") & "'"
rs.Open SQL, Connect, 3, 3

if not rs.eof then

rs.delete
rs.update

Response.Write("Du er nu slettet fra nyhedsbrevet")
Else
Response.Write("E-mailen blev ikke fundet")
End if

rs.close
%>

<form action="afmeld.asp?action=afmeld" method="post">

<input type="text" name="email"><br><br><input type="submit" value="Afmeld">

</form>
Avatar billede remo27 Nybegynder
17. september 2006 - 14:30 #3
hmmm, jeg har kopieret din kode og lavet en asp fil afmeld.asp uploadet den til www.kornumgaard.dk men jeg får en fejl 500.  www.kornumgaard.dk/afmeld.asp
Avatar billede madeindk Nybegynder
17. september 2006 - 14:39 #4
Den kan ikke åbne databasen kan jeg se. Prøv med det her så...

<!-- #include file="databaseforbindelse.asp"-->

<%
SQL = "SELECT * FROM mailingliste WHERE email='" & request.form("email") & "'"
Set rs = conn.execute(SQL)

if not rs.eof then

rs.delete
rs.update

Response.Write("Du er nu slettet fra nyhedsbrevet")
Else
Response.Write("E-mailen blev ikke fundet")
End if

rs.close
%>

<form action="afmeld.asp?action=afmeld" method="post">

<input type="text" name="email"><br><br><input type="submit" value="Afmeld">

</form>
Avatar billede madeindk Nybegynder
17. september 2006 - 14:48 #5
Så virker det kan jeg se på linket du har smidt.

Men du skal lige rette koden lidt mere ;-)

<%
strAction = request.querystring("action")
strMail = request.form("email")

If strAction = "afmeld" AND strMail <> "" Then

SQL = "SELECT * FROM mailingliste WHERE email='" & lCase(strMail) & "'"
Set rs = conn.execute(SQL)

if not rs.eof then

rs.delete
rs.update

Response.Write("Du er nu slettet fra nyhedsbrevet")
Else
Response.Write("E-mailen blev ikke fundet")
End if

rs.close
%>

<form action="afmeld.asp?action=afmeld" method="post">

<input type="text" name="email"><br><br><input type="submit" value="Afmeld">

</form>
Avatar billede madeindk Nybegynder
17. september 2006 - 14:48 #6
Og sætte en End if under rs.close :-)

Så burde det virke rigtig godt.
Avatar billede remo27 Nybegynder
17. september 2006 - 14:50 #7
Nu virker siden, den skriver Email blev ikke fundet så er der en formfelt og en afmeld knap.

Når jeg skriver min Email adresse i feltet, og klikker på afmeld kommer der fejl 500 side frem, kan det skyldes at det kun er min email adresse som ligger i Mailingliste
Avatar billede madeindk Nybegynder
17. september 2006 - 14:51 #8
Kan du ikke give mig en mail du ved der eksisterer i databasen?

Sæt det her ind...

<%
strAction = request.querystring("action")
strMail = request.form("email")

If strAction = "afmeld" AND strMail <> "" Then

SQL = "SELECT * FROM mailingliste WHERE email='" & lCase(strMail) & "'"
Set rs = conn.execute(SQL)

if not rs.eof then

rs.delete
rs.update

Response.Write("Du er nu slettet fra nyhedsbrevet")
Else
Response.Write("E-mailen blev ikke fundet")
End if

rs.close

End if
%>

<form action="afmeld.asp?action=afmeld" method="post">

<input type="text" name="email"><br><br><input type="submit" value="Afmeld">

</form>
Avatar billede remo27 Nybegynder
18. september 2006 - 22:45 #9
så er jeg tilbage igen.

jeg har brugt din kode.:

<!-- #include file="databaseforbindelse.asp"-->

<%
strAction = request.querystring("action")
strMail = request.form("email")

If strAction = "afmeld" AND strMail <> "" Then

SQL = "SELECT * FROM mailingliste WHERE email='" & lCase(strMail) & "'"
Set rs = conn.execute(SQL)

if not rs.eof then

rs.delete
rs.update

Response.Write("Du er nu slettet fra nyhedsbrevet")
Else
Response.Write("E-mailen blev ikke fundet")
End if

rs.close
End if
%>

<form action="afmeld.asp?action=afmeld" method="post">

<input type="text" name="email"><br><br><input type="submit" value="Afmeld">

</form>

www.kornumgaard.dk/afmeld.asp  får også en formfelt hvor jeg kan skrive en mail som skal slettes, når jeg klikker på afmeld kommer der en fejl 500 side, jeg har lagt en test@test.dk ind i db som bare skal slettes.
Avatar billede remo27 Nybegynder
18. september 2006 - 23:30 #10
jeg er online igen i morgen aften efter 22:00
Avatar billede remo27 Nybegynder
22. september 2006 - 14:21 #11
hvem kan/vil hjælpe mig.....
Avatar billede remo27 Nybegynder
30. september 2006 - 09:41 #12
jeg lukker igen
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 11:06 Min IPad efter sidste opdatering Af nu_igen i Tablet
29/0113:08 Bruge PHP til at hente hjemmeside med fsockopen Af Strawberry i PHP
28/0113:36 godt råd søges Alternativ styresystem på Mac pc Af luffe1955 i Andre styresystemer
28/0111:32 Hjælp til kontrol af sygefravær Af Maja i Excel
27/0113:59 2 skærme til en stationær computer Af BIRGER i Skærme
White papers
Flere white papers »