" & request("title") & " " & request("firstName") & " " & request("lastName") & "
" & request("email") & "
" & request("phone") strBody = strBody & "
"
strBody = strBody & request("address")
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
%>
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 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. 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.
"
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 & "