<%
dim msg,mailsent
if request.form("timestamp")<>session("timestamp") then
session("timestamp")=request.Form("timestamp")
strMessage = "Dear " & request.Form("txtrecipientname") & ", " & _
"Your friend " & request.Form("txtsendername") & "("& request.Form("txtsenderemail") &") has invited you to visit " & _
" our website " & request.ServerVariables("SERVER_NAME") & "
Message : " & request("xnote")&"
" & _
"Regards, Support Team " & request.ServerVariables("SERVER_NAME")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "MAVP Support Team"
Mailer.FromAddress= "info@microwareinc.net"
'Mailer.RemoteHost = "mail.microwareaudiovideo.com"
Mailer.RemoteHost = "mail.microwareinc.net"
'Mailer.RemoteHost = "localhost"
Mailer.AddRecipient request.Form("txtsendername"), request.Form("txtrecipientemail")
'Mailer.AddRecipient "Manish Bhalla", "mbhalla@xfriday.com"
Mailer.ContentType = "text/html"
Mailer.Subject = request.Form("txtsendername") & " invites you!"
Mailer.BodyText = strMessage
' Set Mailer = Nothing
if Mailer.SendMail then
msg="We have sent a mail to your friend with a link to our website."
mailsent=true
else
msg="The mail couldn't be sent a t this time. Please try again later."
mailsent=false
end if
response.write err.description
end if
%>
<<<< Microware Inc. >>>>
Microware,
Inc. provides IT
professionals and resellers with
a single source for computer
hardware and software products
at competitive prices. Visit our
Reseller page to find out how to
start your account with Microware. >> More
Information...
Microware,
Inc is a state DBE/MBE certified company and
a federal 8(a) firm. We specialize
in serving County, State and
Federal accounts >> More
Information...
Microware
is authorized by Microsoft to offer special pricing
on all of their products to
qualified Educational Institutions. >> More
Information...
