<%@LANGUAGE="VBSCRIPT"%> <% Dim iMsg Dim iConf Dim Flds Const cdoSendUsingPickup = 1 if request("formcomplete") = "true" then strTo = "database@maharaj.org" strFrom = "postmaster@maharaj.org" strSubject = "Volunteer Submission" strBody = "This user has filled out the Volunteer Form:

" & request("title") & " " & request("firstName") & " " & request("lastName") & "

" & request("email") & "

" & request("phone") strBody = strBody & "

" strBody = strBody & request("address") strBody = strBody & "
" strBody = strBody & request("town") strBody = strBody & " " strBody = strBody & request("province") strBody = strBody & "
" strBody = strBody & request("country") strBody = strBody & "
" strBody = strBody & request("postalCode") if request("canada") <> "" then canada = "Yes" else canada = "No" end if if request("diplomacy") <> "" then diplomacy = "Yes" else diplomacy = "No" end if if request("sport") <> "" then sport = "Yes" else sport = "No" end if if request("philanthropy") <> "" then philanthropy = "Yes" else philanthropy = "No" end if if request("other") <> "" then otherType = "Yes -- " & request("otherType") & "" else otherType = "No" end if strBody = strBody & "

I am interested in:" strBody = strBody & "

Canada: " & canada strBody = strBody & "

Diplomacy: " & diplomacy strBody = strBody & "

Sport: " & sport strBody = strBody & "

Philanthropy: " & philanthropy strBody = strBody & "

other (specify): " & otherType 'For CDOSYS, the pickup directory is located at c:\inetpub\mailroot\pickup. ' Const strPickup = "c:\inetpub\mailroot\pickup" Const strPickup = "c:\inetpub\mailroot\pickup" 'Create the message object. Set iMsg = CreateObject("CDO.Message") 'Create the configuration object. Set iConf = iMsg.Configuration With iConf.Fields .item( "http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup .item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = strPickup .Update End With 'Set the To, From, Subject, and Body properties of the message. With iMsg .To = strTo .From = strFrom .Subject = strSubject .HTMLBody = strBody .Send End With Set iMsg = Nothing Response.Redirect("volunteer.asp?formsubmit=true") end if Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function %> Akaash Maharaj - Volunteer



The heart of my vision for the public good is the ideal of civic participation in the democratic process.

I believe it is, therefore, an imperative that my projects be entirely inclusive and driven by the talents and participation of people from across geography and walks of life.

<% if request("formsubmit") = "true" then else %>

If you would like to collaborate in any of my projects, or would simply like to keep in touch, please fill out the form below as completely as you wish, and I will contact you as soon as I am able.

Title

First Name

Last Name

E-mail required

Phone

Address

Town

Province

 

Postal Code

   
I am interested in:
 Canadian public policy
 International affairs and diplomacy
 Tent pegging and equestrian sport
 Philanthropic projects
 other (specify)
   

 

<% end if %>

I value my relationship with my supporters and correspondents, and will not pass your information on to third parties. You may wish to view my privacy statement for full details of my policy in this regard.

You can also contact my office for additional information on how you can volunteer.


















Privacy Policy