Avatar billede malte Nybegynder
11. august 2002 - 22:39 Der er 4 kommentarer og
1 løsning

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&aelig;rkedage p&aring; Counselor.dk.
      Jeg har valgt, som skrevet i den sidste nyhedsmail at kun sende en gang
      om ugen. Vi er jo blevet s&aring; mange at der nogen gange er 5 om dagen
      der har m&aelig;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 %>
Avatar billede easysoft_studios Nybegynder
11. august 2002 - 22:45 #1
du mangler et end if et sted... kan bare ikke finde ud af hvor
Avatar billede malte Nybegynder
11. august 2002 - 23:04 #2
Prøver med lidt flere point :-)
Avatar billede kovalt Nybegynder
11. august 2002 - 23:18 #3
har du prøvet med et end if i linie 44
Avatar billede malte Nybegynder
11. august 2002 - 23:23 #4
Ja virker ikke
Avatar billede malte Nybegynder
07. december 2002 - 20:25 #5
lukker
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester