fornavn i mailliste
Hvorfor kommer der intet fornavn i starten af 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
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 = replace(sGetBody, \"*FirstName*\", sFirstName)
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.\"
%>
