sendmail.asp

Hvorfor virker den her ikke ??

<%@ Language=VBScript %>
<% Response.Expires = 0 %>

<!-- #include file=\"../name.inc\" //-->

<html>
<head>
<title><%=ForumName%></title>
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\" link=\"#000000\" vlink=\"#333333\" alink=\"#333333\">
<table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
  <tr>
    <td><b><font size=\"7\" color=\"#FF0000\" face=\"Geneva, Arial, Helvetica, san-serif\"><%=SiteName%>
      Administrations omr&aring;de</font></b></td>
    <td valign=\"bottom\" align=\"right\">&nbsp;</td>
  </tr>
  <tr>
    <td colspan=\"2\"><font size=\"2\" face=\"Geneva, Arial, Helvetica, san-serif\"><a href=\"default.asp\">Admin
      Center</a>/Send Mail </font></td>
  </tr>
</table>
<br>
<table width=\"750\" border=\"1\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\" bordercolor=\"#666666\" bgcolor=\"#CCCCCC\">
  <tr>
    <td>
      <table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
        <tr>
          <td width=\"10\">&nbsp;</td>
          <td width=\"483\"> <font size=\"2\" face=\"Geneva, Arial, Helvetica, san-serif\">
            <%
    If Request.Form.Count = 0 Then
%>
            </font>
            <form method=\"post\" action=\"sendmail.asp\">
              <p><font size=\"2\" face=\"Geneva, Arial, Helvetica, san-serif\">Emne:
                <input type=\"text\" name=\"txtSubject\">
                <br>
                Selve beskeden:<br>
                <textarea name=\"txtMessage\" cols=\"60\" rows=\"20\"></textarea>
                </font></p>
              <p> <font size=\"2\" face=\"Geneva, Arial, Helvetica, san-serif\">
                <input type=\"submit\" value=\"Send\" name=\"submit\">
                </font></p>
            </form>
            <font size=\"2\" face=\"Geneva, Arial, Helvetica, san-serif\">
            <%
    Else
        Dim objSendConn, objSendRS, strSendSQL, itmUsers, intX, i
        Set objSendConn = Server.CreateObject(\"ADODB.Connection\")
        objSendConn.Provider = \"Microsoft.Jet.OLEDB.4.0\"
        objSendConn.Open Server.MapPath(\"../user.mdb\")

        strSendSQL = \"Select * From Users Where MailingList=\'True\'\"

        Set objSendRS = Server.CreateObject(\"ADODB.Recordset\")
        objSendRS.Open strSendSQL, objSendConn, 1, 2

        intX = objSendRS.RecordCount
   
        Dim strBody
        strBody = \"Mailing List: \" & Request.Form(\"txtSubject\") & \"<br> Users on list: \" & intX & \"<br><br>\" & VbCrlf
        strBody = strBody & Replace(Request.Form(\"txtMessage\"), VbCrlf, \"<br>\")
        strBody = strBody & \"<br><br><br>---------------------------------------------<br>\" & VbCrlf
        strBody = strBody & \"You are receiving this e-mail because you signed up for the<br>\" & VbCrlf
        strBody = strBody & SiteName & \"mailing list. <br>
        strBody = strBody & \"To be removed, <a href=\'\" & SiteLink & ForumDir & \"remove.asp\'>click here</a>\"

        If Not objSendRS.EOF Then
            itmUsers = objSendRS.GetRows(intX, 0)
   
            For i = 0 To intX - 1
                Call SendMail(itmUsers(2, i))
            Next
        End If

        objSendRS.Close
        objSendConn.Close

        Set objSendRS = Nothing
        Set objSendConn = Nothing
   
    %>
            F&oslash;lgende beskeder er blevet sendt til<%=intX%> brugere<br>
            __________________________Start Besked__________________________<br>
            <br>
            <%=strBody%>
            <%
    End If

    Sub SendMail(strTo)

    Set jMail = Server.CreateObject(\"JMail.message\")
    With jMail
      .AddRecipient strTo
      .From = \"webmaster@counselor.dk\"
      .FromName = SiteName & \"Mailing List<mailinglist>\"  \' kan ikke bruges i .From da serveren derved afviser mail-afsenderen ...
      .Subject = Request.Form(\"txtSubject\")
      .HTMLBody = strBody

\' Hvis bruger ikke kan se html ser han dette ...
\'Body = \"Too bad you can\'t read HTML-mail.\"
\'.appendText \" There would have been a nice picture for you\"

      .Send(\"indee.dk\")
    End With

        Set jMail = Nothing

    End Sub

%>
            </font></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<div align=\"center\"><font face=\"Geneva, Arial, Helvetica, san-serif\" size=\"2\"><br>
  </font> </div>
</body>
</html>