fejl i mailscript
Jeg får denne fejl, hvorfor????Expected end of statement
/dev/sendmail.asp, line 44
sTop = sTop & "<table width=600 align=center border=2 bordercolor=#0033FF bgcolor=#33CCFF>"
-----^
på denne kode:
<!--#include virtual="/dev/_db.asp"-->
<!--#include virtual="/dev/_send.asp"-->
<!--#include virtual="/dev/sendsms.asp"-->
<%
if request("cmdSend") <> "" then
sSubject = request("txtSubject")
sFrom = "mama@counselor.dk"
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
sTop = sTop & "<table width=600 align=center border=2 bordercolor=#0033FF bgcolor=#33CCFF>"
sTop = sTop & "<tr>"
sTop = sTop & "<td align=center>"
sTop = sTop & "<a href=http://www.counselor.dk><img src=http://www.counselor.dk/dev/bannere/banner2.jpg width=468 height=60 border=0></a>"
sTop = sTop & "</td>"
sTop = sTop & "</tr>"
sTop = sTop & "<tr>"
sTop = sTop & "<td>"
sTop = sTop & "Hej <B>" & sFirstName & "</B><br><br>"
sTop = sTop & sGetBody & "<br><br>"
sTop = sTop & "</td>"
sTop = sTop & "</tr>"
sTop = sTop & "</table>"
sFirstName = rs("FirstName")
sTo = rs("eMail")
sBody = rs("sTop")
'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></tr>
<tr>
<td class="smallerheader">Body</td>
<td><textarea cols=80 rows=20 name="txtBody" class="tbflat"><%=sBody%>
Hej 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.
</textarea></td>
</tr>
<tr>
<td></td>
<td><input type="submit" name="cmdSend" value=" Send " class="cmdflat"></td>
</tr>
<tr>
<td></td>
<td><br><br><input type="checkbox" name="chkNotification" value="1"<%=bNotification%>> Opdateringer/Nyheder</td>
</tr>
<tr>
<td></td>
<td><input type="checkbox" name="chkNewsletter" value="1"<%=bNewsletter%>> Mærkedagshilsner (Mail)</td>
</tr>
<tr>
<td></td>
<td><input type="checkbox" name="chkSMSNewsletter" value="1"<%=bSMSNewsletter%>> Mærkedagshilsner (SMS)</td>
</tr>
<tr>
<td></td>
<td><input type="checkbox" name="chkAllUsers" value="1"<%=bAllUsers%>> Send til ALLE brugere</td>
</tr>
</table>
</form>
<p class="smalleraction">
</p>
<% else 'forkert bruger navn %>
...
<% end if %>
