Astrologyindia.info

Send us your Enquiry
<% If Request.Form="" Then %>

Name
E-Mail
DETAILS
   
 
<% Else 'receive the form values Dim sName, sEmail, sFeedback sName=Request.Form("txtName") sEmail=Request.Form("txtEmail") sFeedback=Request.Form("txtFeedback") ' create the HTML formatted email text Dim sEmailText sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "HTML Email" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "Feedback message from: " & sName & "
" sEmailText = sEmailText & "Email ID: " & sEmail & "
" sEmailText = sEmailText & "Message:" & sFeedback & "
" sEmailText = sEmailText & "Date & Time:" & Now() & "
" sEmailText = sEmailText & "IP :" & Request.ServerVariables("REMOTE_ADDR") sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" 'create the mail object Set NewMailObj=Server.CreateObject("CDONTS.NewMail") NewMailObj.From="AstrologyIndia@astrologyindia.info" NewMailObj.To = "jyodhisham@gmail.com" NewMailObj.Subject = "Enquiry from AstrologyIndia.Info" NewMailObj.Body = sEmailText NewMailObj.BodyFormat = 0 NewMailObj.MailFormat = 0 NewMailObj.Send Set NewMailObj=Nothing Response.write "
Thanks for your Enquiry.
" Response.write "We will get back to you shortly.
" End If %>