autonavn i email
Hvem kan hjælpe mig med det her script?Jeg har brug for navnet på modtageren kommer nede i tabellen og ikke helt øverst i mailen (oven på banneret). Hvis du kan lave hele scriptet mere simpelt ville det være godt (jeg er ikke den største haj)
Jeg kan ikke finde ud af hvordan jeg laver udtræk fra databasen og får det ind i body på mailen?
<%
if request("cmdSend") <> "" then
sSubject = request("txtSubject")
sFrom = request("txtFrom")
sGetBody = request("txtBody")
if request("chkNotification") <> "" then sFilter = " WHERE subNotifications = True"
if request("chkNewsletter") <> "" then
if len(sFilter) <> 0 then
sFilter = sFilter & " OR subNewsletter = True"
else
sFilter = " WHERE subNewsletter = True"
end if
end if
if request("chkAllUsers") <> "" then sFilter = ""
OpenDB sConnUsers
if (request("chkAllUsers") <> "") OR (request("chkNotification") <> "") OR (request("chkNewsletter") <> "") then
sSQL = "SELECT * FROM Users" & sFilter
rs.Open sSQL,,,adCmdTable
response.write "<br>Beginning MailSender Sequence...<br><br>"
do while not rs.eof or rs.bof
sFirstName = rs("FirstName")
sTo = rs("eMail")
sBody = "Hej " & sFirstName & " " & sGetBody
SendJMail sTo, sSubject, sBody, sFrom, sFromName
'SendCDOMail sTo, sSubject, sBody, sFrom
response.write "Mail sent to:: " & rs("UserName") & ":: " & sTo & "<br>"
rs.movenext
loop
response.write "<br>All mails sent! <a href=""sendmail.asp"">Click here</a> to return to MailSender."
rs.Close
end if
strFra = "Counselor.dk" ' Skal rette til FRA
strBesked = sGetBody
if request("chkSMSNewsletter") <> "" then
strSQL = "SELECT mobil FROM users WHERE (SMSMD = true) AND (Mobil<>'');"
rs.Open strSQL,,,adCmdTable
do while not rs.EOF
Response.write SMSsender(rs("mobil"),strFra,strBesked) & "<br>"
rs.movenext
loop
end if
'rs.Close
%>
<!--#include virtual="/dev/_footer.asp"-->
<%
response.end
end if
%>
<br>
<p class="smallaction"> MailSenderen</p>
Alt hvad du skriver herunder bliver sendt til alle brugerne<br>
<br>
<strong>Brugernes fornavn kommer automatisk ind i mailen.</strong> <form action="sendmail.asp" method="post">
<table border=0><table border=0>
<tr>
<td class="smallerheader">Subject</td>
<td><input type="text" name="txtSubject" class="tbflat" value="<%=sSubject%>"></td>
</tr>
<tr>
<td class="smallerheader">From</td>
<td><input type="text" name="txtFrom" class="tbflat" value="<%=sFrom%>"></td>
</tr>
<tr>
<td class="smallerheader">Body</td>
<td><textarea cols=40 rows=5 name="txtBody" class="tbflat"><%=sBody%>
<table width="600" align="center" border="2" bordercolor="#0033FF" bgcolor="#33CCFF">
<tr>
<td>
<div align="center"><a href="http://www.counselor.dk"><img src="http://www.counselor.dk/dev/bannere/banner2.jpg" width="468" height="60" border="0"></a></div>
</td>
</tr>
<tr>
<td>
Hej (hvordan får jeg et fornavn her??) her har du den kommende uges mærkedage på Counselor.dk.
Jeg har valgt, som skrevet i den sidste nyhedsmail at kun sende en gang
om ugen. Vi er jo blevet så mange at der nogen gange er 5 om dagen
der har mærkedag, og det bliver jo til en del mails.</td>
</tr>
