Avatar billede 3dmaxer.dk Nybegynder
31. juli 2001 - 17:45 Der er 4 kommentarer og
1 løsning

ASPmail

Hvad mangler jeg før det virker?`Kan i se nogle mangler/fejl i dette aspmail:

Set Conn = Server.CreateObject(\"ADODB.Connection\")
conStr = \"Provider=Microsoft.Jet.OLEDB.4.0;\"
conStr = conStr & \"Data Source=stien til db\"
Conn.Open conStr
    SQL = \"SELECT * from tabel\"
    set sendt = conn.execute( SQL )
    do while not send.eof
    on error resume next
        Set Mail = Server.CreateObject(\"SMTPsvg.Mailer\")

Mail.FromName = \"mig\"
Mail.Fromaddress = \"webmaster@domæne.dk\"

mail.host = \"mail.domæne.dk\"

Mail.Addrecipient sendt(\"email\")
Mail.Subject = request(\"header\")
Mail.Bodytext = request(\"tekst\")
Mail.Sendmail
Set Mail = Nothing
Avatar billede 3dmaxer.dk Nybegynder
31. juli 2001 - 18:11 #1
do while not send.eof
skal være
do while not sendt.eof

men virker stadig ikke
Avatar billede rasmustest Nybegynder
31. juli 2001 - 18:18 #2
mail.host = \"mail.domæne.dk\"
skal være

Mail.host = \"mail.domæne.dk\"

det tror jeg
Avatar billede 3dmaxer.dk Nybegynder
31. juli 2001 - 18:31 #3
Den timer bare ud - sker ingenting

set Mail = Server.CreateObject(\"SMTPsvg.Mailer\")
Mail.FromName = \"mig\"
Mail.FromAddress = \"webmaster@domæne.dk\"
Mail.RemoteHost = \"mail.domæne.dk\"
Mail.AddRecipient sendt(\"email\")
Mail.Subject = request(\"header\")
Mail.BodyText = request(\"tekst\")
Mail.SendMail
Set Mail = Nothing
Avatar billede s_raagaard Nybegynder
31. juli 2001 - 21:58 #4
Prøv denne her, den bør virke.....når du får sat de rigtige værdier ind....

<%
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.RemoteHost = \"mail.domæne.dk\"
Mailer.FromName = \"Mig\"
Mailer.FromAddress = \"webmaster@domæne.dk\"
Mailer.AddRecipient Request(\"MailTilNavn\"), Request(\"MailTilAdresse\")
Mailer.Subject = \"Test mail\"
Mailer.BodyText = Request.QueryString(\"tekst\")
Mailer.CharSet = 2

if not Mailer.SendMail then
  Response.Write \" Mailing Failed... Error is: <br>\"
  Response.Write Mailer.Response
else
  Response.Write \" sent successfully...<p>\"
end if

Set Mailer = nothing
%>



/søren
Avatar billede 3dmaxer.dk Nybegynder
31. juli 2001 - 22:54 #5
det hjalp på det - tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester