> Det er umuligt at svare på hvis du ikke sender (noget af) din kode med.
Her er den komplette kildekode:
<%
SetLocale("da")
emne = Request.Form("emne")
tekst = Request.Form("tekst")
If Len(emne) > 3 and Len(tekst) > 10 Then
set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true
msg.From = "Min emailadresse"
msg.FromName = "Firmaet"
set conn = server.createobject("ADODB.connection")
conn.Open "DBQ=" & Server.MapPath("administration\nyhedsbrev.mdb") &
";DefaultDir=" & Server.MapPath("administration") & ";Driver={Microsoft
Access Driver (*.mdb)}"
SQL = "select * from tilmeldte order by email"
' vi sender forespørgslen afsted gennem vores connection object
' og returnerer resultatet i et object der kaldes RS
set RS = conn.execute( SQL )
' spørg om RS tilstand er eof (End Of File)
if RS.eof then
response.write "<p>Fejl: Nyhedsbrev kunne ikke udsendes.</p>"
else
' lav en løkke der looper igennem returnerede records,
' indtil tilstand bliver eof (End Of File)
do while not RS.eof
msg.AddRecipientBCC "" & rs("email") & ""
RS.movenext
loop
end if
Conn.Close
Set Conn = Nothing
msg.Subject = "" & emne & ""
msg.Body = "" & tekst & ""
msg.Send("mail.SERVER.dk")
Response.Write "Nyhedsbrevet er udsendt."
Else
Response.Write "FEJL! Nyhedsbrevet blev ikke udsendt. Der er ikke angivet
enten emne eller tekst. Prøv igen."
End If
%>
--
Venlig hilsen, Rasmus Nielsen.