<%
' 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; "
strTo = strTo & "ab.cameron@sympatico.ca; "
strTo = strTo & "alexander-cook@sympatico.ca; "
strTo = strTo & "alfredjean@sympatico.ca; "
strTo = strTo & "aliciaberthiaume@yahoo.ca; "
strTo = strTo & "alistair.miller@sympatico.ca; "
strTo = strTo & "anginstx@sympatico.ca; "
strTo = strTo & "annamcc@magma.ca; "
strTo = strTo & "anne@teutsch.ca; "
strTo = strTo & "anneseck@primus.ca ; "
strTo = strTo & "annserdula97@yahoo.ca; "
strTo = strTo & "ari.niemi@hotmail.com; "
strTo = strTo & "armstrong_adele@hotmail.com; "
strTo = strTo & "asfletch@hotmail.com; "
strTo = strTo & "atoneguzzo@videotron.ca; "
strTo = strTo & "aubrey.fletcher@sympatico.ca; "
strTo = strTo & "audet.deep@sympatico.ca; "
strTo = strTo & "balakrishnan6370@rogers.com; "
strTo = strTo & "bandanahead@gmail.com; "
strTo = strTo & "bbaxter@swchc.on.ca ; "
strTo = strTo & "bcmz@magma.ca; "
strTo = strTo & "benzwml@magma.ca; "
strTo = strTo & "bernard_pigeon@hotmail.com; "
strTo = strTo & "bevmckeown@rogers.com; "
strTo = strTo & "bgreiner@nrtco.net; "
strTo = strTo & "bgreiner@sympatico.ca; "
strTo = strTo & "bill.gloria@wgacarto.ca; "
strTo = strTo & "bill.meldrum@videotron.ca; "
strTo = strTo & "bill.samulack@magma.ca; "
strTo = strTo & "billcandacegraham@sympatico.ca; "
strTo = strTo & "birdseye2@rogers.com; "
strTo = strTo & "blais.sabourin@videotron.ca; "
strTo = strTo & "bob.winegar@sympatico.ca; "
strTo = strTo & "bobbin@magma.ca; "
strTo = strTo & "bruce.a.w.smith@sympatico.ca; "
strTo = strTo & "bruce.heinmiller@sympatico.ca; "
strTo = strTo & "brunocyr1@yahoo.ca; "
strTo = strTo & "bryan.morris.peng@gmail.com; "
strTo = strTo & "bryan613@sympatico.ca; "
strTo = strTo & "buckner@webhart.net; "
strTo = strTo & "cagramonat@comnet.ca; "
strTo = strTo & "canham@rogers.com; "
strTo = strTo & "caroline.coltman@ocdsb.ca; "
strTo = strTo & "carolinelee@bell.net; "
strTo = strTo & "catherineh@cfrservices.com; "
strTo = strTo & "cathyandbarry@rogers.com; "
strTo = strTo & "catolive.thiriet@gmail.com; "
strTo = strTo & "cbjy@magma.ca ; "
strTo = strTo & "bjerkelu@nrcan.gc.ca; "
strTo = strTo & "ccmarchand@sympatico.ca; "
strTo = strTo & "cgiguere@rogers.com ; "
strTo = strTo & "zachattack@rogers.com; "
strTo = strTo & "charlottevw@sympatico.ca; "
strTo = strTo & "chengq@aecl.ca; "
strTo = strTo & "chengqingwu@yahoo.ca; "
strTo = strTo & "cholstead@rogers.com; "
strTo = strTo & "cjnussbaum@sympatico.ca; "
strTo = strTo & "cjramonat@comnet.ca; "
strTo = strTo & "ckorderas@ongwanada.com; "
strTo = strTo & "claudia.dirk@owl-mkc.ca; "
strTo = strTo & "clemy8giz@gmail.com; "
strTo = strTo & "colingbaird@hotmail.com; "
strTo = strTo & "colinsk@magma.ca; "
strTo = strTo & "coljh@webhart.net; "
strTo = strTo & "colleenadel@yahoo.com; "
strTo = strTo & "cotaras.family@sympatico.ca; "
strTo = strTo & "cthompson@idrc.ca; "
strTo = strTo & "CWZ_mail@yahoo.com; "
strTo = strTo & "dabo4cycle@yahoo.ca; "
strTo = strTo & "dandagoldsmith@rogers.com; "
strTo = strTo & "DANDi@magma.ca; "
strTo = strTo & "daniel.poyser@sympatico.ca; "
strTo = strTo & "daveandkaren44@hotmail.com; "
strTo = strTo & "deabreub@magma.ca; "
strTo = strTo & "dholling@perth.igs.net ; "
strTo = strTo & "burton1940@aol.com; "
strTo = strTo & "djbaron@nrtco.net; "
strTo = strTo & "dondersr@magma.ca; "
strTo = strTo & "duncan.barber@sympatico.ca; "
strTo = strTo & "duong@istar.ca; "
strTo = strTo & "dynamics@magma.ca; "
strTo = strTo & "eadie.family@picanoc.ca; "
strTo = strTo & "ebishop@magma.ca; "
strTo = strTo & "egrall@sympatico.ca; "
strTo = strTo & "emturcotte@hotmail.com; "
strTo = strTo & "erinszumsky@hotmail.com; "
strTo = strTo & "evameyer@videotron.ca; "
strTo = strTo & "eyvind@magma.ca; "
strTo = strTo & "f.guerout@sympatico.ca; "
strTo = strTo & "famille.dionne@sympatico.ca; "
strTo = strTo & "fehrmp@sympatico.ca; "
strTo = strTo & "fiona@ncf.ca ; "
strTo = strTo & "gabriel.q.92@hotmail.com; "
strTo = strTo & "gasconlennie@sympatico.ca; "
strTo = strTo & "george-judy.torrance@sympatico.ca; "
strTo = strTo & "glennlyons6204@yahoo.ca; "
strTo = strTo & "gmtrcs@magma.ca; "
strTo = strTo & "hagberg@sympatico.ca; "
strTo = strTo & "hareg@passport.ca; "
strTo = strTo & "heinz@cyberus.ca; "
strTo = strTo & "hey_you_6@hotmail.com; "
strTo = strTo & "hilbovanw@sympatico.ca; "
strTo = strTo & "holdent@magma.ca; "
strTo = strTo & "hollowayjoy@rogers.com; "
strTo = strTo & "ian.doyle@sympatico.ca; "
strTo = strTo & "iausten@mac.com; "
strTo = strTo & "irenem@magma.ca; "
strTo = strTo & "irinastefanescu08@gmail.com; "
strTo = strTo & "jacques.montcalm@videotron.ca; "
strTo = strTo & "jafelix@magma.ca; "
strTo = strTo & "jandowning@rogers.com; "
strTo = strTo & "jay_serdula@hotmail.com; "
strTo = strTo & "jean.vanwagner@sympatico.ca; "
strTo = strTo & "jeff.jackson@algonquincollege.com ; "
strTo = strTo & "jacksoj@algonquincollege.com; "
strTo = strTo & "jeffeames@rogers.com; "
strTo = strTo & "jenmills@rogers.com; "
strTo = strTo & "jenny@hillsandlakes.com; "
strTo = strTo & "jessygurrl@hotmail.com; "
strTo = strTo & "jetimmer@storm.ca; "
strTo = strTo & "jghobbes@hotmail.com; "
strTo = strTo & "jhare@kingfisherint.com; "
strTo = strTo & "jholden@magma.ca; "
strTo = strTo & "jkearney@magma.ca; "
strTo = strTo & "joan@kalechstein.com; "
strTo = strTo & "john.bowen@rogers.com; "
strTo = strTo & "john.fahey@sympatico.ca; "
strTo = strTo & "john.peirce@gmail.com; "
strTo = strTo & "john.steer@sympatico.ca; "
strTo = strTo & "johnandgillian@rogers.com; "
strTo = strTo & "jtcooper@magma.ca; "
strTo = strTo & "k.weller@magma.ca; "
strTo = strTo & "katieplaunt@hotmail.com; "
strTo = strTo & "kayaker89@hotmail.com; "
strTo = strTo & "kim.merrett@sympatico.ca; "
strTo = strTo & "kirbys@rogers.com; "
strTo = strTo & "kitandjudy@bell.net; "
strTo = strTo & "kjones@magma.ca; "
strTo = strTo & "klukasm@aecl.ca; "
strTo = strTo & "kristenbridges@sympatico.ca; "
strTo = strTo & "kumiko_murasugi@carleton.ca; "
strTo = strTo & "latw@magma.ca; "
strTo = strTo & "laura.chelsea015@hotmail.com; "
strTo = strTo & "lefebvre.brochu@videotron.ca; "
strTo = strTo & "lepage.jean@ville.gatineau.qc.ca; "
strTo = strTo & "lr_guttormson@hotmail.com; "
strTo = strTo & "lwilliams0301@gmail.com; "
strTo = strTo & "m.walter@rogers.com; "
strTo = strTo & "maguiremike@xplornet.com; "
strTo = strTo & "mallorykaren@yahoo.ca; "
strTo = strTo & "marilyn@hadwen.ca; "
strTo = strTo & "marilynlee@sympatico.ca; "
strTo = strTo & "mark@markkulas.ca; "
strTo = strTo & "markusbesemann@videotron.ca; "
strTo = strTo & "marta.bunny@gmail.com; "
strTo = strTo & "mary.gauvreau@gmail.com; "
strTo = strTo & "matthew_cochrane@hotmail.com; "
strTo = strTo & "mbabinski@blgcanada.com; "
strTo = strTo & "mcbridemary@yahoo.ca; "
strTo = strTo & "mcooper@dragonwaveinc.com; "
strTo = strTo & "melindaboor@hotmail.com; "
strTo = strTo & "mikeanddevon@bell.net; "
strTo = strTo & "moncion-groulx@sympatico.ca; "
strTo = strTo & "monikacameron@hotmail.com; "
strTo = strTo & "monique.punt@rogers.com; "
strTo = strTo & "mottershead@fc.renfrew.edu.on.ca; "
strTo = strTo & "mp.charrier@sympatico.ca; "
strTo = strTo & "nadia.bagshaw@sympatico.ca; "
strTo = strTo & "nancymhkennedy@yahoo.ca; "
strTo = strTo & "nathalie.gilbert@sympatico.ca; "
strTo = strTo & "navdeep@rogers.com; "
strTo = strTo & "ncarriere@napacanada.com; "
strTo = strTo & "neale.macmillan@magma.ca; "
strTo = strTo & "njelliot@bell.net; "
strTo = strTo & "nscheier@sympatico.ca; "
strTo = strTo & "ntcblee@sympatico.ca; "
strTo = strTo & "oclark@superaje.com; "
strTo = strTo & "p348brogden@interhop.net; "
strTo = strTo & "patricialoretan@videotron.ca; "
strTo = strTo & "paulchiasson@gmail.com; "
strTo = strTo & "pddavis@magma.ca; "
strTo = strTo & "PeterMGarvey@aol.com; "
strTo = strTo & "philiptownsend@videotron.ca; "
strTo = strTo & "pinept@magma.ca; "
strTo = strTo & "pmhamilton@3web.com; "
strTo = strTo & "pothiern@magma.ca; "
strTo = strTo & "r_deabreu@hotmail.com; "
strTo = strTo & "ray_claire_metcalfe@yahoo.ca; "
strTo = strTo & "rgibsonboule@yahoo.ca; "
strTo = strTo & "rhodes5@magma.ca; "
strTo = strTo & "richard.lap@sympatico.ca ; "
strTo = strTo & "rickmfint@sympatico.ca; "
strTo = strTo & "rmmcgarry@rogers.com; "
strTo = strTo & "robert.smith6@telus.com; "
strTo = strTo & "robinson.perry@gmail.com; "
strTo = strTo & "ronish@magma.ca; "
strTo = strTo & "rosalind.riseborough@sympatico.ca; "
strTo = strTo & "rosspat@sympatico.ca; "
strTo = strTo & "rummensh@magma.ca; "
strTo = strTo & "shelaghandmike@xplornet.com; "
strTo = strTo & "sherri_audet@hotmail.com; "
strTo = strTo & "sjlev@nrtco.net ; "
strTo = strTo & "Stephanie.Levasseur@champlain.ccac-ont.ca; "
strTo = strTo & "ski@kiteloop.com; "
strTo = strTo & "slobodian.family@sympatico.ca; "
strTo = strTo & "smark@magma.ca; "
strTo = strTo & "smctaggart@hotmail.com; "
strTo = strTo & "smithkirstie@hotmail.com; "
strTo = strTo & "spikafamily@gmail.com; "
strTo = strTo & "spinksn@bell.net; "
strTo = strTo & "stefanb@xplornet.com; "
strTo = strTo & "Stephen.Norman@inspection.gc.ca; "
strTo = strTo & "stephenbursey11@yahoo.ca; "
strTo = strTo & "steve.howard@rogers.com; "
strTo = strTo & "stew.penny@sympatico.ca; "
strTo = strTo & "stowe.engineering1@sympatico.ca; "
strTo = strTo & "susantolton@yahoo.com; "
strTo = strTo & "terry_and_alison@hotmail.com; "
strTo = strTo & "thelden@magma.ca; "
strTo = strTo & "thomas.kemp@ocdsb.ca ; "
strTo = strTo & "kemptd@sympatico.ca; "
strTo = strTo & "timothyausten@sympatico.ca; "
strTo = strTo & "todd@chelseafinancial.ca; "
strTo = strTo & "todd@toddevans.com; "
strTo = strTo & "tonybiernacki@sympatico.ca; "
strTo = strTo & "tory@bound2learn.com; "
strTo = strTo & "totland@magma.ca; "
strTo = strTo & "tportmann@jlrichards.ca; "
strTo = strTo & "vanwal-duggan@sympatico.ca; "
strTo = strTo & "vic@veinotte.org; "
strTo = strTo & "whiteblob@hotmail.com; "
strTo = strTo & "whitfield.k@gmail.com; "
strTo = strTo & "x_thetic_canoe@yahoo.ca; "
strTo = strTo & "yues@aecl.ca; "
strTo = strTo & "zengh@sympatico.ca; "




