aspmailform

Posts: 1 · Posted: Thu Jun 15, 2006 4:49 pm

I set up a form on a web site using the aspmailform.asp but when you hit submit the email we receive is empty. Non of the inputs come in. Can someone help please.

This is what the code looks like.

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Dellacqualaw"
Mailer.FromAddress= "Reception@dellacqualaw.com"
Mailer.RemoteHost = "127.0.0.1"
Mailer.AddRecipient "Name", "Reception@dellacqualaw.com"
Mailer.AddRecipient "Name", "ed@rhinomkt.com"
Mailer.AddExtraHeader "X-MimeOLE:Produced yourdomain.com"
Mailer.Subject = "Contact Us"
Mailer.BodyText = "Enter the body of the message here."
if Mailer.SendMail then
Response.Write "Form information submitted..."
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
set Mailer = Nothing
%>

Thank you,

ED

Posts: 176 · Posted: Sat May 19, 2007 12:30 am

Seems you are missing lines of code, give this a try

Code:

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Dellacqualaw"
Mailer.FromAddress= "Reception@dellacqualaw.com"
Mailer.RemoteHost = "mail.dellacqualaw.com" OR the 127.0.0.1
Mailer.AddRecipient "Name", "Reception@dellacqualaw.com"
Mailer.AddRecipient "Name", "ed@rhinomkt.com"
Mailer.AddExtraHeader "X-MimeOLE:Produced dellacqualaw.com"
Mailer.Subject = "Contact Us"

strMsgHeader = "Form information follows" & vbCrLf
for each qryItem in Request.Form
strMsgInfo = strMsgInfo & qryItem & " - " & request.Form(qryItem) & vbCrLf
next
strMsgFooter = vbCrLf & "End of form information"

Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter

if Mailer.SendMail then
Response.Write "Thanks for sending the info!"
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
set Mailer = Nothing
%>