ManaGifts.com - mothers day flowers,mothers day gift ideas,mothers day personalized gifts,mothers day flowers gifts,mothers day cake ideas,mothers day gift vouchers, mothers day gift hampers, mothers day flowers to india, Flowers, Gifts, Cakes to
Hyderabad,Vizag,Vijayawada,Guntur. More than 10,000 + Gifts. Express Flowers,
Gifts, Cake to Hyderabad within 24 Hours On Any Occasional wise
Gifts,Wedding, Birthday, etc. Send Flowers to India |
Birthday Cakes Gifts to India | Gifts to India
<%
if request.QueryString("flag")= "true" then
name1=request.form("Name")
email=request.form("Email")
phone=request.form("Phone")
url=request.form("url")
country=request.form("Country")
contact=request.form("Contact")
source1=request.form("Source")
datetime=formatdatetime(now())
ip=request.ServerVariables("REMOTE_HOST")
subject = "Reguesting for Business information from "& name1 &" "
dim str
str=str&"
"& vbcrlf
str=str&"
email
"& email &"
"& vbcrlf
str=str&"
Phone No.
"& phone &"
"& vbcrlf
str=str&"
Website Address
"& url &"
"& vbcrlf
str=str&"
country
"& country &"
"& vbcrlf
str=str&"
contact information
"& contact &"
"& vbcrlf
str=str&"
Date Time Stamp
"& datetime &"
"& vbcrlf
str=str&"
source
"& source1 &"
"& vbcrlf
str=str&"
From Ip
"& ip &"
"& vbcrlf
'yourfriendtomail=email
Dim mailObject
Set mailObject= Server.CreateObject("CDO.Message")
mailObject.Subject= subject
mailObject.From = "info@ManaGifts.com"
mailObject.To = "info@ManaGifts.com"
mailObject.HTMLBody = str
mailObject.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mailObject.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
mailObject.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
mailObject.Configuration.Fields.Update
mailObject.Send
set mailObject=nothing
response.Write("Thnaks for Sending Your Request.")
Else
End if
%>
Home
Login
Register
