>
> Hvad står der i linierne 46 til 56 ?? Når du har noget som ikke virker
> kan du med fordel udkommentere linien hvor det står jmail.send (så
> får du ingen fejl og så skrive nogle response.write sætninger der viser
> indholdet af variabler. Response.Write strAfsender (eller hvad din variabel
> nu hedder)
>
> --
> Med venlig hilsen
> Tom Jensen
>
> Læs mere om databaser og asp her:
>
http://www.FFSoft.dk
Set mail = Server.CreateObject("JMail.SMTPMail") 'Opretter objekt af
JMail-komponent
With mail
ServerAddress = mailserver
Sender = afsender_mail
SenderName = afsender_navn
Subject = subject
Body = body
Priority = priority
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db/database.mdb")
Conn.Open DSN
Set rs = Conn.Execute("SELECT email FROM nyhedsbrev")
If Not rs.EOF Then
Do While Not rs.EOF
AddRecipient(rs("email"))
Response.Write "Sender e-mail til: " & rs("email") & "<br>"
rs.MoveNext
Loop
Else
Response.Redirect("mail_write.asp")
End If
Conn.Close
Set Conn = Nothing
If modtager_liste <> "" Then
HideRecipients = modtager_liste
End If
Execute() 'Sender e-mails
mail.Close()
End With
Set mail = Nothing
Response.Write "Færdig! - Nyhedsbrev sendt"
%>
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials