<%
If Request.Form="" Then %>
<%
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" 'This is the email of the feedback sender
NewMailObj.To = "jyodhisham@gmail.com" 'change to your address
NewMailObj.Subject = "Feedback from AstrologyIndia.Info"
NewMailObj.Body = sEmailText
'you need to add these 2 lines for the mail to be sent in HTML format
'remove them and the email will be sent in Text format
NewMailObj.BodyFormat = 0
NewMailObj.MailFormat = 0
NewMailObj.Send
Set NewMailObj=Nothing
Response.write "
Thank you for sending your feedback. "
Response.write "We will get back to you if necessary.
