FeedbackCore Value

 
   

Send us your Feedback.

 
<% If Request.Form="" Then %>


Name
E-mail
Address

Country
Phone No.
Donation For
Gift Value
Cheque/DD No.

Bank
Detail
   
 

<% Else 'receive the form values Dim sName, sEmail, sAddress, sPhno, sDob, sTob, sPob, sFeedback sName=Request.Form("txtName") sEmail=Request.Form("txtEmail") sAddress=Request.Form("txtAddress") sCountry=Request.Form("txtCnt") sPhno=Request.Form("txtPhno") sDonation=Request.Form("txtDns") sGift=Request.Form("txtGft") sChno=Request.Form("txtChqno") sBank=Request.Form("txtBank") 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 & "E mail:" & sEmail & "
" sEmailText = sEmailText & "Address:" & sAddress & "
" sEmailText = sEmailText & "Phone No:" & sPhno & "
" sEmailText = sEmailText & "Country:" & sCountry & "
" sEmailText = sEmailText & "Donation:" & sDonation & "
" sEmailText = sEmailText & "Gift :" & sGift & "
" sEmailText = sEmailText & "Cheque/DD No:" & sChno & "
" sEmailText = sEmailText & "Bank Name:" & sBank & "
" sEmailText = sEmailText & "Feedback:" & sFeedback & "
" 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=sEmail 'This is the email of the feedback sender NewMailObj.To = "boardorg@rediffmail.com" 'change to your address NewMailObj.Subject = "Feedback" 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.
" End If %>  
 

Bureau of Obligate and Accompainer for Rural Development (BOARD)At & P.O: Shahjahanpur
Dist.- Patna – 801 305, Bihar, INDIA
Phone: +91 612 2445627 / 2682698
Mobile: +91 9835252736
Email: boardorg@rediffmail.com