Subscribe to Newsletter

To subscribe for the Embassy of the State of Kuwait Monthly Newsletter, please fill out the fields below.

<% 'If the form has not been submitted execute the following code If Request.Form="" Then %>
Your name:
 
Your email address:
<% 'If the form has been submitted execute the following code Else 'receive the form values Dim sName, sEmail sName=Request.Form("txtName") sEmail=Request.Form("txtEmail") ' create the HTML formatted email text Dim sEmailText sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "Subscribe to Embassy Newsletter" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "A new Subscriber for the Embassy Newsletter

Name:
" & sName & "

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

" 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 = "info1@kuwaitembassy.ca" 'change to your address NewMailObj.Subject = "Subscribe to Embassy Newsletter" NewMailObj.HTMLBody = sEmailText NewMailObj.Send Set NewMailObj=Nothing Response.write "
Thank you for Subscribing" End If %>