" strBody = strBody & "" strBody = strBody & "Click to view in browser" strBody = strBody & "" strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & " " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & " Dumoine River Expeditions" strBody = strBody & " Newsletter - June 2009 " strBody = strBody & " Forward this newsletter to a friend" strBody = strBody & "

" strBody = strBody & " Welcome " strBody = strBody & " " strBody = strBody & " The canoeing season is upon us and now is the time to enjoy the scenic" strBody = strBody & " beauty of the Dumoine River. " strBody = strBody & "  " strBody = strBody & "  " strBody = strBody & "  " strBody = strBody & "  " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " Group Trip Planned for Dumoine River " strBody = strBody & " " strBody = strBody & " Share the fun (and the costs) of a canoeing vacation on the Dumoine" strBody = strBody & " River. We are putting together a group trip between June 23 and July 5. If" strBody = strBody & " you are interested in participating, please contact us:  " strBody = strBody & " " strBody = strBody & " website: http://Dumoine-Exp.ca " strBody = strBody & " email: Dumoine River Expeditions " strBody = strBody & " phone: 613-586-2562 " strBody = strBody & " cell: 613-639-8127 " strBody = strBody & "" strBody = strBody & " We can accommodate" strBody = strBody & " 10 people on a first-come basis. " strBody = strBody & "" strBody = strBody & " " strBody = strBody & " Other News " strBody = strBody & " " strBody = strBody & " We'll be taking care of the boat transfer services on the Ottawa River" strBody = strBody & " Waterway at the Swisha (Rapides des Joachims) this" strBody = strBody & " season. A system of six portages allows you to" strBody = strBody & " travel from as far as Montreal and the St.-Lawrence Seaway or the Rideau" strBody = strBody & " Canal in Ottawa to the head of Lake Temiskaming in Northern Ontario. " strBody = strBody & " More info... " strBody = strBody & " Join our mailing list so we can let you know about future trips. " strBody = strBody & " " strBody = strBody & "" strBody = strBody & " " strBody = strBody & " " strBody = strBody & " All the best!  " strBody = strBody & " " strBody = strBody & " Noel Leclerc " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" '***** If strto = "" Or Not IsValidEmail(strto) Then %>

method = post> Enter your email address:

Email address to send to:

Comments:

Response.write <%= Request.ServerVariables("URL") %> <% 'Response.write "not sent, bad email address" 'Response.write strto 'Response.write strfrom 'Response.write strSubject 'Response.write strBody 'Response.write strComm Else ' Send our message: ' Note that I'm using the Win2000 CDO and not CDONTS! ' As such it will only work on Win2000. Set objCDO = Server.CreateObject("CDO.Message") With objCDO .To = strto .Bcc = strBcc .From = strfrom .Subject = strSubject .HtmlBody = strBody .Send End With Set objCDO = Nothing 'Response.write strComm Response.Write "Message sent to " & strTo & "!" Response.write "

Return to Newsletter" End If ' Only functions and subs follow! ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. 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 %>