<% ' Declare variables: Dim objCDO ' Our CDO object Dim strTo ' Strings to hold our email fields Dim strFrom Dim strSubject Dim strBody strAdd = Request.Form("to") ''---Uncomment the lines below to send to this list: strTo = strTo & "ewichman@magma.ca; " strFrom = "Silver Spoon Ski Fest " strSubject = "Reminder - Register Now for 2011 Silver Spoon Ski Fest" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "Reminder: Silver Spoon Ski-Fest" 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 & " " 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 & " " strBody = strBody & "

A Friendly Reminder - register now for the 39th Annual Silver Spoon Ski Fest!
" strBody = strBody & "  
" strBody = strBody & " Date: Saturday February 5th, 2011
" strBody = strBody & " Location: St. Mary's School, Deep River ON/DRXC trails and golf course
" strBody = strBody & " Bib and Sportstats chip pick-up: Saturday February 5th starting at 9am
" strBody = strBody & "  
" strBody = strBody & " Race Times:
" strBody = strBody & " Individual Classic races - 11am
" strBody = strBody & " Mass Start  participation - 1pm
" strBody = strBody & " Skating Sprint Races: 1:45pm

" strBody = strBody & "

Note: There are some changes to categories this year to align with Cross Country Canada's guidelines. 

" strBody = strBody & "

Silver Spoon Buffet - Bear's Den Motel
" strBody = strBody & " Doors open 5:30pm, Buffet 6-8pm Adults $24, Children 6 - 10 yrs $15. Children 5 & under eat free.
" strBody = strBody & " Purchase tickets: with mail-in entry form or at Monica's Pantry 584-3866 (beside LCBO)

" strBody = strBody & "

Orienteering - Sunday Feb 6, 2011 10:30 am - DRXC Chalet
" strBody = strBody & " Ski events (open technique):
" strBody = strBody & " Long (9.4 km)
" strBody = strBody & " Medium (6.5 km)
" strBody = strBody & " Short (3.6 km) ? Snowshoe event (60 minute course)
" strBody = strBody & " Visit Ottawa Orienteering website at http://ottawaoc.ca for details.
" strBody = strBody & "  
" strBody = strBody & " Sportstats will be completing the timing for this year's event.
" strBody = strBody & " You have the choice of registering by:
" strBody = strBody & " - using mail-in entry form or
" strBody = strBody & " - on-line through Events On-line for an additional fee.
" strBody = strBody & "  
" strBody = strBody & " Registration deadlines:
" strBody = strBody & " Mail - Wednesday Feb 2, 2011
" strBody = strBody & " On-line - Thursday Feb 3, 2011
" strBody = strBody & "  
" strBody = strBody & " For more information, visit us at www.silverspoonskifest.com

 

" strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & "
" strBody = strBody & " " strBody = strBody & "
" strBody = strBody & "" strBody = strBody & "
" strBody = strBody & " " strBody = strBody & "
" strBody = strBody & "" strBody = strBody & "" ' Some lines to help you check the formatting of your ' email before you actually start sending it to people. 'Response.Write "
"
'Response.Write Server.HTMLEncode(strbody)
'Response.Write "
" 'Response.End If strAdd = "" Or Not IsValidEmail(strAdd) Then %>
" METHOD="post"> Enter your e-mail address:
<% 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 = strAdd .Bcc = strTo .From = strFrom .Subject = strSubject .HtmlBody = strBody .Send End With Set objCDO = Nothing Response.Write "Message sent to " & strTo & "
" & strAdd & "!" 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 %>