ianaldo
12-02-2004, 08:46 AM
I have created an ecard site where the user chooses the ecard done in flash and an email form appears, they enter their details and click send, those details are sent to a file "writetodb.asp", which saves the details such as toName and toEmail to the database called "greetings.mdb" this is then processed from the writetodb.asp file to "sendit.asp"(which is the script below) to send a link to the email the user entered plus a message etc. The reciever then clicks on the link and it takes them to a page called "showmycard.asp" which displays the sent card form the database by varifying the details, but that is not my question, i need someone to have a look at the code below, tell me where am i going wrong.
My site is on http://www.brinkster.com
Its called http://www34.brinkster.com/arsenalfootball
Am i using the correct mail host and server.object etc...........Please Help!!
Thanks in advance
<%
Dim MyMail
Set MyMail = Server.CreateObject("Persits.MailSender")
MyMail.Host = "mail.brinkster.com"
MyMail.IsHTML = True
MyMail.FromName = request.form("fromName")
MyMail.FromAddress = request.form("fromEmail")
MyMail.AddRecipient request.form("toName"), request.form("toEmail")
MyMail.Subject = "Why Hello there!!!"
textstr = textstr + "You've received a card from " + request.form("fromName") + VbCrLf + VbCrLf
textstr = textstr + "Click http://www34.brinkster.com/arsenalfootball/cards/showmycard.asp?m=" + request.form("msgID") + " to view it" + VbCrLf + VbCrLf + "[ You'll need the Flash MX player, which is available at http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0 ]"
MyMail.BodyText = textstr
MyMail.QMessage = True
if not MyMail.SendMail then
Response.write "mailError=1"
else
Response.write "mailError=0"
end if
%>
My site is on http://www.brinkster.com
Its called http://www34.brinkster.com/arsenalfootball
Am i using the correct mail host and server.object etc...........Please Help!!
Thanks in advance
<%
Dim MyMail
Set MyMail = Server.CreateObject("Persits.MailSender")
MyMail.Host = "mail.brinkster.com"
MyMail.IsHTML = True
MyMail.FromName = request.form("fromName")
MyMail.FromAddress = request.form("fromEmail")
MyMail.AddRecipient request.form("toName"), request.form("toEmail")
MyMail.Subject = "Why Hello there!!!"
textstr = textstr + "You've received a card from " + request.form("fromName") + VbCrLf + VbCrLf
textstr = textstr + "Click http://www34.brinkster.com/arsenalfootball/cards/showmycard.asp?m=" + request.form("msgID") + " to view it" + VbCrLf + VbCrLf + "[ You'll need the Flash MX player, which is available at http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0 ]"
MyMail.BodyText = textstr
MyMail.QMessage = True
if not MyMail.SendMail then
Response.write "mailError=1"
else
Response.write "mailError=0"
end if
%>