Navn i nyhedsmail

hvis du henter navnet med ud af databasen istedet for kun Email
Så kan du vel i feltet
objMail.HTMLBody = "<Mit HTML>"
indsætte navnet

joee det.. :)  Kan du give et eks?

prøv rette
strSQL = "SELECT Email FROM nyhedsmail"
til
strSQL = "SELECT Email, Navn FROM nyhedsmail"
og rette
objMail.HTMLBody = "<Mit HTML>"
til
objMail.HTMLBody = "<b>Hejsa "&rs("Navn")&"</b>"

og så skal linjen med obhMail.HTMLBody nok sættes ind i den nederste løkke

Oki, det virker ikke helt for mig´.. ( Er ikke så skarp til det med løkker... )

Jeg har det her:
strSQL = "SELECT Email, Navn FROM nyhedsmail"
              Set rs =Conn.Execute(strSQL)
             
            if request.Form("TestMail") = "ON" then
                  arrEmail = request.form("TestMailAdr")
            else
                  arrEmail = rs.GetRows()
            end if
-----------------------------------

Også det du skrev med: objMail.HTMLBody = "<b>Hejsa "&rs("Navn")&"</b>"

Jeg får fejlen at rs("navn") ikke findes... (Item cannot be found in the collection corresponding to the requested name or ordinal. )

strSQL = "SELECT Email,Nevn FROM nyhedsmail"
              Set rs =Conn.Execute(strSQL)
           
            if request.Form("TestMail") = "ON" then
                  arrEmail = request.form("TestMailAdr")
            else
                  arrEmail = rs.GetRows()
            end if
         
         
                     
            Conn.Close
              Set Conn = Nothing
         
            'For num = 0 to Ubound(arrEmail,2)
            '    Response.Write(arrMail)
            'Next
         
    Set objMail = Server.CreateObject("JMail.SMTPMail")
    objMail.Silent = True
    objMail.ServerAddress = "mail.minmailserver.dk"
    objMail.Sender = "minemail@minemail.dk"
    objMail.Subject = "Nyhedsmail" 
 
    For num = 0 to Ubound(arrEmail,2)
      objMail.AddRecipient(arrEmail(0, num))
      objMail.HTMLBody = "HEJ "&arrEmail(0, num)
      If objMail.Execute Then
        Response.Write "<font color=green>" & arrEmail(0, num) & " (" & num & ") OK</font><br>"
      Else
        Response.Write "<font color=red>" & arrEmail(0, num) & " (" & num & ") FEJL</font><br>"
      End If
      objMail.ClearRecipients
    Next
    Set objMail = Nothing

der skal så stå Navn og ikke Nevn
i linjen
objMail.HTMLBody = "HEJ "&arrEmail(0, num)
Er jeg lidt i tvivl om hvordan man hiver navnet ud
Jeg er ikke helt med på hvorfor der er komma i kaldet
prøv evt rette det til
objMail.HTMLBody = "HEJ "&arrEmail(1, num)
og se om det så ikke er navnet

Den fejler desværre stadig ved  " & rs("navn") &"  <p>" & Request.form("indhold") & " i linien med min HTMLBody...

Og stadig med samme fejl:
(Item cannot be found in the collection corresponding to the requested name or ordinal. )

Lav det sådan her...du fik ikke rettet det til som jeg skrev 13:36:09 tror jeg?..
så sådan her :o)
------
strSQL = "SELECT Email,Navn FROM nyhedsmail"
              Set rs =Conn.Execute(strSQL)
         
            if request.Form("TestMail") = "ON" then
                  arrEmail = request.form("TestMailAdr")
            else
                  arrEmail = rs.GetRows()
            end if
       
       
                   
            Conn.Close
              Set Conn = Nothing
       
            'For num = 0 to Ubound(arrEmail,2)
            '    Response.Write(arrMail)
            'Next
       
    Set objMail = Server.CreateObject("JMail.SMTPMail")
    objMail.Silent = True
    objMail.ServerAddress = "mail.minmailserver.dk"
    objMail.Sender = "minemail@minemail.dk"
    objMail.Subject = "Nyhedsmail"

    For num = 0 to Ubound(arrEmail,2)
      objMail.AddRecipient(arrEmail(0, num))
      objMail.HTMLBody = "HEJ "&arrEmail(1, num)
      If objMail.Execute Then
        Response.Write "<font color=green>" & arrEmail(0, num) & " (" & num & ") OK</font><br>"
      Else
        Response.Write "<font color=red>" & arrEmail(0, num) & " (" & num & ") FEJL</font><br>"
      End If
      objMail.ClearRecipients
    Next
    Set objMail = Nothing