strFrom = "Silver Spoon Ski Fest <ewichman@magma.ca>"

strSubject = "Reminder - Register Now for 2011 Silver Spoon Ski Fest"


strBody = strBody & "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"
strBody = strBody & "<html xmlns=""http://www.w3.org/1999/xhtml"">"
strBody = strBody & "<head>"
strBody = strBody & "<meta http-equiv=""Content-Type"" content=""text/html; charset=UTF-8"" />"
strBody = strBody & "<title>Reminder: Silver Spoon Ski-Fest</title>"
strBody = strBody & "<!--[if IE]>"
strBody = strBody & ""
strBody = strBody & "<style type=""text/css""> "
strBody = strBody & "/* place css fixes for all versions ofIE in this conditional comment */"
strBody = strBody & ".twoColElsLt #sidebar1 { padding-top: 0px; }"
strBody = strBody & ".twoColElsLt #mainContent { zoom: 1; padding-top: 0px; }"
strBody = strBody & "/* the above proprietary zoom property giv es IE the hasLayout it needs to avoid several bugs */"
strBody = strBody & "</style>"
strBody = strBody & "<![endif]-->"
strBody = strBody & "<script language=""JavaScript"">"
strBody = strBody & "<!-- Hide the script from old browsers --"
strBody = strBody & ""
strBody = strBody & "img0_on = new Image(88,34);"
strBody = strBody & "img0_on.src=""images/HomeHL.gif"";"
strBody = strBody & "img0_off = new Image(88,34);"
strBody = strBody & "img0_off.src=""images/Home.gif"";"
strBody = strBody & "  "
strBody = strBody & "img1_on = new Image(101,34);"
strBody = strBody & "img1_on.src=""images/HistoryHL.gif"";"
strBody = strBody & "img1_off = new Image(101,34);"
strBody = strBody & "img1_off.src=""images/History.gif"";"
strBody = strBody & ""
strBody = strBody & "img2_on = new Image(158,34);"
strBody = strBody & "img2_on.src=""images/RaceDetailsHL.gif"";"
strBody = strBody & "img2_off = new Image(158,34);"
strBody = strBody & "img2_off.src=""images/RaceDetails.gif"";"
strBody = strBody & " "
strBody = strBody & "img3_on = new Image(147,34);"
strBody = strBody & "img3_on.src=""images/RegistrationHL.gif"";"
strBody = strBody & "img3_off = new Image(147,34);"
strBody = strBody & "img3_off.src=""images/Registration.gif""; "
strBody = strBody & ""
strBody = strBody & "img4_on = new Image(164,34);"
strBody = strBody & "img4_on.src=""images/RaceResultsHL.gif"";"
strBody = strBody & "img4_off = new Image(164,34);"
strBody = strBody & "img4_off.src=""images/RaceResults.gif""; "
strBody = strBody & ""
strBody = strBody & "img5_on = new Image(101,34);"
strBody = strBody & "img5_on.src=""images/PhotosHL.gif"";"
strBody = strBody & "img5_off = new Image(101,34);"
strBody = strBody & "img5_off.src=""images/Photos.gif""; "
strBody = strBody & ""
strBody = strBody & "img6_on = new Image(104,34);"
strBody = strBody & "img6_on.src=""images/AwardsHL.gif"";"
strBody = strBody & "img6_off = new Image(104,34);"
strBody = strBody & "img6_off.src=""images/Awards.gif"";"
strBody = strBody & ""
strBody = strBody & "img7_on = new Image(87,34);"
strBody = strBody & "img7_on.src=""images/LinksHL.gif"";"
strBody = strBody & "img7_off = new Image(87,34);"
strBody = strBody & "img7_off.src=""images/Links.gif"";"
strBody = strBody & ""
strBody = strBody & ""
strBody = strBody & ""
strBody = strBody & "function over_image(parm_name)"
strBody = strBody & "    {"
strBody = strBody & "        document[parm_name].src = eval(parm_name + ""_on.src"");"
strBody = strBody & "    }"
strBody = strBody & "function off_image(parm_name)"
strBody = strBody & "    {"
strBody = strBody & "        document[parm_name].src = eval(parm_name + ""_off.src"");"
strBody = strBody & "    }"
strBody = strBody & "// --End Hiding Here -->"
strBody = strBody & "</script>"
strBody = strBody & ""
strBody = strBody & "<style type=""text/css"">"
strBody = strBody & "<!--"
strBody = strBody & "#container table tr td .foot {"
strBody = strBody & "	font-family: Verdana, Geneva, sans-serif;"
strBody = strBody & "	font-size: small;"
strBody = strBody & "}"
strBody = strBody & "-->"
strBody = strBody & "</style>"
strBody = strBody & "</head>"
strBody = strBody & ""
strBody = strBody & "<body bgcolor=""#000000"" >"
strBody = strBody & ""
strBody = strBody & ""
strBody = strBody & "<div align=""center"" class=""twoColElsLt"" id=""container"">"
strBody = strBody & "<a href=""http://silverspoonskifest.com/email.html""View on website</a>"
strBody = strBody & ""
strBody = strBody & "  <table width=""950px"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
strBody = strBody & "    <tr>"
strBody = strBody & "      <td>"
strBody = strBody & "      <img src=""http://www.silverspoonskifest.com/images/LeftTop.gif"" width=""248"" height=""372"" hspace=""0"" vspace=""0"" border=""0"" align=""top"" /></td>"
strBody = strBody & "      <td><img src=""http://www.silverspoonskifest.com/images/Main1.gif"" width=""702"" height=""372"" hspace=""0"" vspace=""0"" border=""0"" align=""top"" /></td></tr>"
strBody = strBody & "    <tr valign=""top""> <td width=""248"" height=""750"" bgcolor=""#FFFFFF""><image src=""http://www.silverspoonskifest.com/images/Sponsors.gif"" usemap=""#names"" style=""background-repeat:no-repeat"">"
strBody = strBody & "<map name=""names"">"
strBody = strBody & "<area shape=""rect"" coords=""20,53,228,136"" href=""http://gearheads.ca"" target=""_blank"">"
strBody = strBody & "<area shape=""rect"" coords=""20,145,228,308"" href=""http://bright-ideas-software.com"" target=""_blank"">"
strBody = strBody & "</map>"
strBody = strBody & "    "
strBody = strBody & "    </td>"
strBody = strBody & "     "
strBody = strBody & "      <td width=""702"" height=""750""  bgcolor=""#FFFFFF"" background=""http://www.silverspoonskifest.com/images/Main2.gif"" style=""background-repeat:no-repeat"">"
strBody = strBody & "      <table width=""80%"" align=""center"" cellpadding=""15"" cellspacing=""0""><tr><td width=""800"" height=""750"" align=""left"" valign=""top"" style=""font-family:Verdana, Geneva, sans-serif; vertical-align:top;""><p><strong>A Friendly Reminder</strong> - register now for the 39th Annual Silver Spoon Ski Fest!<br />"
strBody = strBody & "        �<br />"
strBody = strBody & "        Date: Saturday February 5th, 2011<br />"
strBody = strBody & "        Location: St. Mary's School, Deep River ON/DRXC trails and golf course<br />"
strBody = strBody & "        Bib and Sportstats chip pick-up: Saturday February 5th starting at 9am<br />"
strBody = strBody & "        �<br />"
strBody = strBody & "        Race Times: <br />"
strBody = strBody & "        Individual Classic races - 11am<br />"
strBody = strBody & "        Mass Start� participation - 1pm<br />"
strBody = strBody & "        Skating Sprint Races: 1:45pm</p>"
strBody = strBody & "            <p>Note: There are some changes to categories this year to align with Cross Country Canada's guidelines.�</p>"
strBody = strBody & "            <p>Silver Spoon Buffet - Bear's Den Motel<br />"
strBody = strBody & "              Doors open 5:30pm, Buffet 6-8pm Adults $24, Children 6 - 10 yrs $15. Children 5 &amp; under eat free.<br />"
strBody = strBody & "              Purchase tickets: with <a href=""http://silverspoonskifest.com/ss11entryform.pdf"" target=""_blank"">mail-in entry form</a> or at Monica's Pantry 584-3866 (beside LCBO)</p>"
strBody = strBody & "            <p>Orienteering - Sunday Feb 6, 2011 10:30 am - DRXC Chalet<br />"
strBody = strBody & "              Ski events (open technique): <br />"
strBody = strBody & "              Long (9.4 km)<br />"
strBody = strBody & "              Medium (6.5 km)<br />"
strBody = strBody & "              Short (3.6 km) ? Snowshoe event (60 minute course)<br />"
strBody = strBody & "              Visit Ottawa Orienteering website at <a href=""http://ottawaoc.ca"" target=""_blank"">http://ottawaoc.ca</a> for details.<br />"
strBody = strBody & "              �<br />"
strBody = strBody & "              Sportstats will be completing the timing for this year's event.<br />"
strBody = strBody & "              You have the choice of registering by:<br />"
strBody = strBody & "              - using <a href=""http://silverspoonskifest.com/ss11entryform.pdf"" target=""_blank"">mail-in entry form</a> or <br />"
strBody = strBody & "               - <a href=""http://www2.eventsonline.ca/site/events/Skiing"" target=""_blank"">on-line</a> through Events On-line for an additional fee.<br />"
strBody = strBody & "              �<br />"
strBody = strBody & "              <strong>Registration deadlines:</strong><br />"
strBody = strBody & "              Mail - Wednesday Feb 2, 2011<br />"
strBody = strBody & "              On-line - Thursday Feb 3, 2011<br />"
strBody = strBody & "              �<br />"
strBody = strBody & "        For more information, visit us at <a href=""http://www.silverspoonskifest.com"" target=""_blank"">www.silverspoonskifest.com</a></p>            <h4>&nbsp;</h4></td></tr></table>"
strBody = strBody & "     "
strBody = strBody & "      "
strBody = strBody & "      "
strBody = strBody & "      </td>"
strBody = strBody & "    </tr>"
strBody = strBody & "              <tr><td colspan=2 bgcolor=""#FFFFFF"">"
strBody = strBody & "    <div align=""center"" class=""foot""> site by <a href=""http://bright-ideas-software.com"" target=""_blank"">Bright Ideas Software</a></div>"
strBody = strBody & "    </td></tr>"
strBody = strBody & ""
strBody = strBody & "  </table>"
strBody = strBody & "<!-- This clearing element should immediately follow the #mainContent div in order to force the #container div to contain all child floats -->"
strBody = strBody & "  <br class=""clearfloat"" />"
strBody = strBody & "  <!-- end #container -->"
strBody = strBody & "</div>"
strBody = strBody & "</body>"
strBody = strBody & "</html>"





' Some lines to help you check the formatting of your
' email before you actually start sending it to people.
'Response.Write "<pre>"
'Response.Write Server.HTMLEncode(strbody)
'Response.Write "</pre>"
'Response.End



If strAdd = "" Or Not IsValidEmail(strAdd) Then

	%>
	<form action="<%= Request.ServerVariables("URL") %>" METHOD="post">
		Enter your e-mail address:<br />
		<input type="text" name="to" size="30" />
		<input type="submit" value="Send Mail!" />
	</form>
	<%
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 & "<br>" & 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
%>