SCHIMKE
04-24-2003, 06:37 PM
In an MC called "contact" on my _root. In this "contact" MC, I have a simple form with three dynamic text fields with these variable names attached: "email" "name" "subject".
I then have a hidden dynamic text field called "toemail", I have done this so I can use the MC a bunch of times and just change that hidden field so I can have it send the info to different email address, all the while using the same ASP script..
I have been hacking at this thing for months and I'm about to lose control...
How have I butchered this ASP so it won't work!?!?!
any help you can provide, even a "your way off!" would help.
Thankyou,
Schimke
<%
Name = Request.form("Name")
Email = Request.form("Email")
Subject = Request.form("Subject")
strName = "Your Name"
strEmail = "YourEmail@YourSite.com"
strSubject = "Tutorial Request Example Email"
strBody = ToComments & HearAbout & Company
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.innerhost.com"
Mailer.FromName = FirstName
Mailer.FromAddress = Email
Mailer.AddRecipient strName, strEmail
Mailer.Subject = (strSubject)
Mailer.BodyText = strBody
if Mailer.SendMail then
Response.Write "_root.Mail.EmailStatus=Complete - Your mail has been sent"
else
Response.Write "_root.Mail.EmailStatus=Failure - Your mail was not sent - errors"
Response.Write Mailer.Response
end if
%>
I then have a hidden dynamic text field called "toemail", I have done this so I can use the MC a bunch of times and just change that hidden field so I can have it send the info to different email address, all the while using the same ASP script..
I have been hacking at this thing for months and I'm about to lose control...
How have I butchered this ASP so it won't work!?!?!
any help you can provide, even a "your way off!" would help.
Thankyou,
Schimke
<%
Name = Request.form("Name")
Email = Request.form("Email")
Subject = Request.form("Subject")
strName = "Your Name"
strEmail = "YourEmail@YourSite.com"
strSubject = "Tutorial Request Example Email"
strBody = ToComments & HearAbout & Company
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.innerhost.com"
Mailer.FromName = FirstName
Mailer.FromAddress = Email
Mailer.AddRecipient strName, strEmail
Mailer.Subject = (strSubject)
Mailer.BodyText = strBody
if Mailer.SendMail then
Response.Write "_root.Mail.EmailStatus=Complete - Your mail has been sent"
else
Response.Write "_root.Mail.EmailStatus=Failure - Your mail was not sent - errors"
Response.Write Mailer.Response
end if
%>