prøv det ...men hvor kom request.form("indhold" ) fra?

hehe.. Du får lige den fulde kode...

Tror jeg har lavet det sådan der:
-----------------------------------------------
            strSQL = "SELECT Email, Navn FROM nyhedsmail"
              Set rs =Conn.Execute(strSQL)
             
            if request.Form("TestMail") = "ON" then
                  arrEmail = request.form("TestMailAdr")
            else
                  arrEmail = rs.GetRows()
            end if
           
           
                       
            Conn.Close
              Set Conn = Nothing
           
            'For num = 0 to Ubound(arrEmail,2)
            '    Response.Write(arrMail)
            'Next
           
    Set objMail = Server.CreateObject("JMail.SMTPMail")
    objMail.Silent = True
    objMail.ServerAddress = "mail.minserver.dk"
    objMail.Sender = "minemail.dk"
    objMail.Subject = "Nyhedsmail"
     
   
    For num = 0 to Ubound(arrEmail,2)
      objMail.AddRecipient(arrEmail(0, num))
      objMail.HTMLBody = "<html><head><title></title></head><body vlink='#000000' link='#666666' bgcolor='#000000'><table border='5' bordercolor='#FFFFFF' cellpadding='0' cellspacing='0' width='521' align='center'><tr><td><table border='0' cellpadding='0' cellspacing='0' width='521' height='106'><tr><td><img border='0' src='http://www.hgf-fodbold.dk/image/nyhedsmail_top.gif' width='521'></td></tr><tr><td align='center' height='20' bgcolor='#ffffff'><table border='0' cellpadding='2' cellspacing='0'><tr><td><font face='verdana' size='2' color='000000'><b>Nyhedsmail fra Hørning GF</b><p>Til " & rs("navn") &"  <p>" & Request.form("indhold") & "<p><hr><p>Se de nyeste nyheder her:<a href=http://www.hgf-fodbold.dk/nyheder.asp>Sidste nyt</a><p>Se de nyeste serie 3 kampreferater her:<a href=http://www.hgf-fodbold.dk/s3.asp>Serie 3 kampe</a><p>Se de nyeste serie 5 kampreferater her:<a href=http://www.hgf-fodbold.dk/s5.asp>Serie 5 kampe</a><p>Se Topscorelisten her:<a href=http://www.hgf-fodbold.dk/topscorer.asp>Topscorelisten</a><p><br><p>Med venlig hilsen<br><br>Hørning GF<br><a href=http://www.hgf-fodbold.dk>www.hgf-fodbold.dk</a><hr><div align=center><font size=1 color='000000'>For at blive afmeldt nyhedsmailen <a href=http://www.hgf-fodbold.dk/nyhedsmail.asp>klik da her.</a></font></div></td></tr></table></td></tr></table></td></tr></table></body></html>" &arrEmail(1, num)
      If objMail.Execute Then
        Response.Write "<font color=green>" & arrEmail(0, num) & " (" & num & ") OK</font><br>"
      Else
        Response.Write "<font color=red>" & arrEmail(0, num) & " (" & num & ") FEJL</font><br>"
      End If
      objMail.ClearRecipients
    Next
    Set objMail = Nothing
------------------------------------
Request.form("indhold") kommer fra den foregående side, men den har virket helt fint indtil jeg begyndte med at have navnet med.. ;)

Tak for din tålmodighed...

godt så
Der hvor du skriver rs("navn")
Skal du skrive arrEmail(1,num)

Så virker det weebeeee.. Tusind takker... :) Svar endelig...

svar :o) godt det virker