Contact Consulate

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

To Contact the Embassy of the State of Kuwait regarding Consular services, please fill out the fields below.

Your name:
 
Your email address:
Regarding:
 
Subject:
 
<% 'If the form has been submitted execute the following code Else 'receive the form values Dim sName, sEmail, sRegarding, sSubject sName=Request.Form("txtName") sEmail=Request.Form("txtEmail") sRegarding=Request.Form("txtRegarding") sSubject=Request.Form("txtSubject") ' create the HTML formatted email text Dim sEmailText sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "Contact Consulate" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "A new Regard from the website Contact Consulate Form page

Name:
" & sName & "

" sEmailText = sEmailText & "E-mail:
" & sEmail & "

" sEmailText = sEmailText & "Regarding:
" & sRegarding & "

" sEmailText = sEmailText & "Subject:
" & sSubject & "

" 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 = "consul@kuwaitembassy.ca" 'change to your address NewMailObj.Subject = "Contact Consulate" NewMailObj.HTMLBody = sEmailText NewMailObj.Send Set NewMailObj=Nothing Response.write "
Thank you for your request. Your request has been received successfully. We will get back to you as soon as possible." End If %>