Contacts>Feedback
FEEDBACK
<% 'If the form has not been submitted execute the following code If Request.Form="" Then %>

Please enter your brief message regarding your Concern in the fields provided below:

Your name:
 
Your email address:
Your Concern:

<% 'If the form has been submitted execute the following code 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 & "Yemen Embassy Website,
Feedback message from:
" & sName & "

" sEmailText = sEmailText & "Message:
" & sFeedback & "

" sEmailText = sEmailText & "Date & Time:
" & Now() & "

" sEmailText = sEmailText & "User IP :
" & Request.ServerVariables("REMOTE_ADDR") sEmailText = sEmailText & "" sEmailText = sEmailText & "" 'create the mail object Set NewMailObj=CreateObject("CDO.Message") NewMailObj.From=sEmail 'This is the email of the feedback sender NewMailObj.To = "yeminfo@yemenembassy.ca" 'change to your address NewMailObj.Subject = "Feedback" NewMailObj.HTMLBody = sEmailText NewMailObj.Send Set NewMailObj=Nothing Response.write "
Thank you for your comments, your feedback is important to us." End If %>