asp mail

Hvad får du af fejl?

Jeg ved ikke om det er det men prøv:

<%
Dim Navn
Navn = Request.QueryString ("Navn")
Dim Email
Email = Request.QueryString("Email")
Dim Tlf
Tlf = Request.QueryString("Tlf")
Dim Adresse
Adresse= Request.QueryString("Adresse")
Dim Postnr
Postnr = Request.QueryString("Postnr")
Dim By
By = Request.Form("By")


Folder = Request.QueryString("var_Folder")
if Folder = 1 then
    Folder = "ja"
else
    Folder = "nej"
end if

if Email = "??" or Email = "" then Email = "zuq@zuq.dk"

strEmail = "zuq@zuq.dk"
strEmail = "e-taskcenter@e-taskcenter.dk"

strSubject = "Meddelelse fra e-taskcenter.dk"
strBody = "<B>Meddelelse fra e-taskcenter.dk</B><BR><BR><B>Navn:</B> " & Navn & "<BR><B>E-mail: </B>" & Email & "<BR><B>Lever: </B>" & Lever& "<BR><B>Afhent: </B>" & Afhent& "<BR><B>Tlf: </B>" & Tlf & "<BR><B>Adresse: </B>" & Adresse & "<BR><B>Postnr: </B>" & Postnr & " <B>By: </B>" & By & "<B>Dato: </B>" & Dato & "<BR><B>Jukebox: </B>" & Juke & "<BR><B>Brochure: </B>" & Blad

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")


Mailer.FromAddress = Email
Mailer.FromName = Navn
Mailer.AddRecipient strEmail
Mailer.Subject = strSubject
Mailer.ContentType = "text/html"
Mailer.Body = strBody



if not Mailer.Send("mail.zuq.dk" ) then
    Response.Write "Der opstod en fejl og din bestilling blev ikke sendt - kontakt venligst eTASKCENTER !"
    Response.write "<pre>" & Mailer.log & "</pre>"
else
    Response.Write "Tak for din meddelelse - du hører snarest fra os!"
    Response.Redirect ("http://www.e.taskcenter.dk")
end if

set Mailer=nothing
%>

Din response.redirect i bunden skal nok ændres til

Response.Redirect ("http://www.e-taskcenter.dk")

... og har du husket at definere variablerne "blad", "juke" og "dato"???

og "afhent" og "lever"????

fejl:

<%
Dim Navn
Navn = Request.QueryString ("Navn")
Dim Email
Email = Request.QueryString("Email")
Dim Tlf
Tlf = Request.QueryString("Tlf")
Dim Adresse
Adresse= Request.QueryString("Adresse")
Dim Postnr
Postnr = Request.QueryString("Postnr")
Dim By
By = Request.Form("By")


Folder = Request.QueryString("var_Folder")
if Folder = 1 then
    Folder = "ja"
else
    Folder = "nej"
end if

if Email = "??" or Email = "" then Email = "zuq@zuq.dk"

strEmail = "zuq@zuq.dk"
strEmail = "e-taskcenter@e-taskcenter.dk"

strSubject = "Meddelelse fra e-taskcenter.dk"
strBody = "<B>Meddelelse fra e-taskcenter.dk</B><BR><BR><B>Navn:</B> " & Navn & "<BR><B>E-mail: </B>" & Email & "<BR><B>Lever: </B>" & Lever& "<BR><B>Afhent: </B>" & Afhent& "<BR><B>Tlf: </B>" & Tlf & "<BR><B>Adresse: </B>" & Adresse & "<BR><B>Postnr: </B>" & Postnr & " <B>By: </B>" & By & "<B>Dato: </B>" & Dato & "<BR><B>Jukebox: </B>" & Juke & "<BR><B>Brochure: </B>" & Blad

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")


Mailer.FromAddress = Email
Mailer.FromName = Navn
Mailer.AddRecipient strEmail
Mailer.Subject = strSubject
Mailer.ContentType = "text/html"
Mailer.Body = strBody



if not Mailer.Send("mail.zuq.dk" ) then
    Response.Write "Der opstod en fejl og din bestilling blev ikke sendt - kontakt venligst eTASKCENTER !"
    Response.write "<pre>" & Mailer.log & "</pre>"
else
    Response.Write "Tak for din meddelelse - du hører snarest fra os!"
    Response.Redirect ("http://www.e.taskcenter.dk")
end if

set Mailer=nothing
%>

UPS forkert!!!!

Fejl:

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'Mailer.AddRecipient'

/ASPmail.asp, line 37

Har fundet en...:

<%
Dim Navn
Navn = Request.QueryString ("Navn")
Dim Email
Email = Request.QueryString("Email")
Dim Tlf
Tlf = Request.QueryString("Tlf")
Dim Adresse
Adresse= Request.QueryString("Adresse")
Dim Postnr
Postnr = Request.QueryString("Postnr")
Dim By
By = Request.Form("By")


Folder = Request.QueryString("var_Folder")
if Folder = 1 then
    Folder = "ja"
else
    Folder = "nej"
end if

if Email = "??" or Email = "" then Email = "zuq@zuq.dk"

strEmail = "zuq@zuq.dk"
strEmail = "e-taskcenter@e-taskcenter.dk"

strSubject = "Meddelelse fra e-taskcenter.dk"
strBody = "<B>Meddelelse fra e-taskcenter.dk</B><BR><BR><B>Navn:</B> " & Navn & "<BR><B>E-mail: </B>" & Email & "<BR><B>Lever: </B>" & Lever& "<BR><B>Afhent: </B>" & Afhent& "<BR><B>Tlf: </B>" & Tlf & "<BR><B>Adresse: </B>" & Adresse & "<BR><B>Postnr: </B>" & Postnr & " <B>By: </B>" & By & "<B>Dato: </B>" & Dato & "<BR><B>Jukebox: </B>" & Juke & "<BR><B>Brochure: </B>" & Blad

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")


Mailer.FromAddress = Email
Mailer.FromName = Navn
Mailer.AddRecipient = strEmail
Mailer.Subject = strSubject
Mailer.ContentType = "text/html"
Mailer.Body = strBody



if not Mailer.Send("mail.zuq.dk" ) then
    Response.Write "Der opstod en fejl og din bestilling blev ikke sendt - kontakt venligst eTASKCENTER !"
    Response.write "<pre>" & Mailer.log & "</pre>"
else
    Response.Write "Tak for din meddelelse - du hører snarest fra os!"
    Response.Redirect ("http://www.e.taskcenter.dk")
end if

set Mailer=nothing
%>


Ralle

Du have skrevet Mailer.AddRecipient strEmail tror da det skal være
Mailer.AddRecipient = strEmail

Fundet en hvad?
Hvad er fejlen?

Du have skrevet Mailer.AddRecipient strEmail det skal være
Mailer.AddRecipient = strEmail

Fundet en fejl...

nej det er ikke fejlen:
Mailer.AddRecipient strEmail

skal der ikke stå = strEmail ?

Du have skrevet Mailer.AddRecipient strEmail det skal være
Mailer.AddRecipient = strEmail


virker det for dig?

jeg har ikke prøvet

hvordan kan du så sige hvad fejlen er?

jeg sagde hvad jeg troede det var

nåh, ok...men lortet virker overhovedet ikke!!

pis

Du skal kalde AddRecipient sådan her:
Mailer.AddRecipient "John Smith", "jsmith@someisp.com" 


Så det skal være noget med:
Mailer.AddRecipient "navn", strEmail

hmm - ok