hjælp til aspmail
min kode ser således ud:<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled</title>
</head>
<body>
<%
if Request.querystring("mode") = "mail" then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Fra hjemmesiden"
Mailer.FromAddress= Request.Form("afsMail")
Mailer.RemoteHost = "din.mailserver.dk"
Mailer.AddRecipient Request.Form("modMail"), Request.Form("navn")
Mailer.Subject = Request.Form("emne")
body = ""
body = body & "navn: "& Request.Form("navn") & VbCrLf
body = body & "adresse: "& Request.Form("adr") & VbCrLf
body = body & "postnr: "& Request.Form("post") & VbCrLf
body = body & "by: "& Request.Form("by") & VbCrLf
body = body & "telefon: "& Request.Form("tlf") & VbCrLf
Mailer.BodyText = body
if Mailer.SendMail then
Response.Write "Mail sendt til modtager"
else
Response.Write "Mail fejlede til modtager. Kode: " & Mailer.Response
end if
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Fra hjemmesiden"
Mailer.FromAddress= Request.Form("afsMail")
Mailer.RemoteHost = "din.mailserver.dk"
Mailer.AddRecipient Request.Form("afsMail")
Mailer.Subject = Request.Form("emne")
body = "Tak for din tilmelding" & VbCrLf
body = body & "navn: "& Request.Form("navn") & VbCrLf
body = body & "adresse: "& Request.Form("adr") & VbCrLf
body = body & "postnr: "& Request.Form("post") & VbCrLf
body = body & "by: "& Request.Form("by") & VbCrLf
body = body & "telefon: "& Request.Form("tlf") & VbCrLf
Mailer.BodyText = body
if Mailer.SendMail then
Response.Write "Mail sendt til afsender"
else
Response.Write "Mail fejlede til afsender. Kode: " & Mailer.Response
end if
end if
%>
<form name="myForm" method="post" action="denneSide.asp?mode=mail">
afsender email: <input type="Text" name="afsMail" value=""><br>
modtageremail: <input type="Text" name="modMail" value=""><br>
emne: <input type="Text" name="emne" value=""><br>
navn: <input type="Text" name="navn" value=""><br>
adresse: <input type="Text" name="adr" value=""><br>
postnr.: <input type="Text" name="post" value=""><br>
by: <input type="Text" name="by" value=""><br>
telefon: <input type="Text" name="tlf" value=""><br>
<input type="Submit" value="send">
</form>
</body>
</html>
men jeg får følgende fejl:
Mail fejlede til modtager. Kode: FromAddress Property cannot be blank.
Microsoft VBScript runtime error '800a01c2'
Wrong number of arguments or invalid property assignment: 'AddRecipient'
/eks.asp, line 32
