Send navn med jmail

Skal du ikke bare bruge objSendRS(\"username\"), der hvor navnet skal stå? Ellers forstår jeg det ikke.

Sådan her ??

Dim strBody
        strBody = \"Mailing List: \" & Request.Form(\"txtSubject\") & \"<br> Users on list: \" & intX & \"<br><br>\" & VbCrlf
        strBody = strBody & \"Hej: \" objSendRS(\"username\")
        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>\"

Det her virker ikke :-

Hvad er der galt med det ?? Hvad siger den ?

intern server fejl 500
den er på http://www.counselor.dk/kalenderen/admin/sendmail.asp

Hvad gør denne funktion??
Call SendMail(itmUsers(2, i))

min browser viser ikke andet :-(

det ved jeg ikke ??

Jeg tror den har noget med at mailen indeholder \"antal brugere\" så alle ved hvor mange der er med

Jeg kan ikke forstå dit script. Skal der ikke være en eller anden form for løkke, der skal gå igennem alle de brugere der har valg nyhedsbrev. Men det gør den ikke. Jeg kan ikke hjælpe, desværre.

hvad hvis du får hele scriptet ??
<%@ Language=VBScript %>
<% Response.Expires = 0 %>
<!-- #include file=\"../name.inc\" -->
<!--#include virtual=\"cb top.shtm\" -->
<html>
<head>
<title><%=ForumName%></title>
</head>
<body bgcolor=\"#0099FF\" 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\'\"
        strSendSQL = \"Select * From Users\"

        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 & \"Hej: \" objSendRS(\"username\")
        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 & \" Mærkedagskalenderen\"  \' kan ikke bruges i .From da serveren derved afviser mail-afsenderen ...
      .Subject = \"\" & strSub
      .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>

Den her giver internal server error 500
strBody = strBody & \"Hej: \" objSendRS(\"username\")

Med den måde scriptet er bygget op, er det ikke sådan lige til at skrive brugernavnet i mailen.

Vil du kunne hjælpe mig (mod nogle flere point) hvis du fik ftp adgang ?

strBody = strBody & \"Hej: \" & objSendRS(\"username\")

Jeg har prøvet forskellige muligheder, men kan ikke få et <br> ind uden at få en fejl?
strBody = \"Mailing List: \" & Request.Form(\"txtSubject\") & \"<br> Users on list: \" & intX & \"<br><br>\" & VbCrlf
        strBody = strBody & \"Hej: \" & objSendRS(\"username\") & VbCrlf & VbCrlf    \'her ville jeg gerne have et <br>  :-)
        strBody = strBody & Replace(Request.Form(\"txtMessage\"), VbCrlf, \"<br>\")
        strBody = strBody & \"<br><br><br>---------------------------------------------<br>\" & VbCrlf

erikjacobsen<<< strBody = strBody & \"Hej: \" & objSendRS(\"username\") det virkede :-) jeg mangler bare et <br> bagved (uden det giver en fejl)

strBody = strBody & \"Hej: \" & objSendRS(\"username\")  & \"<br>\"

erikjacobsen<<< Du er en hård mand til det her :-)
Kan du ikke give mig et svar så du kan få nogle point :-)

tjoh -men jeg har jo bare sat et par små tegn rundt omkring

\" I de blindes rige er den enøjede konge\"  :-)