Hjælp til nyhedsbrev asp/MySQL
Hej eksperter,Jeg har en tabel i en database hvor min fil til skrivning/udsendelse af nyhedsbrevet henter
fornavn = objNB("navn")
email = objNB("email")
Jeg har 3 ting som filen ellers henter
emneindhold = trim(request.form("emneindhold"))
emneindhold2 = trim(request.form("emneindhold2"))
emneindhold3 = trim(request.form("emneindhold3"))
de 3 ovenstående bruges til de 3 punkter jeg har i nyhedsbrevet
nyheder
aktiviteter
jobs
For at gøre det så let som muligt for brugeren, (brugeren skal kun skrive indhodet i de 3 nyheder i 3 forskellige text areas) skriver jeg hver punkt via.
NB = NB & "<img src=http://www.albertslundapotek.dk/pil.gif> "
NB = NB & "<font size=2>"
NB = NB & "Nyheder"
NB = NB & "</b>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "</font>"
NB = NB & "<font size=2>"
NB = NB & emneindhold
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<a href=http://www.albertslundapotek.dk/nyheder.asp>Læs mere her.."
NB = NB & "<img src=http://www.albertslundapotek.dk/pil.gif border=0>"
MEN.. istedet for at lade linket være
<a href=http://www.albertslundapotek.dk/nyheder.asp>
Vil jeg gerne have at den hiver den seneste nyhed frem fra databasen, altså den der lige er blev beskrevet for oven.. MEN
da jeg ikke kan bruge "" ved jeg ikke hvordan jeg skal få linket til at hente den sidte id indtastet i databasen nyheder...
Hel koden jeg bruger kan ses herunder:
(skriv endelig hvis der er noget i ikke forstår)
---
<body bgcolor="#FFFFFF" text="#000000">
<p><b>Nyhedsbrev</b>
<% stat = ""
stat = request("status")
if len(stat) > 0 then
hentMail = "Select navn, email from nyhedsbrev"
set objNB=my_conn.execute(hentMail)
emneindhold = trim(request.form("emneindhold"))
emneindhold2 = trim(request.form("emneindhold2"))
emneindhold3 = trim(request.form("emneindhold3"))
While Not objNB.EOF
fornavn = objNB("navn")
email = objNB("email")
NB = "<!DOCTYPE HTML Public ""-//W3C//DTD HTML 4.0 Transitional//EN"">"
NB = NB & "<html>"
NB = NB & "<head>"
NB = NB & "<title>Nyhedsbrev - Albertslundapotek.dk</title>"
NB = NB & "<head>"
NB = NB & "<body bgcolor=#ffffff>"
NB = NB & "<font face=arial, Helvetica, sans-serif>"
NB = NB & "<table width=400>"
NB = NB & "<tr>"
NB = NB & "<td>"
NB = NB & "<table width=400>"
NB = NB & "<tr>"
NB = NB & "<td width=372>"
NB = NB & "<p align=center>"
NB = NB & "<br>"
NB = NB & "<img src=http://www.albertslundapotek.dk/nyhedsbrev_logo.jpg>"
NB = NB & "<br>"
NB = NB & "<img src=http://www.albertslundapotek.dk/nyhedsbrev_streg.jpg>"
NB = NB & "<br>"
NB = NB & "<p align=right>"
NB = NB & "<font size=2>"
NB = NB & "<i>"
NB = NB & "Nyhedsbrevet er sendt til "
NB = NB & fornavn
NB = NB & "</p>"
NB = NB & "</font>"
NB = NB & "</i>"
NB = NB & "<br>"
NB = NB & "<b>"
NB = NB & "<img src=http://www.albertslundapotek.dk/pil.gif> "
NB = NB & "<font size=2>"
NB = NB & "Nyheder"
NB = NB & "</b>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "</font>"
NB = NB & "<font size=2>"
NB = NB & emneindhold
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<a href=http://www.albertslundapotek.dk/nyheder.asp>Læs mere her.."
NB = NB & "<img src=http://www.albertslundapotek.dk/pil.gif border=0>"
NB = NB & "</a>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<b>"
NB = NB & "<img src=http://www.albertslundapotek.dk/pil.gif> "
NB = NB & "Aktiviteter"
NB = NB & "</b>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<font size=2>"
NB = NB & emneindhold2
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<a href=http://www.albertslundapotek.dk/vis_nyhed.asp?id=> Læs mere her.."
NB = NB & "<img src=http://www.albertslundapotek.dk/pil.gif border=0>"
NB = NB & "</a>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<b>"
NB = NB & "<img src=http://www.albertslundapotek.dk/pil.gif> "
NB = NB & "Jobs"
NB = NB & "</b>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<font size=2>"
NB = NB & emneindhold3
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<a href=http://www.albertslundapotek.dk/omapoteket_ledige_jobs.asp>Læs mere her.."
NB = NB & "<img src=http://www.albertslundapotek.dk/pil.gif border=0>"
NB = NB & "</a>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<img src=http://www.albertslundapotek.dk/nyhedsbrev_streg.jpg>"
NB = NB & "</p>"
NB = NB & "<p>"
NB = NB & "</font>"
NB = NB & "<font size=2>"
NB = NB & "<em>"
NB = NB & "Hvis du ikke ønsker at modtage Nyhedsbrevet mere, kan du framelde det under punktet Nyhedsbrev på Albertslundapotek.dk"
NB = NB & "</em>"
NB = NB & "</font>"
NB = NB & "<br>"
NB = NB & "</p>"
NB = NB & "</td>"
NB = NB & "<td width=1 bgcolor=#999999>"
NB = NB & "</td>"
NB = NB & "<td width=4 bgcolor=#6699FF>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "</td>"
NB = NB & "</tr>"
NB = NB & "</table>"
NB = NB & "</td>"
NB = NB & "</tr>"
NB = NB & "</table>"
NB = NB & "</font>"
NB = NB & "</body>"
NB = NB & "</html>"
Set objMail = Server.CreateObject("JMail.message")
objMail.From = "apoteket@albertslundapotek.dk"
objMail.AddRecipient email
objMail.Subject = "Nyhedsbrev fra Albertslundapotek.dk"
objMail.HTMLBody = NB
objMail.Send("mail.albertslundapotek.dk")
Set objMail = Nothing
objNB.movenext
Wend
Response.write "Nyhedsbrevet er sendt"
end if
%>
</p>
<form name="form1" method="post" action="nyhedsbrev0111.asp?status=send">
<p>1. Indhold på <strong>nyhed</strong> der skal udsendes:<br>
<textarea name="emneindhold" cols="60" rows="20"></textarea>
</p>
<p> </p>
<p>2. Indhold på <strong>aktivitet</strong> der skal udsendes:<br>
<textarea name="emneindhold2" cols="60" rows="20"></textarea>
</p>
<p> </p>
<p>3. Indhold på <strong>job</strong> der skal udsendes:<br>
<textarea name="emneindhold3" cols="60" rows="20"></textarea>
</p>
<p> </p>
<p><input type="submit" name="Submit" value="Send"> </p>
<p><br>
</p>
<p> </p>
</form>
</body>
