|
 |
 |
|
<%if request.QueryString("mail")<>1 then%>
<%else%>
<%
' ============================================ '
' ======== For Sending mail ============== '
' ============================================ '
txtName=request.form("txtName")
txtAddress=request.form("txtAddress")
txtCity=request.form("txtCity")
txtState=request.form("txtState")
txtCountry=request.form("txtCountry")
txtZip=request.form("txtZip")
txtTel=request.form("txtTel")
txtEmail=request.form("txtEmail")
txtDonation=request.form("txtDonation")
txtAmount=request.form("txtAmount")
txtSpecial=request.form("txtSpecial")
btext = btext & ""
btext = btext & "| Personal Details | | Name | "
btext = btext & txtName
btext = btext & " | | Address | "
btext = btext & txtAddress
btext = btext & " | | City | "
btext = btext & txtCity
btext = btext & " | | State | "
btext = btext & txtState
btext = btext & " | | Country | "
btext = btext & txtCountry
btext = btext & " | | Zip | "
btext = btext & txtZip
btext = btext & " | | Telephone | "
btext = btext & txtTel
btext = btext & " | | Email | "
btext = btext & txtEmail
btext = btext & " | | I wish to direct my donation towards | "
btext = btext & txtDonation
btext = btext & " | | I wish to make a donation of Amount (Rs) | "
btext = btext & txtAmount
btext = btext & " | | I would like to make my donation in honor of someone special (In Memory Of) | "
btext = btext & txtSpecial
btext = btext & " |
"
'Connection with database
Set connect_feed=server.createobject("Adodb.Connection")
set connect_feed=makeconnection()
connect_feed.open
'
set rs_feed=server.CreateObject("adodb.recordset")
str_feed="insert into han_donation(name,address,city,state,country,zip,telephone,email,donation,amount,memory,addedate) values ('"
str_feed=str_feed&txtName&"','"
str_feed=str_feed&txtAddress&"','"
str_feed=str_feed&txtCity&"','"
str_feed=str_feed&txtState&"','"
str_feed=str_feed&txtCountry&"','"
str_feed=str_feed&txtZip&"','"
str_feed=str_feed&txtTel&"','"
str_feed=str_feed&txtEmail&"','"
str_feed=str_feed&txtDonation&"','"
str_feed=str_feed&txtAmount&"','"
str_feed=str_feed&txtSpecial&"','"
str_feed=str_feed&dob2&"')"
rs_feed.open str_feed,connect_feed,3
CloseConnection(connect_feed)
%>
<%'=btext%>
<%
dim oJMail
Set oJMail = Server.CreateObject("JMail.SMTPMail")
with oJMail
.ServerAddress = "220.225.55.66"
.ContentType = "text/html"
.Sender = txtEmail
.AddRecipient "information@hanumanthospital.com"
.Subject = "Donation From www.hanumanthospital.com"
.Body = btext
.Execute
end with
Set oJMail = Nothing
' ============================================ '
' ======== End of Sending mail =========== '
' ============================================ '
' ============================================ '
' === For Sending Auto Response mail ====== '
' ============================================ '
'btext1 = btext1 & ""
'btext1 = btext1 & "Dear "&txtName&",
Thanks for cooperation. Support Team will contact soon.
"
'btext1 = btext1 & "Shree Hanumant Hospital
Nesvad-Devaliya Bypass,
National Highway No 8E,
PO Box No 32,
Mahuva 364 290,
District - Bhavnagar,
Gujarat,
India"
'btext1 = btext1 & "
Telephone No.:+91 2844 224444 / 222752
Email: Sanjeevani@hanumanthospital.com, Dr_Bhise@pidilite.com
lavina.fernandes@pidilite.com, ashwindhirajlal@hotmail.com"
'
'
' Set oJMail = Server.CreateObject("JMail.SMTPMail")
' with oJMail
' .ServerAddress = "mailrelay.terrasite.com"
' .ContentType = "text/html"
' .Sender = "information@hanumanthospital.com"
' .AddRecipient txtEmail
' .Subject = "Autoresponse from Hanumant Hospital"
' .Body = btext1
' .Execute
' end with
' Set oJMail = Nothing
' ============================================ '
' === End of Sending Auto Response mail ====== '
' ============================================ '
%>
<%'=btext1%>
Thank You,
<% =txtName %>
We will get back to you
|
<%end if%> |
| |
| |
|
|
