mailing liste i ASP

du kan finde udemærkede eksempler på dette på siderner

www.netcoders.dk
www.activeserverpages.dk

<%
if request(\"mode\") = \"send\" then
\'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
\'1 = JMAIL
\'2 = CDONTS

mailertype = 1

\'**********************************************

Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"./db/mailing.mdb\")
    SQL = \"SELECT * from mailingliste\"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
if mailertype = 1 then
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        \' This is my local SMTP server
        JMail.ServerAddress = \"xx.xx.dk\"
   
        \' mail config settings
        JMail.Charset = \"iso-8859-1\"
        JMail.ContentTransferEncoding = \"8bit\"
       
        JMail.Sender = \"xx@xx.dk\"
        JMail.Subject = request(\"header\")
        JMail.AddRecipient send(\"email\")
        JMail.Body = request(\"tekst\")
       
        \' 1 - highest priority (Urgent)
        \' 3 - normal
        \' 5 - lowest
       
        JMail.Priority = 3
       
        \' Send it...
        JMail.Execute
        set JMail = nothing
elseif mailertype = 2 then

        \' importance = 0        \' lav
        importance = 1        \' normal
        \' importance = 2        \' høj

        Set mailObj = CreateObject(\"CDONTS.NewMail\")
   
        \' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send \"afsenders emailadresse\", send(\"email\"), request(\"header\"), request(\"tekst\"), importance

        \' slet reference til CDONTS object
        Set mailObj = Nothing
end if



response.write \"<FONT FACE=\'Arial\' SIZE=\'2\' COLOR=\'#000000\'><STRONG>E-mail er sendt til : \"& send(\"email\") &\"</STRONG></FONT><BR>\"
send.movenext
loop
conn.close
else %>

hej wzarlon

er jmail en komponent som man skal
downloade?
tak for et fino svar

obrigado!