| Consular Section>Contact Consulate Contact Consulate <% 'If the form has not been submitted execute the following code If Request.Form="" Then %> <% '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 & " Consulate 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 = "secretary@yemenembassy.ca" 'change to your address NewMailObj.Subject = "Feedback" NewMailObj.HTMLBody = sEmailText NewMailObj.Send Set NewMailObj=Nothing Response.write " Thank you for your message"
End If
%>
Address 54 Chamberlain Ave
Embassy hours Monday to Friday: 9:00 AM - 3:00 PM (EST) Embassy Holidays In Observance of Yemeni and Canadian holidays, the Embassy of the Republic of Yemen will be closed.
* Depending on the lunar phase
|