Email error

Er din SMTP-server startet op??

-Cowman

Hele scriptet ligger hos en udbyder (b-one).

<%
Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName  = "Afsenders navn"
Mailer.FromAddress= "afsender@domain.dk"
Mailer.RemoteHost = "mail.domain.dk"


' Her indsættes databaseforbindelse.
' I dette EKSEMPEL hentes data fra en tabel kaldet "mailliste".
' Navn og e-mail adresse ligger i kolonnerne "navn" og "email".

strSQL = "Select * from mailliste"
Set rs = Conn.Execute(strSQL)

Do
  ' Tilføj modtager
  Mailer.AddRecipient rs("navn"), rs("email")
  rs.MoveNext
Loop While Not rs.EOF

Mailer.Subject    = "Dette er en testmail"
Mailer.BodyText  = "Hej med dig" & VbCrLf & "Dette er en test!"

' Send e-mail og skriv status
if Mailer.SendMail then
  Response.Write "Mailen er afsendt..."
else
  Response.Write "Der skete en fejl: " & Mailer.Response
end if

' Fjern objekt igen
Set Mailer = Nothing
%>

Kan du ikke bare bruge det her?

/cotus

Nu har jeg prøvet dit forslag og så får jeg denne fejl:
Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

opret.asp, line 38

System message, messageid = 0x800401f3
Jeg ved ikke om det er min kode der er noget galt med så den sender jeg lige med:

Set emailadr = Server.CreateObject("ADODB.Recordset")
emailadr.Open "SELECT * FROM mailingliste", database

While NOT emailadr.EOF
Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName  = "Afsenders navn"
Mailer.FromAddress= "afsender@domain.dk"
Mailer.RemoteHost = "pasmtp.tele.dk"


Do
  ' Tilføj modtager
  Mailer.AddRecipient emailadr.Fields("email")
  emailadr.MoveNext
Loop While Not emailadr.EOF

Mailer.Subject    = "Dette er en testmail"
Mailer.BodyText  = "Hej med dig" & VbCrLf & "Dette er en test!"

' Send e-mail og skriv status
if Mailer.SendMail then
  Response.Write "Mailen er afsendt..."
else
  Response.Write "Der skete en fejl: " & Mailer.Response
end if

' Fjern objekt igen
Set Mailer = Nothing

Wend
Jeg håber du måske kan se fejlen, eller ligger den hos min udbyder ?

Så vidt jeg kan se, understøtter din udbyder ikke ASPMail - kan det passe?

/cotus

Nej.De understøtter CDonts, men helt præcis hvordan det virker ved jeg ikke.

<%
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")

objCDO.From = "afsender@domain.dk"
objCDO.To = "modtager@domain.dk"
objCDO.Subject = "testmail"
objCDO.Body = "Dette er en testmail afsendt fra www.html.dk."

' -----------------------------------------------------
' * Ekstra egenskaber (valgfrit)

' Modtager af kopi
objCDO.Cc = "modtager2@domain.dk"

' Modtager af blind kopi
objCDO.Bcc = "modtager3@domain.dk"

' Prioritet:  1 = Høj, 2 = Normal (standard), 3 = Lav
objCDO.Importance = 2

' TekstFormat: 0 = HTML, 1 = Text (standard)
objCDO.BodyFormat = 1

' MailFormat: 1 = Mime format, 2 = Text (standard)
objCDO.MailFormat = 2

' Attachment (bemærk stiangivelsen på serveren)
objCDO.AttachFile("c:\inetpub\wwwroot\test.txt")
' -----------------------------------------------------

'send mail
objCDO.Send

' Fjern objekt igen
Set objCDO = Nothing
%>

Sådan sender du en mail med CDonts

Så er jeg tilbage hvor jeg startede med denne fejl:
CDONTS.NewMail.1 error '80020009'

Unable to connect to server

opret.asp, line 64
Ligger fejlen mon hos min udbyder ?

Det ville jeg mene... hvilken udbyder benytter du dig af?

Det er en lille billig en der hedder B-one(www.b-one.dk)

http://www.b-one.dk/smtp.php <- Prøv at læse her...

Ja det har jeg godt nok læst, men jeg ved ikke hvordan det skal kodes ?