<% Dim race1_AgeGrps, race2_AgeGrps Dim race1_Awards_Overall, race2_Awards_Overall Dim race1_Awards_Masters, race2_Awards_Masters Dim race1_Awards_GMasters, race2_Awards_GMasters Dim race1_Awards_SenMasters, race2_Awards_SenMasters Dim race1_Awards_AgeGrps, race2_Awards_AgeGrps Dim race1_gender_htmltxt, race2_gender_htmltxt ' ' Declare variables so theyll be visible across all subs and functions ' Dim eventtype_defvalR, eventtype_defvalS, eventtype_defvalM, eventtype_defvalO, event_name_defval, racedate_defval, raceinfo_defval, event_locn_defval Dim mailaddr_defval, racecontact_defval, payableto_defval, prereg_cost_defval, reg_cost_defval, reg_comment_defval, tshirt_na_defval Dim tshirt_yt_defval, tshirt_ys_defval, tshirt_ym_defval, tshirt_yl_defval, tshirt_xs_defval, tshirt_sm_defval, tshirt_md_defval, tshirt_lg_defval Dim tshirt_xl_defval, tshirt_xxl_defval, prereg_date_defval, url_defval, ownerid_defval, ask_teamname_defval, headphones_defval, strollers_defval, racecalid Dim racecalid_defval, racecity_defval, racestate_defval, kq_defval, region_defval0, region_defval1, region, owner_lname, owner_fname Dim owner_email, vol_chkbox_defval, vol_email_defval, header_info, body_info, def_font, youthevents_defval, kfom_defval Dim urlcourse_defval, urldirections_defval, urlothername_defval, urlother_defval, sMailStatus Dim race1_name_defval,race1_gender_defvalmf,race1_gender_defvalm,race1_gender_defvalf,race1_agegrp_lo_defval, race1_agegrp_hi_defval,race1_agegroups_defval,race2_agegroups_defval, vol_email_status, vol_email_background Dim race1_overall_depth_defval1,race1_overall_depth_defval2,race1_overall_depth_defval3,race1_overall_depth_defval4,race1_overall_depth_defval5,race1_overall_depth_defvalna,participants_defval0,participants_defval1,participants_defval2,participants_defval3,participants_defval4,participants_defval5 Dim elevation_defval0,elevation_defval1,elevation_defval2,elevation_defval3,elevation_defval4,sftcmanaged_defval0,sftcmanaged_defval1,sftcmanaged_defval2,sftcmanaged_defval3,sftcmanaged_defval4 Dim certified_defval0,certified_defval1,rating_participants,rating_certified,rating_elevation,rating_sftcmanaged Dim race1_masters_depth_defval1,race1_masters_depth_defval2,race1_masters_depth_defval3,race1_masters_depth_defval4,race1_masters_depth_defval5,race1_masters_depth_defvalna,youthevents_bool,kfom_bool Dim race1_gmasters_depth_defval1,race1_gmasters_depth_defval2,race1_gmasters_depth_defval3,race1_gmasters_depth_defval4,race1_gmasters_depth_defval5,race1_gmasters_depth_defvalna,offerform_defval Dim race1_senmasters_depth_defval1,race1_senmasters_depth_defval2,race1_senmasters_depth_defval3,race1_senmasters_depth_defval4,race1_senmasters_depth_defval5,race1_senmasters_depth_defvalna Dim race1_agegrp_depth_defval1,race1_agegrp_depth_defval2,race1_agegrp_depth_defval3,race1_agegrp_depth_defval4,race1_agegrp_depth_defval5,race1_agegrp_depth_defvalna Dim race1_agegrp_incr_defval1,race1_agegrp_incr_defval2,race1_agegrp_incr_defval3,race1_agegrp_incr_defval4,race1_agegrp_incr_defval5,race1_agegrp_incr_defval6,race1_agegrp_incr_defval7,race1_agegrp_incr_defval8,race1_agegrp_incr_defval9,race1_agegrp_incr_defval10,race1_agegrp_incr_defvalna '------- Dim race2_name_defval,race2_gender_defvalmf,race2_gender_defvalm,race2_gender_defvalf,race2_agegrp_lo_defval,race2_agegrp_hi_defval Dim race2_overall_depth_defval1,race2_overall_depth_defval2,race2_overall_depth_defval3,race2_overall_depth_defval4,race2_overall_depth_defval5,race2_overall_depth_defvalna Dim race2_masters_depth_defval1,race2_masters_depth_defval2,race2_masters_depth_defval3,race2_masters_depth_defval4,race2_masters_depth_defval5,race2_masters_depth_defvalna Dim race2_gmasters_depth_defval1,race2_gmasters_depth_defval2,race2_gmasters_depth_defval3,race2_gmasters_depth_defval4,race2_gmasters_depth_defval5,race2_gmasters_depth_defvalna Dim race2_senmasters_depth_defval1,race2_senmasters_depth_defval2,race2_senmasters_depth_defval3,race2_senmasters_depth_defval4,race2_senmasters_depth_defval5,race2_senmasters_depth_defvalna Dim race2_agegrp_depth_defval1,race2_agegrp_depth_defval2,race2_agegrp_depth_defval3,race2_agegrp_depth_defval4,race2_agegrp_depth_defval5,race2_agegrp_depth_defvalna Dim race2_agegrp_incr_defval1,race2_agegrp_incr_defval2,race2_agegrp_incr_defval3,race2_agegrp_incr_defval4,race2_agegrp_incr_defval5,race2_agegrp_incr_defval6,race2_agegrp_incr_defval7,race2_agegrp_incr_defval8,race2_agegrp_incr_defval9,race2_agegrp_incr_defval10,race2_agegrp_incr_defvalna ' -------------------------------------------------- ' Get SFTC logon status get_SFTCUser username, logon_status, userid hasAdmin = HasRole(userID,"ADMIN") OR HasRole(userID,"CAL_ADMIN") def_font = "" RaceCalID = Request("RaceCalID") action = LCase(Request("action")) ' view/add/chg/del/procadd/procchg newform = Request("newform") If (action = "") Then action = "view" If (action <> "view" AND action <> "help" AND action <> "displayvolform" AND action <> "emailvolform" AND logon_status < 0) Then Write_SFTCHeading "SFTC Calendar", "../images/book.gif", username, false, "", "" Response.Write "You must LOGON or REGISTER with SFTC before you can do that function." Response.End End If If ((action = "chg" OR action = "procchg" OR action = "view" OR action = "procdel" OR action = "displayvolform") AND RaceCalID = "") Then Write_SFTCHeading "SFTC Calendar", "../images/book.gif", username, false, "", "" Response.Write "Oops! A RaceCalID was not supplied." Response.End End If If (action = "help") Then EZForm_Help Response.End End If '''input_background = "BGCOLOR=""#FFD5B1""" ' Orange input_background = "class=""blockColor1""" '''examp_background = "BGCOLOR=""#FFFFD9""" ' Yellow examp_background = "class=""blockColor2""" '''separ_background = "BGCOLOR=""#D0FFD0""" ' Green separ_background = "class=""blockColor3""" Dim Att_Names (66) num_atts = 66 num_base_atts = 23 ' Base Attributes from Events table Att_Names(1) = "racedate" ' Base attributes Att_Names(2) = "racename" Att_Names(3) = "raceinfo" Att_Names(4) = "racecontact" Att_Names(5) = "url" Att_Names(6) = "ownerid" Att_Names(7) = "racecity" Att_Names(8) = "racestate" Att_Names(9) = "kq" Att_Names(10) = "region" Att_Names(11) = "vol_email" Att_Names(12) = "offerform" Att_Names(13) = "rating_participation" Att_Names(14) = "rating_elevation" Att_Names(15) = "rating_certified" Att_Names(16) = "rating_sftcmanaged" Att_Names(17) = "eventtype" Att_Names(18) = "youthevents" Att_Names(19) = "kfom" Att_Names(20) = "urlcourse" Att_Names(21) = "urldirections" Att_Names(22) = "urlothername" Att_Names(23) = "urlother" ' Remaining Attributes in EntyForms table ' These names MUST match the form variable names ' Att_Names(24) = "event_locn" Att_Names(25) = "mailaddr" Att_Names(26) = "payableto" Att_Names(27) = "prereg_cost" Att_Names(28) = "prereg_date" Att_Names(29) = "reg_cost" Att_Names(30) = "reg_comment" Att_Names(31) = "tshirt_na" Att_Names(32) = "tshirt_yt" Att_Names(33) = "tshirt_ys" Att_Names(34) = "tshirt_ym" Att_Names(35) = "tshirt_yl" Att_Names(36) = "tshirt_xs" Att_Names(37) = "tshirt_sm" Att_Names(38) = "tshirt_md" Att_Names(39) = "tshirt_lg" Att_Names(40) = "tshirt_xl" Att_Names(41) = "tshirt_xxl" Att_Names(42) = "ask_teamname" Att_Names(43) = "headphones" Att_Names(44) = "strollers" Att_Names(45) = "race1_name" Att_Names(46) = "race1_overall_depth" Att_Names(47) = "race1_masters_depth" Att_Names(48) = "race1_gmasters_depth" Att_Names(49) = "race1_senmasters_depth" Att_Names(50) = "race1_agegrp_depth" Att_Names(51) = "race1_agegrp_lo" Att_Names(52) = "race1_agegrp_hi" Att_Names(53) = "race1_agegrp_incr" Att_Names(54) = "race1_gender" Att_Names(55) = "race1_agegroups" Att_Names(56) = "race2_name" Att_Names(57) = "race2_overall_depth" Att_Names(58) = "race2_masters_depth" Att_Names(59) = "race2_gmasters_depth" Att_Names(60) = "race2_senmasters_depth" Att_Names(61) = "race2_agegrp_depth" Att_Names(62) = "race2_agegrp_lo" Att_Names(63) = "race2_agegrp_hi" Att_Names(64) = "race2_agegrp_incr" Att_Names(65) = "race2_gender" Att_Names(66) = "race2_agegroups" ' ' Initialize the array that will hold the Form attributes ' Set Form_Atts = Server.CreateObject("Scripting.Dictionary") For I = 1 to num_atts Form_Atts.Add Att_Names(I), "" Next Select Case (action) Case "view" View_EZForm Case "add" Add_EZForm Case "chg" Chg_EZForm Case "displayvolform" Display_VolForm Case "emailvolform" Email_VolForm Case "procadd", "procchg", "procdel" Proc_EZForm Response.Redirect "racecal.asp#cal" & raceCalID Case Else Response.Write "SFTC Calendar Error: Invalid Action parameter: " & action & "" End Select Response.End ' ----------------------------------------------------------------------------------- Sub Read_EZForm_Atts Dim sql, rs, DBConn sql = "SELECT * FROM events WHERE RaceCalID = " & RaceCalID ConnToSFTC DBConn Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, DBConn, adOpenForwardOnly, adLockReadOnly, adCmdText ' Set rs = DBConn.Execute(sql) If (NOT rs.eof) Then ' Form_Atts("racename") = rs("RaceName").Value Form_Atts("racedate") = rs("RaceDate").Value Form_Atts("raceinfo") = rs("raceinfo").Value Form_Atts("racecontact") = rs("racecontact").Value Form_Atts("racecity") = rs("racecity").Value Form_Atts("racestate") = rs("racestate").Value Form_Atts("kq") = rs("kq").Value If (Form_Atts("kq") = True) Then Form_Atts("kq") = "CHECKED" End If If (rs("youthevents").Value = True) Then Form_Atts("youthevents") = "CHECKED" Else Form_Atts("youthevents") = "" End If If (rs("kfom").Value = True) Then Form_Atts("kfom") = "CHECKED" Else Form_Atts("kfom") = "" End If Form_Atts("region") = rs("region").Value Form_Atts("ownerid") = rs("ownerid").Value Form_Atts("url") = rs("url").Value Form_Atts("urlcourse") = rs("urlcourse").Value Form_Atts("urldirections") = rs("urldirections").Value Form_Atts("urlothername") = rs("urlothername").Value Form_Atts("urlother") = rs("urlother").Value Form_Atts("vol_email") = rs("vol_email").Value If (rs("offerform").Value = True) Then Form_Atts("offerform") = "CHECKED" Else Form_Atts("offerform") = "" End If Form_Atts("rating_participants") = rs("rating_participants").Value Form_Atts("rating_elevation") = rs("rating_elevation").Value Form_Atts("rating_certified") = rs("rating_certified").Value Form_Atts("rating_sftcmanaged") = rs("rating_sftcmanaged").Value Form_Atts("eventtype") = rs("eventtype").Value Else Response.Write "SFTC Calendar Error: That Entry Form no longer exists" rs.Close set rs = nothing DBConn.Close set DBConn = nothing Response.End End If rs.close ' ' Now get the form attributes ' sql = "SELECT Att_Name, Att_Value FROM EntryForms WHERE RaceCalID = " & RaceCalID rs.Open sql, DBConn, adOpenForwardOnly, adLockReadOnly, adCmdText ' Set rs = DBConn.Execute(sql) While NOT rs.eof att_name = rs("Att_Name") Form_Atts(att_name) = rs("Att_Value").Value '''Response.Write vbcrlf & "" rs.Movenext WEnd rs.close set rs = nothing DBConn.Close set DBConn = nothing region = Form_Atts("region") '''Response.Write vbcrlf & "" Select Case CStr(region) Case "0" '''Response.Write vbcrlf & "" region_defval0 = "SELECTED" region_defval1 = "" Case "1" '''Response.Write vbcrlf & "" region_defval0 = "" region_defval1 = "SELECTED" Case Else '''Response.Write vbcrlf & "" region_defval0 = "SELECTED" region_defval1 = "" End Select Select Case Form_Atts("rating_participants") Case "0" participants_defval0 = "SELECTED" participants_defval1 = "" participants_defval2 = "" participants_defval3 = "" participants_defval4 = "" participants_defval5 = "" Case "1" participants_defval0 = "" participants_defval1 = "SELECTED" participants_defval2 = "" participants_defval3 = "" participants_defval4 = "" participants_defval5 = "" Case "2" participants_defval0 = "" participants_defval1 = "" participants_defval2 = "SELECTED" participants_defval3 = "" participants_defval4 = "" participants_defval5 = "" Case "3" participants_defval0 = "" participants_defval1 = "" participants_defval2 = "" participants_defval3 = "SELECTED" participants_defval4 = "" participants_defval5 = "" Case "4" participants_defval0 = "" participants_defval1 = "" participants_defval2 = "" participants_defval3 = "" participants_defval4 = "SELECTED" participants_defval5 = "" Case "5" participants_defval0 = "" participants_defval1 = "" participants_defval2 = "" participants_defval3 = "" participants_defval4 = "" participants_defval5 = "SELECTED" Case Else participants_defval0 = "SELECTED" participants_defval1 = "" participants_defval2 = "" participants_defval3 = "" participants_defval4 = "" participants_defval5 = "" End Select Select Case Form_Atts("rating_elevation") Case "0" elevation_defval0 = "SELECTED" elevation_defval1 = "" elevation_defval2 = "" elevation_defval3 = "" Case "1" elevation_defval0 = "" elevation_defval1 = "SELECTED" elevation_defval2 = "" elevation_defval3 = "" Case "2" elevation_defval0 = "" elevation_defval1 = "" elevation_defval2 = "SELECTED" elevation_defval3 = "" Case "3" elevation_defval0 = "" elevation_defval1 = "" elevation_defval2 = "" elevation_defval3 = "SELECTED" Case "4" elevation_defval0 = "" elevation_defval1 = "" elevation_defval2 = "" elevation_defval3 = "" elevation_defval4 = "SELECTED" Case Else elevation_defval0 = "SELECTED" elevation_defval1 = "" elevation_defval2 = "" elevation_defval3 = "" End Select Select Case Form_Atts("rating_certified") Case "0" certified_defval0 = "SELECTED" certified_defval1 = "" Case "1" certified_defval0 = "" certified_defval1 = "SELECTED" Case Else certified_defval0 = "SELECTED" certified_defval1 = "" End Select sftcmanaged_defval0 = "" sftcmanaged_defval1 = "" sftcmanaged_defval2 = "" sftcmanaged_defval3 = "" sftcmanaged_defval4 = "" Select Case Form_Atts("rating_sftcmanaged") Case "0" sftcmanaged_defval0 = "SELECTED" Case "1" sftcmanaged_defval1 = "SELECTED" Case "2" sftcmanaged_defval2 = "SELECTED" Case "3" sftcmanaged_defval3 = "SELECTED" Case "4" sftcmanaged_defval4 = "SELECTED" Case Else sftcmanaged_defval0 = "SELECTED" End Select ' ' From the agegroup parameters, determine the age groups ' If (Form_Atts("race1_agegroups") <> "") Then race1_AgeGrps = Form_Atts("race1_agegroups") ' Freeform agegroups override calculated a.g. Else Calc_AgeGrp Form_Atts("race1_agegrp_lo"), Form_Atts("race1_agegrp_hi"), Form_Atts("race1_agegrp_incr"), race1_AgeGrps End If If (Form_Atts("race2_agegroups") <> "") Then race2_AgeGrps = Form_Atts("race2_agegroups") ' Freeform agegroups override calculated a.g. Else Calc_AgeGrp Form_Atts("race2_agegrp_lo"), Form_Atts("race2_agegrp_hi"), Form_Atts("race2_agegrp_incr"), race2_AgeGrps End If Build_Top_Awards Form_Atts("race1_overall_depth"), "Overall", race1_Awards_Overall Build_Top_Awards Form_Atts("race1_masters_depth"), "Masters", race1_Awards_Masters Build_Top_Awards Form_Atts("race1_gmasters_depth"), "GrandMasters", race1_Awards_GMasters Build_Top_Awards Form_Atts("race1_senmasters_depth"), "Sen.GrMasters", race1_Awards_SenMasters Build_Top_Awards Form_Atts("race1_agegrp_depth"), "Age Groups", race1_Awards_AgeGrps Build_Top_Awards Form_Atts("race2_overall_depth"), "Overall", race2_Awards_Overall Build_Top_Awards Form_Atts("race2_masters_depth"), "Masters", race2_Awards_Masters Build_Top_Awards Form_Atts("race2_gmasters_depth"), "GrandMasters", race2_Awards_GMasters Build_Top_Awards Form_Atts("race2_senmasters_depth"), "Sen.GrMasters", race2_Awards_SenMasters Build_Top_Awards Form_Atts("race2_agegrp_depth"), "Age Groups", race2_Awards_AgeGrps Select Case LCase(Form_Atts("race1_gender")) Case "m" ' race1_gender_formtxt = "Males Only" race1_gender_htmltxt = "Male" race1_gender_defvalm = "SELECTED" Case "f" ' race1_gender_formtxt = "Females Only" race1_gender_htmltxt = "Female" race1_gender_defvalf = "SELECTED" Case "mf" ' race1_gender_formtxt = "Males & Females" race1_gender_htmltxt = "Male & Female" race1_gender_defvalmf = "SELECTED" End Select Select Case LCase(Form_Atts("race2_gender")) Case "m" ' race2_gender_formtxt = "Males Only" race2_gender_htmltxt = "Male" race2_gender_defvalm = "SELECTED" Case "f" ' race2_gender_formtxt = "Females Only" race2_gender_htmltxt = "Female" race2_gender_defvalf = "SELECTED" Case "mf" ' race2_gender_formtxt = "Males & Females" race2_gender_htmltxt = "Male & Female" race2_gender_defvalmf = "SELECTED" End Select End Sub ' ----------------------------------------------------------------------------------- ' ' Subroutines to prompt the form owner for entry_form attributes ' Sub Add_EZForm Dim rs, DBConn, sql ' ' Set default values where helpful ' tshirt_sm_defval = "CHECKED" tshirt_md_defval = "CHECKED" tshirt_lg_defval = "CHECKED" tshirt_xl_defval = "CHECKED" headphones_defval = "CHECKED" strollers_defval = "CHECKED" vol_chkbox_defval = "CHECKED" offerform_defval = "CHECKED" vol_email_status = "" ' empty=Enabled, specify "disabled" otherwise vol_email_background = "" region_defval0 = "SELECTED" region_defval1 = "" participants_defval0 = "SELECTED" elevation_defval0 = "SELECTED" certified_defval0 = "SELECTED" sftcmanaged_defval0 = "SELECTED" eventtype_defvalR = "SELECTED" ' Race eventtype_defvalS = "" ' SFTC Social eventtype_defvalM = "" ' Meeting eventtype_defvalO = "" ' Other race1_gender_defvalmf = "SELECTED" race1_overall_depth_defval3 = "SELECTED" race1_masters_depth_defval3 = "SELECTED" race1_gmasters_depth_defval3 = "SELECTED" race1_senmasters_depth_defvalna = "SELECTED" race1_agegrp_depth_defval3 = "SELECTED" race1_agegrp_lo_defval = "19" race1_agegrp_hi_defval = "60" race1_agegrp_incr_defval5 = "SELECTED" race2_gender_defvalmf = "SELECTED" race2_overall_depth_defval3 = "SELECTED" race2_masters_depth_defval3 = "SELECTED" race2_gmasters_depth_defval3 = "SELECTED" race2_senmasters_depth_defvalna = "SELECTED" race2_agegrp_depth_defval3 = "SELECTED" race2_agegrp_lo_defval = "19" race2_agegrp_hi_defval = "60" race2_agegrp_incr_defval5 = "SELECTED" ' ' Find out info about the current user to use as default values ' ConnToSFTC DBConn sql = "SELECT username FROM Runners WHERE userID = " & userid Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, DBConn, adOpenForwardOnly, adLockReadOnly, adCmdText ' Set rs = DBConn.Execute(sql) If (not rs.eof) Then vol_email_defval = rs("username") End If rs.Close set rs = nothing DBConn.Close Set DBConn = nothing Prompt_EZForm "Create" End Sub Sub Email_VolForm msgFrom = "webmaster@runtricities.org" msgTo = Request("mail_to") event_name = Request("racename") msgSubject = "Volunteer for " & event_name firstname = ProperCase(Request("firstname")) lastname = ProperCase(Request("lastname")) phone = Request("phone") email = Request("email") If (email <> "") Then ' FROM volunteers email, if provided. Otherwise FROM webmaster msgFrom = email End If tshirt = Request("tshirt") requested_assignment = Request("requested_assignment") sftcmanaged = Request("sftcmanaged") If (tshirt <> "") Then tshirt_text = " Tshirt: " & tshirt & vbcrlf Else tshirt_text = "" End If msgBody = "Great News from RunTriCities.org! " & vbcrlf & vbcrlf & firstname & " " & lastname & " has offered to volunteer at your '" & event_name & "' race. More details follow:" & vbcrlf & vbcrlf &_ " Phone: " & phone & vbcrlf &_ " Email: " & email & vbcrlf &_ tshirt_text &_ " Requested Assignment: " & vbcrlf & requested_assignment & vbcrlf & vbcrlf &_ "This email was sent from the Event Calendar feature at" & vbcrlf & "http://www.RunTriCities.org" & _ vbcrlf & "*** DO NOT REPLY ***" ' ' Send email to race contact ' sMailStatus = SendMail (msgFrom, "RunTriCities.org", msgTo, msgSubject, msgBody, "") If (sMailStatus <> "") Then Response.Write "
ERROR sending mail to " & sMailTo & "
ERROR=" & sMailStatus End If ' ' Send email to volunteer coordinator if this is an SFTC event ' If (sftcmanaged <> "" AND sftcmanaged <> "0" AND sftcmanaged <> "1") Then msgTo = "volunteers@runtricities.org" sMailStatus = SendMail (msgFrom, "RunTriCities.org", msgTo, msgSubject, msgBody, "") If (sMailStatus <> "") Then Response.Write "
ERROR sending mail to " & msgTo & "
ERROR=" & sMailStatus End If End If Write_SFTCHeading "SFTC Volunteers", "../images/book.gif", username, false, "", "" Response.Write "

Thanks!

An email has been sent to the race contact." Response.End End Sub Sub Display_VolForm Dim sSFTCInvolvement Dim sql, rs, DBConn Read_EZForm_Atts If (userid <> "") Then ConnToSFTC DBConn sql = "SELECT fname, lname, username FROM Runners WHERE userID = " & userid Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, DBConn, adOpenForwardOnly, adLockReadOnly, adCmdText If (not rs.eof) Then email_defval = rs("username") fname_defval = rs("fname") lname_defval = rs("lname") End If rs.Close set rs = nothing DBConn.Close Set DBConn = nothing Else email_defval = "" fname_defval = "" lname_defval = "" End If sHeaderInfo = "" & _ vbcrlf & "" Write_SFTCHeading "Volunteer Form:
" & Form_Atts("racename"), "../images/book.gif", username, false, sHeaderInfo, "" If (Form_Atts("vol_email") = "") Then Response.Write "Sorry! This race has not enabled the Volunteer Form Feature" Else If (Form_Atts("rating_sftcmanaged") = 2) Then sSFTCInvolvement = "SFTC is hired for this event.
Your volunteer effort counts toward SFTC Volunteer Points and King & Queen service requirements" ElseIf (Form_Atts("rating_sftcmanaged") = 3) Then sSFTCInvolvement = "SFTC owns this event.
Your volunteer effort counts toward SFTC Volunteer Points and King & Queen service requirements" ElseIf (Form_Atts("kq") = "CHECKED") Then sSFTCInvolvement = "This is a King/Queen event.
Your volunteer effort counts toward SFTC Volunteer Points and King & Queen service requirements" ElseIf (Form_Atts("rating_sftcmanaged") = 4) Then sSFTCInvolvement = "SFTC is renting equipment and providing volunteers to this event.
Your volunteer effort counts toward SFTC Volunteer Points and King & Queen service requirements" Else sSFTCInvolvement = "Volunteering at this event will not count toward SFTC Volunteer Points or King/Queen service requirements" End If %>
<%=Form_Atts("racedate")%>
<%=Form_Atts("raceinfo")%>

<%=sSFTCInvolvement%>

To: <%=Form_Atts("vol_email")%>

From:

"> "> "> <% If (Form_Atts("tshirt_yt") <> "" OR Form_Atts("tshirt_ys") <> "" OR Form_Atts("tshirt_ym") <> "" OR Form_Atts("tshirt_yl") <> "" OR Form_Atts("tshirt_xs") <> "" OR Form_Atts("tshirt_sm") <> "" OR Form_Atts("tshirt_md") <> "" OR Form_Atts("tshirt_lg") <> "" OR Form_Atts("tshirt_xl") <> "" OR Form_Atts("tshirt_xx") <> "") Then %> <% End If %>
First Name: Last Name:
Phone: Your Email:
Tshirt Size: Requested
Assignment:
<% End If Response.Write "" Response.End End Sub '----------------------------------------------- Sub Chg_EZForm Dim sql, DBConn, rs Read_EZForm_Atts If (Form_Atts("ownerid") <> userid AND NOT HasAdmin) Then Response.Write "SFTC Calendar Error: Only the original form owner may change a form" Response.End End If ' ' Build orig-value variables ' racedate_defval = Form_Atts("racedate") event_name_defval = Form_Atts("racename") url_defval = Form_Atts("url") urlcourse_defval = Form_Atts("urlcourse") urldirections_defval = Form_Atts("urldirections") urlothername_defval = Form_Atts("urlothername") If (urlothername_defval <> "") Then ' Don't consider URLOther if no name/text to display urlother_defval = Form_Atts("urlother") End If ownerid_defval = Form_Atts("ownerid") ' ' Find out info about the owner to possibly use as default values ' ConnToSFTC DBConn sql = "SELECT fname, lname, username FROM Runners WHERE userID = " & ownerid_defval Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, DBConn, adOpenForwardOnly, adLockReadOnly, adCmdText ' Set rs = DBConn.Execute(sql) If (not rs.eof) Then owner_fname = rs("fname") owner_lname = rs("lname") owner_email = rs("username") End If rs.Close set rs = nothing DBConn.Close Set DBConn = nothing raceinfo_defval = Form_Atts("raceinfo") event_locn_defval = Form_Atts("event_locn") racecity_defval = Form_Atts("racecity") racestate_defval = Form_Atts("racestate") kq_defval = Form_Atts("kq") youthevents_defval = Form_Atts("youthevents") kfom_defval = Form_Atts("kfom") Select Case Form_Atts("eventtype") Case "","R" eventtype_defvalR = "SELECTED" ' eventtype_defvalS = "" ' eventtype_defvalM = "" Case "S" ' eventtype_defvalR = "" eventtype_defvalS = "SELECTED" ' eventtype_defvalM = "" Case "M" ' eventtype_defvalR = "" ' eventtype_defvalS = "" eventtype_defvalM = "SELECTED" Case "O" eventtype_defvalO = "SELECTED" End Select offerform_defval = Form_Atts("offerform") racecalid_defval = RaceCalID prereg_date_defval = Form_Atts("prereg_date") prereg_cost_defval = Form_Atts("prereg_cost") reg_cost_defval = Form_Atts("reg_cost") reg_comment_defval = Form_Atts("reg_comment") mailaddr_defval = Form_Atts("mailaddr") racecontact_defval = Form_Atts("racecontact") payableto_defval = Form_Atts("payableto") tshirt_na_defval = Form_Atts("tshirt_na") tshirt_yt_defval = Form_Atts("tshirt_yt") tshirt_ys_defval = Form_Atts("tshirt_ys") tshirt_ym_defval = Form_Atts("tshirt_ym") tshirt_yl_defval = Form_Atts("tshirt_yl") tshirt_xs_defval = Form_Atts("tshirt_xs") tshirt_sm_defval = Form_Atts("tshirt_sm") tshirt_md_defval = Form_Atts("tshirt_md") tshirt_lg_defval = Form_Atts("tshirt_lg") tshirt_xl_defval = Form_Atts("tshirt_xl") tshirt_xxl_defval = Form_Atts("tshirt_xxl") ask_teamname_defval = Form_Atts("ask_teamname") headphones_defval = Form_Atts("headphones") strollers_defval = Form_Atts("strollers") vol_email_defval = Form_Atts("vol_email") If (vol_email_defval = "" OR IsNull(vol_email_defval)) Then vol_chkbox_defval = "" vol_email_status = "disabled" vol_email_defval = owner_email vol_email_background = "STYLE=""background: #D6D3CE""" Else vol_chkbox_defval = "CHECKED" vol_email_status = "" vol_email_background = "" End If race1_name_defval = Form_Atts("race1_name") race1_agegroups_defval = Form_Atts("race1_agegroups") Select Case LCase(Form_Atts("race1_overall_depth")) Case "n/a" race1_overall_depth_defvalna = "SELECTED" Case "1" race1_overall_depth_defval1 = "SELECTED" Case "2" race1_overall_depth_defval2 = "SELECTED" Case "3" race1_overall_depth_defval3 = "SELECTED" Case "4" race1_overall_depth_defval4 = "SELECTED" Case "5" race1_overall_depth_defval5 = "SELECTED" End Select Select Case LCase(Form_Atts("race1_masters_depth")) Case "n/a" race1_masters_depth_defvalna = "SELECTED" Case "1" race1_masters_depth_defval1 = "SELECTED" Case "2" race1_masters_depth_defval2 = "SELECTED" Case "3" race1_masters_depth_defval3 = "SELECTED" Case "4" race1_masters_depth_defval4 = "SELECTED" Case "5" race1_masters_depth_defval5 = "SELECTED" End Select Select Case LCase(Form_Atts("race1_gmasters_depth")) Case "n/a" race1_gmasters_depth_defvalna = "SELECTED" Case "1" race1_gmasters_depth_defval1 = "SELECTED" Case "2" race1_gmasters_depth_defval2 = "SELECTED" Case "3" race1_gmasters_depth_defval3 = "SELECTED" Case "4" race1_gmasters_depth_defval4 = "SELECTED" Case "5" race1_gmasters_depth_defval5 = "SELECTED" End Select Select Case LCase(Form_Atts("race1_senmasters_depth")) Case "","n/a" race1_senmasters_depth_defvalna = "SELECTED" Case "1" race1_senmasters_depth_defval1 = "SELECTED" Case "2" race1_senmasters_depth_defval2 = "SELECTED" Case "3" race1_senmasters_depth_defval3 = "SELECTED" Case "4" race1_senmasters_depth_defval4 = "SELECTED" Case "5" race1_senmasters_depth_defval5 = "SELECTED" End Select Select Case LCase(Form_Atts("race1_agegrp_depth")) Case "n/a" race1_agegrp_depth_defvalna = "SELECTED" Case "1" race1_agegrp_depth_defval1 = "SELECTED" Case "2" race1_agegrp_depth_defval2 = "SELECTED" Case "3" race1_agegrp_depth_defval3 = "SELECTED" Case "4" race1_agegrp_depth_defval4 = "SELECTED" Case "5" race1_agegrp_depth_defval5 = "SELECTED" End Select race1_overall_depth_defval = Form_Atts("race1_overall_depth") race1_masters_depth_defval = Form_Atts("race1_masters_depth") race1_gmasters_depth_defval = Form_Atts("race1_gmasters_depth") race1_senmasters_depth_defval = Form_Atts("race1_senmasters_depth") race1_agegrp_depth_defval = Form_Atts("race1_agegrp_depth") race1_agegrp_lo_defval = Form_Atts("race1_agegrp_lo") race1_agegrp_hi_defval = Form_Atts("race1_agegrp_hi") race1_agegrp_incr_defval = Form_Atts("race1_agegrp_incr") Select Case LCase(Form_Atts("race1_agegrp_incr")) Case "n/a" race1_agegrp_incr_defvalna = "SELECTED" Case "1" race1_agegrp_incr_defval1 = "SELECTED" Case "2" race1_agegrp_incr_defval2 = "SELECTED" Case "3" race1_agegrp_incr_defval3 = "SELECTED" Case "4" race1_agegrp_incr_defval4 = "SELECTED" Case "5" race1_agegrp_incr_defval5 = "SELECTED" Case "6" race1_agegrp_incr_defval6 = "SELECTED" Case "7" race1_agegrp_incr_defval7 = "SELECTED" Case "8" race1_agegrp_incr_defval8 = "SELECTED" Case "9" race1_agegrp_incr_defval9 = "SELECTED" Case "10" race1_agegrp_incr_defval10 = "SELECTED" End Select race2_name_defval = Form_Atts("race2_name") race2_agegroups_defval = Form_Atts("race2_agegroups") Select Case LCase(Form_Atts("race2_overall_depth")) Case "n/a" race2_overall_depth_defvalna = "SELECTED" Case "1" race2_overall_depth_defval1 = "SELECTED" Case "2" race2_overall_depth_defval2 = "SELECTED" Case "3" race2_overall_depth_defval3 = "SELECTED" Case "4" race2_overall_depth_defval4 = "SELECTED" Case "5" race2_overall_depth_defval5 = "SELECTED" End Select Select Case LCase(Form_Atts("race2_masters_depth")) Case "n/a" race2_masters_depth_defvalna = "SELECTED" Case "1" race2_masters_depth_defval1 = "SELECTED" Case "2" race2_masters_depth_defval2 = "SELECTED" Case "3" race2_masters_depth_defval3 = "SELECTED" Case "4" race2_masters_depth_defval4 = "SELECTED" Case "5" race2_masters_depth_defval5 = "SELECTED" End Select Select Case LCase(Form_Atts("race2_gmasters_depth")) Case "n/a" race2_gmasters_depth_defvalna = "SELECTED" Case "1" race2_gmasters_depth_defval1 = "SELECTED" Case "2" race2_gmasters_depth_defval2 = "SELECTED" Case "3" race2_gmasters_depth_defval3 = "SELECTED" Case "4" race2_gmasters_depth_defval4 = "SELECTED" Case "5" race2_gmasters_depth_defval5 = "SELECTED" End Select Select Case LCase(Form_Atts("race2_senmasters_depth")) Case "","n/a" race2_senmasters_depth_defvalna = "SELECTED" Case "1" race2_senmasters_depth_defval1 = "SELECTED" Case "2" race2_senmasters_depth_defval2 = "SELECTED" Case "3" race2_senmasters_depth_defval3 = "SELECTED" Case "4" race2_senmasters_depth_defval4 = "SELECTED" Case "5" race2_senmasters_depth_defval5 = "SELECTED" End Select Select Case LCase(Form_Atts("race2_agegrp_depth")) Case "n/a" race2_agegrp_depth_defvalna = "SELECTED" Case "1" race2_agegrp_depth_defval1 = "SELECTED" Case "2" race2_agegrp_depth_defval2 = "SELECTED" Case "3" race2_agegrp_depth_defval3 = "SELECTED" Case "4" race2_agegrp_depth_defval4 = "SELECTED" Case "5" race2_agegrp_depth_defval5 = "SELECTED" End Select race2_overall_depth_defval = Form_Atts("race2_overall_depth") race2_masters_depth_defval = Form_Atts("race2_masters_depth") race2_gmasters_depth_defval = Form_Atts("race2_gmasters_depth") race2_senmasters_depth_defval = Form_Atts("race2_senmasters_depth") race2_agegrp_depth_defval = Form_Atts("race2_agegrp_depth") race2_agegrp_lo_defval = Form_Atts("race2_agegrp_lo") race2_agegrp_hi_defval = Form_Atts("race2_agegrp_hi") race2_agegrp_incr_defval = Form_Atts("race2_agegrp_incr") race2_gender_defval = Form_Atts("race2_gender") Select Case LCase(Form_Atts("race2_agegrp_incr")) Case "n/a" race2_agegrp_incr_defvalna = "SELECTED" Case "1" race2_agegrp_incr_defval1 = "SELECTED" Case "2" race2_agegrp_incr_defval2 = "SELECTED" Case "3" race2_agegrp_incr_defval3 = "SELECTED" Case "4" race2_agegrp_incr_defval4 = "SELECTED" Case "5" race2_agegrp_incr_defval5 = "SELECTED" Case "6" race2_agegrp_incr_defval6 = "SELECTED" Case "7" race2_agegrp_incr_defval7 = "SELECTED" Case "8" race2_agegrp_incr_defval8 = "SELECTED" Case "9" race2_agegrp_incr_defval9 = "SELECTED" Case "10" race2_agegrp_incr_defval10 = "SELECTED" End Select ' ' If this event has not offered a form before, initialize form defaults like new ' If (Form_Atts("offerform") <> "CHECKED") Then tshirt_sm_defval = "CHECKED" tshirt_md_defval = "CHECKED" tshirt_lg_defval = "CHECKED" tshirt_xl_defval = "CHECKED" race1_gender_defvalmf = "SELECTED" race1_overall_depth_defval3 = "SELECTED" race1_masters_depth_defval3 = "SELECTED" race1_gmasters_depth_defval3 = "SELECTED" race1_senmasters_depth_defval3 = "SELECTED" race1_agegrp_depth_defval3 = "SELECTED" race1_agegrp_lo_defval = "19" race1_agegrp_hi_defval = "60" race1_agegrp_incr_defval5 = "SELECTED" race2_gender_defvalmf = "SELECTED" race2_overall_depth_defval3 = "SELECTED" race2_masters_depth_defval3 = "SELECTED" race2_gmasters_depth_defval3 = "SELECTED" race2_senmasters_depth_defval3 = "SELECTED" race2_agegrp_depth_defval3 = "SELECTED" race2_agegrp_lo_defval = "19" race2_agegrp_hi_defval = "60" race2_agegrp_incr_defval5 = "SELECTED" End If Prompt_EZForm "Change" End Sub '------------------------------------------------------------------------------------------ Sub Prompt_EZForm (add_change) Select Case LCase(add_change) Case "create" proc_action = "procadd" Case "change" proc_action = "procchg" End Select ' ' Draw Form, allowing owner to specify entry_form attributes ' body_info = "ONLOAD=""toggleFormPrompts()""" header_info = vbcrlf & "" & vbcrlf &_ "" Write_SFTCHeading "SFTC Calendar: " & add_change & " Calendar Item", "../images/book.gif", username, false, header_info, body_info Response.Write vbcrlf & "Prompts in RED are required fields

" & _ vbcrlf & "" & _ vbcrlf & "" ' ' General Info ' If (HasRole(userID,"UPLOAD_MAP")) Then sUploadURL = "

File Upload" End If Response.Write vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & " " & _ vbcrlf & " " & _ vbcrlf & " " & _ vbcrlf & " " & _ vbcrlf & " " & _ vbcrlf & " " & _ vbcrlf & " " & _ vbcrlf & " " & _ vbcrlf & " " & _ vbcrlf & " " & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & " " & _ vbcrlf & "" & _ vbcrlf & " " & _ vbcrlf & " " & _ vbcrlf & "" & _ vbcrlf & " " & _ vbcrlf & "" Response.Write vbcrlf & "" Response.Write "" & vbcrlf Response.Write "" & vbcrlf ' '--- END OF RACE ATTRIBUTES ---------------- ' Response.Write "" &_ vbcrlf & " " & vbcrlf Response.Write "" End If ' ' Trailer ' Response.Write vbcrlf & "
General EVENT INFOExamples:" & _ vbcrlf & "
" & def_font & "Overall Event Title:" & def_font & "" & def_font & "HeartBreak 10K Run and Racewalk
" & def_font & "Links:" & sUploadURL & "" & def_font & "" & _ vbcrlf & " Event website: http://" & _ vbcrlf & " " & def_font & "www.fast5k.org" & _ vbcrlf & "
" & def_font & "" & _ vbcrlf & " Course Map: http://" & _ vbcrlf & " " & def_font & "www.fast5K.org/map.gif" & _ vbcrlf & "
" & def_font & "" & _ vbcrlf & " Directions: http://" & _ vbcrlf & " " & def_font & "www.fast5K.org/directions.html" & _ vbcrlf & "
" & def_font & "" & _ vbcrlf & " Other: LinkText: " & _ vbcrlf & " " & def_font & "More Info or Entry Form" & _ vbcrlf & "
" & def_font & "" & _ vbcrlf & "          Link: http://" & _ vbcrlf & " " & def_font & "www.fast5K.org/stuff.html" & _ vbcrlf & "
" & def_font & "City:" & def_font & " State: " & def_font & "Hilltop / TN
" & def_font & "Event Date:" & def_font & "" & vbcrlf & "Date Picker" & def_font & "mm/dd/yy
" & def_font & "Event Time:" & def_font & "" & def_font & "8am - 10K Run
9am - 5K Walk
" & def_font & "Event Characteristics:" & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" Response.Write "
" & def_font & "Event Type:" &_ vbcrlf & "
" & def_font & "Est. Participants:
" & def_font & "Course Type:
" & def_font & "Course Cert?:
" & def_font & "SFTC Role:" & _ vbcrlf & "
" & def_font & "SFTC King/Queen Event?:  *View KQ Race requirements*
" & def_font & "Youth Event(s) Offered?:
" & def_font & "Kids Fest. of Miles Event?:
" & def_font & "Select from dropdown lists as appropriate to describe your event
" & def_font & "Solicit for Volunteers?:" & def_font & vbcrlf Response.Write "" & vbcrlf Response.Write "
Email vol. forms to 		" & def_font & "Check here if you want to solicit for volunteers. Applications will be mailed to this email address
" & def_font & "For More Info Contact:" & def_font & "" & def_font & "Marge Simpson
(423)555-1212
" & def_font & "Generate a Printable Entry Form?:" & def_font & "" &_ vbcrlf & "Yes" & def_font & "Check the box if you would like to generate a printable entry form. Additional questions will appear below to walk you through the form.
" & vbcrlf & "" & vbcrlf & "" '--- BEGIN FORM ATTRIBUTES ----------------- ' Response.Write vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & "" Response.Write vbcrlf & "" & vbcrlf Response.Write "" &_ vbcrlf & " " &_ vbcrlf & " " &_ vbcrlf & " " Response.Write "" &_ vbcrlf & " " &_ vbcrlf & " " &_ vbcrlf & " " Response.Write "" &_ vbcrlf & " " &_ vbcrlf & " " &_ vbcrlf & " " '-------------------------------------------------------------------------- ' ' RACE #1 ' Response.Write _ vbcrlf & "" & _ vbcrlf & "" & _ vbcrlf & " " & _ vbcrlf & "" &_ vbcrlf & " " &_ vbcrlf & "" Response.Write _ vbcrlf & "" &_ vbcrlf & "" & _ vbcrlf & "" ' ' RACE #2 ' Response.Write _ vbcrlf & "" & _ vbcrlf & "" &_ vbcrlf & " " & _ vbcrlf & " " & _ vbcrlf & "" & _ vbcrlf & "" Response.Write _ vbcrlf & "" &_ vbcrlf & " " & _ vbcrlf & "" & _ vbcrlf & "
General ENTRY FORM Information
Examples:
" & def_font & "Event Location:" & def_font & "" & def_font & "Baker Park
" & def_font & "Prereg. Cutoff Date:" & def_font & "" & _ vbcrlf & "" & _ vbcrlf & "Date Picker" & def_font & "mm/dd/yy
" & def_font & "Mailing Address:" & def_font & "" & def_font & "HeartBreak Run & Racewalk, Hilltop Chamber Of Commerce, Hilltop, TN 37111
" & def_font & "Make Checks Payable To:" & def_font & "" & def_font & "Hilltop COC
" & def_font & "Pre-Registration Info:" & def_font & "" & def_font & "$12 - 10K Run
$ 6 - 5K Walk
" & def_font & "Regular Registration Info:" & def_font & "" & def_font & "$15 - 10K Run
$10 - 5K Walk
or
NO RACEDAY REGISTRATION
" & def_font & "Misc. Comments" & def_font & "" & def_font & "$100 - 1st Place
$ 50 - 2nd Place
or
Only pregregistered runners are guaranteed a shirt!
or
$1 discount to XXX members
" & def_font & "T-Shirt Size Options:" & def_font & _ vbcrlf & "N/A
" & _ vbcrlf & "Youth:" &_ vbcrlf & " YT" & _ vbcrlf & " YS" & _ vbcrlf & " YM" & _ vbcrlf & " YL
" & _ vbcrlf & "Adult:" &_ vbcrlf & " XS" & _ vbcrlf & " SM" & _ vbcrlf & " MD" & _ vbcrlf & " LG" & _ vbcrlf & " XL" & _ vbcrlf & " XXL" & _ vbcrlf & "		" & def_font & "(check N/A or all sizes that apply)
" & def_font & "Ask for Team Name?:" & def_font &_ vbcrlf & " " & def_font & "check here if you want a ""Team Name:"" prompt on your Race Form
" & def_font & "Strollers not allowed?:" & def_font &_ vbcrlf & " " & def_font & "check here if you do NOT want participants with strollers during the race for safety reasons and insurance regulations and want it noted on your Race Form
" & def_font & "Headphones not allowed?:" & def_font &_ vbcrlf & " " & def_font & "check here if you do NOT want participants to wear headphones during the race for safety reasons and insurance regulations and want it noted on your Race Form
RACE #1 - REQUIRED FOR ENTRY FORM" & def_font & " (you may define up to 2 Races at this Event)
" & def_font & "Race #1 Name:" & def_font & "" & def_font & "10K HeartBreak Run
" & def_font & "Race #1 Awards:" & def_font & _ vbcrlf & "Awards for
" & _ vbcrlf & "Overall: deep
" Response.Write _ vbcrlf & "Masters:(40+) deep
" & _ vbcrlf & "GrandMasters:(50+) deep
" &_ vbcrlf & "Senior Gr.Masters:(60+) deep" &_ vbcrlf & "		Select from dropdown lists as appropriate for your event
" & def_font & "Race #1 Age Groups:" & def_font & _ vbcrlf & "Age Groups: deep

" &_ vbcrlf & "Use either Calculated or Freeform method. (Freeform will override)
Calculated:
Youngest Age Group is & under
" & _ vbcrlf & " Oldest Age Group is & over
" & _ vbcrlf & " Age Groups run in blocks of years
" & vbcrlf & "
" & _ vbcrlf & "Freeform:
" & def_font & "





19
60
5

OR

...19,20-24,25-29,30-34,35-39,40-44,45-49,50-54,55-59,60...
RACE #2 Section - OPTIONAL
" & def_font & "Race #2 Name:" & def_font & "" & def_font & "5K RaceWalk
" & def_font & "Race #2 Awards:" & def_font & _ vbcrlf & "Awards for
" & _ vbcrlf & "Overall: deep
" & _ vbcrlf & "Masters:(40+) deep
" Response.Write _ vbcrlf & "GrandMasters:(50+) deep
" &_ vbcrlf & "Senior Gr.Masters:(60+) deep
Select from dropdown lists as appropriate for your event
" & def_font & "Race #2 Age Groups:" & def_font & _ vbcrlf & "Age Groups: deep

" &_ vbcrlf & "Use either Calculated or Freeform method. (Freeform will override)
Calculated:
Youngest Age Group is & under
" & _ vbcrlf & " Oldest Age Group is & over
" & _ vbcrlf & " Age Groups run in blocks of years
" & _ vbcrlf & "
" & _ vbcrlf & "Freeform:
" & def_font & "





19
60
5

OR

...19,20-24,25-29,30-34,35-39,40-44,45-49,50-54,55-59,60...
" If (HasAdmin AND proc_action = "procchg") Then Response.Write vbcrlf & "
" & def_font & "Owner:" & def_font & " " & owner_fname & " " & owner_lname & " / List Users


" & _ vbcrlf & "" End Sub ' ----------------------------------------------------------------------------------- ' Subroutine to PROCESS entry_form data ' Sub Proc_EZForm Dim sql, DBConn, rs If (action = "procadd" or action = "procchg") Then Get_Form_Vars ' ' Check for required fields ' If (Form_Atts("racename") = "" OR Trim(Form_Atts("racename")) = "") Then Response.Write "SFTC Calendar Error: Event must have a Name

Please hit your BACK button and specify an Event Name." Response.End End If If (NOT IsDate(Form_Atts("racedate"))) Then Response.Write "SFTC Calendar Error: Invalid Event Date: " & Form_Atts("racedate") & "

Tip: Use mm/dd/yy format

Please hit your BACK button and try again." Response.End Else Form_Atts("racedate") = DateValue(Form_Atts("racedate")) End If If (Form_Atts("offerform") = "CHECKED") Then If (Form_Atts("race1_name") = "" OR Trim(Form_Atts("race1_name")) = "") Then Response.Write "SFTC Calendar Error: Race #1 must have a Name

Tip: The Event Name is the name of the overall gathering, while the Race #1 Name is the name of a specific Race at this Event.

For example, an Event Name might be Santa Special 1/2 Marathon and Road Mile. In this case, specify Race #1 Name as 1/2 Marathon and Race #2 Name as Road Mile.

In another example, the YMCA Turkey Trot has only 1 Race. So enter an Event Name of YMCA Turkey Trot 5K and a Race #1 Name of 5K Run.

Sorry for the confusion.
Please hit your BACK button and specify a Race #1 Name." Response.End End If If (Form_Atts("race1_agegroups") = "") AND (NOT IsNumeric(Form_Atts("race1_agegrp_lo")) OR (NOT IsNumeric(Form_Atts("race1_agegrp_hi"))) OR (NOT IsNumeric(Form_Atts("race1_agegrp_incr")))) Then Response.Write "SFTC Calendar Error: Race#1 AgeGroup Error:

Either Calculate the Age Groups specifying Youngest, Oldest, and Blocksize

OR

enter a Freeform string of Age Groups

Please hit your BACK button and specify a numeric value." Response.End End If If (Form_Atts("race2_name") <> "") Then If (Form_Atts("race2_agegroups") = "") AND (NOT IsNumeric(Form_Atts("race2_agegrp_lo")) OR (NOT IsNumeric(Form_Atts("race2_agegrp_hi"))) OR (NOT IsNumeric(Form_Atts("race2_agegrp_incr")))) Then Response.Write "SFTC Calendar Error: Race#2 AgeGroup Error:

Either Calculate the Age Groups specifying Youngest, Oldest, and Blocksize

OR

enter a Freeform string of Age Groups

Please hit your BACK button and specify a numeric value." Response.End End If End If End If If (Form_Atts("rating_participants") = "") Then Form_Atts("rating_participants") = "0" End If If (Form_Atts("rating_elevation") = "") Then Form_Atts("rating_elevation") = "0" End If If (Form_Atts("rating_certified") = "") Then Form_Atts("rating_certified") = "0" End If If (Form_Atts("rating_sftcmanaged") = "") Then Form_Atts("rating_sftcmanaged") = "0" End If If (Form_Atts("offerform") = "CHECKED") Then offerform_bool = true Else offerform_bool = false End If If (Form_Atts("kq") = "CHECKED") Then kq_bool = true Else kq_bool = false End If If (Form_Atts("youthevents") = "CHECKED") Then youthevents_bool = true Else youthevents_bool = false End If If (Form_Atts("kfom") = "CHECKED") Then kfom_bool = true Else kfom_bool = false End If Form_Atts("racestate") = UCase(Form_Atts("racestate")) ConnToSFTC DBConn ' ' Insert/Update RaceCal ' If (action = "procadd") Then sql = "INSERT INTO Events (RaceName, RaceDate, OwnerID, URL, RaceInfo, RaceContact, RaceCity, RaceState, kq, region, offerform, " & _ "rating_participants, rating_elevation, rating_certified, rating_sftcmanaged, vol_email, eventtype, youthevents, kfom, " & _ "urlcourse, urldirections, urlothername, urlother) " & _ "VALUES ('" & Form_Atts("racename") & "','" & Form_Atts("racedate") & "'," & userid & ",'" & Form_Atts("url") & "','" & _ Form_Atts("raceinfo") & "','" & Form_Atts("racecontact") & "','" & Form_Atts("racecity") & "','" & _ Form_Atts("racestate") & "'," & kq_bool & ",'" & Form_Atts("region") & "'," & offerform_bool & "," & _ Form_Atts("rating_participants") & "," & Form_Atts("rating_elevation") & "," & Form_Atts("rating_certified") & "," & _ Form_Atts("rating_sftcmanaged") & ",'" & Form_Atts("vol_email") & "','" & Form_Atts("eventtype") & "'," & _ youthevents_bool & "," & kfom_bool & ",'" & Form_Atts("urlcourse") & "','" & Form_Atts("urldirections") & "','" & _ Form_Atts("urlothername") & "','" & Form_Atts("urlother") & "')" DBConn.Execute(sql) ' ' Find out the RaceCalID that was just assigned so we can store Atts and RaceCal record... ' sql = "SELECT RaceCalID FROM Events WHERE racename LIKE '" & Left(Form_Atts("racename"),35) & "%' AND racedate LIKE '" & Form_Atts("racedate") & "%' AND ownerid = " & userid Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, DBConn, adOpenForwardOnly, adLockReadOnly, adCmdText ' Set rs = DBConn.Execute(sql) While NOT rs.eof RaceCalID = rs("RaceCalID") rs.MoveNext WEnd rs.close sql = "SELECT fname, lname FROM Runners WHERE userID = " & userid rs.Open sql, DBConn, adOpenForwardOnly, adLockReadOnly, adCmdText ' Set rs = DBConn.Execute(sql) If (not rs.eof) Then author = rs("fname") & " " & rs("lname") End If rs.Close set rs = nothing sMailFrom = "webmaster@runtricities.org" sMailTo = "webmaster@runtricities.org;" If (kq_bool) Then sMailTo = sMailTo & "kq@runtricities.org;" End If sMailSubject = "New Entry Form Added to RunTriCities.org" sMailBody = " Event = " & Form_Atts("racename") & vbcrlf &_ " RaceDate = " & Form_Atts("racedate") & vbcrlf &_ "City/State = " & Form_Atts("racecity") & ", " & Form_Atts("racestate") & vbcrlf &_ " Author = " & author & vbcrlf &_ " SFTC Role = " & Form_Atts("rating_sftcmanaged") & " (0=none, 1=equip, 2=hired, 3=owned, 4=EMN/C8)" & vbcrlf &_ " KQ = " & kq_bool & vbcrlf &_ "OnlineForm = " & offerform_bool sMailStatus = SendMail (sMailFrom, "RunTriCities", sMailTo, sMailSubject, sMailBody, "") If (sMailStatus <> "") Then Response.Write "
ERROR sending mail to " & sMailTo & "
ERROR=" & sMailStatus End If Else ' procchg (update) ' ' Update Events record ' sql = "UPDATE Events SET racedate='" & Form_Atts("racedate") & "',racename='" & Form_Atts("racename") & "'," & _ "raceinfo='" & Form_Atts("raceinfo") & "',racecontact='" & Form_Atts("racecontact") & "'," & _ "racecity='" & Form_Atts("racecity") & "',racestate='" & Form_Atts("racestate") & "'," & _ "region='" & Form_Atts("region") & "',kq=" & kq_bool & ",offerform=" & offerform_bool & "," & _ "ownerID=" & Form_Atts("ownerid") & ",url='" & Form_Atts("url") & "'," & _ "rating_participants=" & Form_Atts("rating_participants") & "," & _ "rating_elevation=" & Form_Atts("rating_elevation") & ",rating_certified=" & Form_Atts("rating_certified") & "," & _ "rating_sftcmanaged=" & Form_Atts("rating_sftcmanaged") & ",vol_email='" & Form_Atts("vol_email") & "'," & _ "eventtype='" & Form_Atts("eventtype") & "',youthevents=" & youthevents_bool & ",kfom=" & kfom_bool & "," & _ "urlcourse='" & Form_Atts("urlcourse") & "',urldirections='" & Form_Atts("urldirections") & "'," & _ "urlothername='" & Form_Atts("urlothername") & "',urlother='" & Form_Atts("urlother") & "'" & _ " WHERE racecalid=" & RaceCalID DBConn.Execute(sql) ' ' Start with fresh form attributes every time ' sql = "DELETE FROM EntryForms WHERE RaceCalID = " & RaceCalID DBConn.Execute(sql) End If ' ' Now (re)Insert the attribute records ' If (offerform_bool) Then For I = num_base_atts+1 To num_atts If (Form_Atts(Att_Names(I)) <> "") Then If (Form_Atts("race2_name") = "" AND Att_Names(I) = "race2") Then ' Skip race2 attributes if no race2 name provided Else sql = "INSERT INTO EntryForms (RaceCalID, Att_Name, Att_Value) VALUES (" & RaceCalID & ",'" & Att_Names(I) & "','" & Form_Atts(Att_Names(I)) & "')" DBConn.Execute(sql) End If End If Next End If Else ' DELETE FUNCTION - Delete Events and EntryForms record if present Read_EZForm_Atts If (Form_Atts("ownerid") <> userid AND NOT HasAdmin) Then Response.Write "SFTC Calendar Error: Only the original form owner may delete a form" Response.End End If ConnToSFTC DBConn sql = "DELETE FROM Events WHERE RaceCalID = " & RaceCalID DBConn.Execute(sql) sql = "DELETE FROM EntryForms WHERE RaceCalID = " & RaceCalID DBConn.Execute(sql) End If DBConn.Close set DBConn = nothing End Sub ' ' ------------------------------------------------------------------------------- ' Display the EZform ' Sub View_EZForm Dim sBRtag Dim iNumRegCols Read_EZForm_Atts ' ' Header Info ' Response.Write _ vbcrlf & "" & Form_Atts("racename") & "" &_ vbcrlf & "" &_ vbcrlf & "

" & Form_2_HTMLDB(Form_Atts("racename")) & "


" &_ vbcrlf & "" & Form_2_HTMLDB(Form_Atts("event_locn")) & ", " & Form_Atts("racecity") & ", " & Form_Atts("racestate") & "
" &_ vbcrlf & "

" & Form_Atts("racedate") & "

" ' If (Form_Atts("url") <> "") Then ' Response.Write "" & " -WEBSITE- " & vbcrlf ' sBRtag = "
" ' End If ' If (Form_Atts("urlcourse") <> "") Then ' Response.Write "" & " -COURSE MAP- " & vbcrlf ' sBRtag = "
" ' End If ' If (Form_Atts("urldirections") <> "") Then ' Response.Write "" & " -DIRECTIONS- " & vbcrlf ' sBRtag = "
" ' End If ' If (Form_Atts("urlothername") <> "" AND Form_Atts("urlother") <> "") Then ' Response.Write "" & " -" & UCase(Form_Atts("urlothername")) & "- " & vbcrlf ' sBRtag = "
" ' End If ' Response.Write sBRtag Response.Write "
" & Replace(Form_Atts("raceinfo"),""","""") & "
" & vbcrlf ' ' Fees ' Response.Write vbcrlf & "" If (Form_Atts("prereg_cost") <> "") Then If (Form_Atts("reg_cost") <> "") Then iNumRegCols = 5 Else ' Reg. info is empty - spread the prereg info iNumRegCols = 2 End If Response.Write _ vbcrlf & "" &_ vbcrlf & "" Else ' PreReg. info is empty - spread the Reg info iNumRegCols = 2 End If Response.Write _ vbcrlf & "" &_ vbcrlf & "" End If If (Form_Atts("kq") = "CHECKED") Then Response.Write _ vbcrlf & "" End If If (Form_Atts("payableto") <> "") Then Response.Write _ vbcrlf & "" End If If (Form_Atts("mailaddr") <> "") Then Response.Write _ vbcrlf & "" End If Response.Write vbcrlf & "
Pre-registration:" If (Form_Atts("prereg_date") <> "") Then Response.Write "" & "
(ends " & Form_Atts("prereg_date") & ")" End If Response.Write "		" & Form_Atts("prereg_cost") End If If (Form_Atts("reg_cost") <> "") Then If (Form_Atts("prereg_cost") <> "") Then iNumRegCols = 5 Response.Write vbcrlf & " | Regular
| Registration:		" & "" & Form_Atts("reg_cost") &_ vbcrlf & "
SFTC King & Queen race: SFTC members receive preregistration discount
Make checks payable to: " & Form_Atts("payableto") &_ vbcrlf & "
Mail this form to: " & Form_Atts("mailaddr") &_ vbcrlf & "
" Response.Write vbcrlf & "
" If (Form_Atts("reg_comment") <> "") Then Response.Write vbcrlf & "" Else End If Response.Write vbcrlf & "" Response.Write vbcrlf & "
" & Form_Atts("reg_comment") & "
" & "Headphones are " If (Form_Atts("headphones") <> "") Then Response.Write vbcrlf & "" & "NOT " End If Response.Write vbcrlf & "" & "permitted on the course " Response.Write vbcrlf & "" & " | Strollers are " If (Form_Atts("strollers") <> "") Then Response.Write vbcrlf & "" & "NOT " End If Response.Write vbcrlf & "" & "permitted on the course
" Response.Write vbcrlf & "" & vbcrlf ' ' Mailing Info ' Response.Write "
" If (Form_Atts("racecontact") <> "") Then Response.Write "For more info contact
" & Replace(Form_Atts("racecontact"),""","""") End If ' ' Awards info ' Response.Write vbcrlf & "		" & Form_Atts("race1_name") & "
" & race1_gender_htmltxt & " Awards:
" If (race1_Awards_Overall <> "") Then Response.Write race1_Awards_Overall If (race1_Awards_Masters <> "") Then Response.Write "
" & race1_Awards_Masters If (race1_Awards_GMasters <> "") Then Response.Write "
" & race1_Awards_GMasters If (race1_Awards_SenMasters <> "") Then Response.Write "
" & race1_Awards_SenMasters If (race1_Awards_AgeGrps <> "" OR race1_AgeGrps <> "") Then Response.Write "

" & race1_Awards_AgeGrps & "
" & race1_AgeGrps End If If (Form_Atts("race2_name") <> "") Then Response.Write "		" & Form_Atts("race2_name") & "
" & race2_gender_htmltxt & " Awards:
" If (race2_Awards_Overall <> "") Then Response.Write race2_Awards_Overall If (race2_Awards_Masters <> "") Then Response.Write "
" & race2_Awards_Masters If (race2_Awards_GMasters <> "") Then Response.Write "
" & race2_Awards_GMasters If (race2_Awards_SenMasters <> "") Then Response.Write "
" & race2_Awards_SenMasters If (race2_Awards_AgeGrps <> "" OR race2_AgeGrps <> "") Then Response.Write "

" & race2_Awards_AgeGrps & "
" & race2_AgeGrps & vbcrlf ''' Response.Write "
" & vbcrlf End If End If Response.Write vbcrlf & "" & vbcrlf ' ' Entry Form ' Response.Write vbcrlf & "

" & Form_Atts("racename") & "

" Response.Write vbcrlf & "" Response.Write vbcrlf & "" Response.Write vbcrlf & "" Response.Write vbcrlf & "" Response.Write vbcrlf & "" Response.Write vbcrlf & "" If (Form_Atts("ask_teamname") <> "") Then Response.Write vbcrlf & "" End If Response.Write vbcrlf & "
LAST NAME__________________________________ FIRST NAME_________________________ M.I._______

SEX____ DATE OF BIRTH____/____/____ AGE ON RACEDAY_____ E-MAIL____________________________

ADDRESS___________________________________________________________________________

CITY________________________ STATE_________ ZIP___________ PHONE (_______)_______-___________

RACE DAY EMERGENCY CONTACT (NAME AND PHONE)_________________________________________

TEAM NAME____________________________
" Response.Write vbcrlf & "" If (Form_Atts("race2_name") <> "") Then Response.Write vbcrlf & "" If (Form_Atts("tshirt_na") <> "") Then ' Skip Tshirt stuff if designated as "na" Else shirt_options = "" If (Form_Atts("tshirt_yt") <> "") Then shirt_options = shirt_options & "YT, " If (Form_Atts("tshirt_ys") <> "") Then shirt_options = shirt_options & "YS, " If (Form_Atts("tshirt_ym") <> "") Then shirt_options = shirt_options & "YM, " If (Form_Atts("tshirt_yl") <> "") Then shirt_options = shirt_options & "YL, " If (Form_Atts("tshirt_xs") <> "") Then shirt_options = shirt_options & "XS, " If (Form_Atts("tshirt_sm") <> "") Then shirt_options = shirt_options & "SM, " If (Form_Atts("tshirt_md") <> "") Then shirt_options = shirt_options & "MD, " If (Form_Atts("tshirt_lg") <> "") Then shirt_options = shirt_options & "LG, " If (Form_Atts("tshirt_xl") <> "") Then shirt_options = shirt_options & "XL, " If (Form_Atts("tshirt_xxl") <> "") Then shirt_options = shirt_options & "XXL" Response.Write vbcrlf & "" End If Response.Write vbcrlf & "

*** CIRCLE EVENT: " & Form_Atts("race1_name") & " | " & Form_Atts("race2_name") & "
*** CIRCLE SHIRT SIZE: " & shirt_options & "
" Response.Write vbcrlf & "
" Response.Write vbcrlf & "
IN CONSIDERATION FOR ACCEPTING MY ENTRY IN THIS RACE, I FOR MYSELF, MY HEIRS, EXECUTORS AND ADMINISTRATORS, WAIVE AND RELEASE FOREVER ANY AND ALL RIGHTS AND CLAIMS FOR DAMAGES I MAY HAVE AGAINST THE ORGANIZERS AND SPONSORS OF THIS EVENT. I ALSO RELEASE THE ABOVE NAMED FOR ALL CLAIMS OF DAMAGE DEMANDS, AND ACTIONS IN ANY MANNER DUE TO ANY PERSONAL INJURIES, PROPERTY DAMAGE, OR DEATH SUSTAINED AS A RESULT OF MY TRAVELING TO AND FROM AND MY PARTICIPATION IN SAID RACE. I ATTEST AND VERIFY THAT I AM PHYSICALLY FIT AND HAVE SUFFICIENTLY TRAINED FOR THE COMPETITION OF THIS EVENT. IN FILLING OUT THIS FORM, I ACKNOWLEDGE I HAVE READ AND FULLY UNDERSTAND MY OWN LIABILITY AND ABILITY." If (Form_Atts("strollers") <> "") Then Response.Write vbcrlf & "STROLLERS ARE NOT ALLOWED ON THE RACE COURSE." End If If (Form_Atts("headphones") <> "") Then Response.Write vbcrlf & " PARTICPANTS USING HEADPHONES ARE NOT ALLOWED ON THE RACE COURSE." End If Response.Write vbcrlf & "
" Response.Write vbcrlf & "
" Response.Write vbcrlf & "
SIGNATURE_____________________________ DATE_____/_____/_____ (Parent signature if under the age of 18)

This entry form was generated with the SFTC Calendar Utility at www.runtricities.org
" Response.Write vbcrlf & "
" Response.Write vbcrlf & "" End Sub ' ------------------------------------------------- Sub EZForm_Help Write_SFTCHeading "SFTC Calendar Help:", "../images/book.gif", username, false, "", "" Response.Write "The SFTC Online Calendar was developed by the SFTC Webmaster and is free to the public. It allows you to post items to our calendar and even design printable Entry Forms by answering some common questions. When you're done, your race automatically appears on the SFTC Calendar where web surfers can view & print your form immediately. You can also link directly to your form via the web or an email!

In order to keep track of who owns each entry form, you must register and LOGON to the SFTC website in order to create or modify a calendar item.

Please send constructive suggestions to the SFTC Webmaster." Response.Write "

Helpful Tips:
" Response.Write "
  • Get It Right: After creating your calendar item, view it to make sure that the information displays in a readable way. If you see anything amiss, go back and Edit your item.
    • " Response.Write "
  • Big Timesaver: Leading up to your race date, your race will automatically appear on the RunTriCities.org calendar. After your race date passes, your item will disappear from the calendar to the general public. But whenever you're logged on, you (and only you) will continue to see it listed on the Calendar in a special blue background indicating ""past"" races. When the details are set for next year's event, don't ADD it to the calendar again! Simply EDIT your old item and adjust the dates, times, etc.
    • " Response.Write "
  • Who Am I?: Do you know your SFTC Username but have forgotten your Password? Use our Password Reminder feature on our Logon Screen
    • " Response.Write "
  • Have you forgotten your Username AND your Password? No problem. Just email the SFTC Webmaster
    • " Response.Write "" End Sub Sub Get_Form_Vars ' ' Get the variables from the HTML form ' Start with the base set ' Form_Atts("racedate") = Request("racedate") Form_Atts("racename") = Form_2_HTMLDB(Replace (Request("racename"),"""",""")) 'Replace dbl-quotes immediately Form_Atts("raceinfo") = Form_2_HTMLDB(Replace (Request("raceinfo"),"""",""")) Form_Atts("racecontact") = Form_2_HTMLDB(Replace (Request("racecontact"),"""",""")) Form_Atts("racecity") = Form_2_HTMLDB(Replace (Request("racecity"),"""",""")) Form_Atts("racestate") = UCase(Request("racestate")) Form_Atts("kq") = Request("kq") Form_Atts("youthevents") = Request("youthevents") Form_Atts("kfom") = Request("kfom") Form_Atts("eventtype") = Request("eventtype") Form_Atts("region") = Request("region") Form_Atts("offerform") = Request("offerform") Form_Atts("ownerid") = Request("ownerid") If (Form_Atts("ownerid") = "") Then Form_Atts("ownerid") = userid End If Form_Atts("url") = Form_2_HTMLDB(Replace (Request("url"),"""",""")) If (LCase(Left(Form_Atts("url"),7)) = "http://") Then Form_Atts("url") = Right(Form_Atts("url"),Len(Form_Atts("url"))-7) End If Form_Atts("urlcourse") = Form_2_HTMLDB(Replace (Request("urlcourse"),"""",""")) If (LCase(Left(Form_Atts("urlcourse"),7)) = "http://") Then Form_Atts("urlcourse") = Right(Form_Atts("urlcourse"),Len(Form_Atts("urlcourse"))-7) End If Form_Atts("urldirections") = Form_2_HTMLDB(Replace (Request("urldirections"),"""",""")) If (LCase(Left(Form_Atts("urldirections"),7)) = "http://") Then Form_Atts("urldirections") = Right(Form_Atts("urldirections"),Len(Form_Atts("urldirections"))-7) End If Form_Atts("urlothername") = Form_2_HTMLDB(Replace (Request("urlothername"),"""",""")) Form_Atts("urlother") = Form_2_HTMLDB(Replace (Request("urlother"),"""",""")) If (LCase(Left(Form_Atts("urlother"),7)) = "http://") Then Form_Atts("urlother") = Right(Form_Atts("urlother"),Len(Form_Atts("urlother"))-7) End If If (Form_Atts("urlothername") = "" OR Form_Atts("urlother") = "") Then 'If either are blank, then both are blank Form_Atts("urlothername") = "" Form_Atts("urlother") = "" End If Form_Atts("rating_participants") = Request("rating_participants") Form_Atts("rating_elevation") = Request("rating_elevation") Form_Atts("rating_certified") = Request("rating_certified") Form_Atts("rating_sftcmanaged") = Request("rating_sftcmanaged") Form_Atts("vol_email") = Form_2_HTMLDB(Request("vol_email")) ' ' Now loop thru the EntryForm Attributes ' For I = num_base_atts+1 To num_atts Form_Atts(Att_Names(I)) = Form_2_HTMLDB(Request(Att_Names(I))) Next ' ' Reformat special fields ' Select Case LCase(Form_Atts("race1_gender")) Case "males only" Form_Atts("race1_gender") = "m" Case "females only" Form_Atts("race1_gender") = "f" Case "male & female" Form_Atts("race1_gender") = "mf" End Select Select Case LCase(Form_Atts("race2_gender")) Case "males only" Form_Atts("race2_gender") = "m" Case "females only" Form_Atts("race2_gender") = "f" Case "male & female" Form_Atts("race2_gender") = "mf" End Select If (Form_Atts("tshirt_na") <> "") Then ' If n/a, blank out other fields Form_Atts("tshirt_yt") = "" Form_Atts("tshirt_ys") = "" Form_Atts("tshirt_ym") = "" Form_Atts("tshirt_yl") = "" Form_Atts("tshirt_xs") = "" Form_Atts("tshirt_sm") = "" Form_Atts("tshirt_md") = "" Form_Atts("tshirt_lg") = "" Form_Atts("tshirt_xl") = "" Form_Atts("tshirt_xxl") = "" End If If (Form_Atts("race1_agegroups") <> "") Then ' If freeform a.g., ignore calculated version Form_Atts("race1_agegrp_lo") = "" Form_Atts("race1_agegrp_hi") = "" Form_Atts("race1_agegrp_incr") = "" End If If (Form_Atts("race2_agegroups") <> "") Then ' If freeform a.g., ignore calculated version Form_Atts("race2_agegrp_lo") = "" Form_Atts("race2_agegrp_hi") = "" Form_Atts("race2_agegrp_incr") = "" End If End Sub Sub Build_Top_Awards (depth, category, awards_text) Select Case LCase(depth) Case "0", "n/a", "" awards_text = "" Case "1" awards_text = "Top " & category Case Else awards_text = category & " (top " & depth & ")" End Select End Sub Sub Calc_AgeGrp (agelo,agehi,ageincr,AgeGrps) If (agelo <> "" AND agehi <> "" AND ageincr <> "") AND (IsNumeric(agelo) AND IsNumeric(agehi) AND IsNumeric(ageincr)) Then AgeGrps = "..." & agelo next_hi = agelo oops_count = 1 Do While (next_hi + 1 < agehi + 0) oops_count = oops_count + 1 If (oops_count > 50) Then AgeGrps = "(Error parsing AgeGrp information)" Exit Do End If next_lo = next_hi + 1 next_hi = next_lo + ageincr-1 AgeGrps = AgeGrps & "," & next_lo & "-" & next_hi Loop If (oops_count <= 50) Then AgeGrps = AgeGrps & "," & agehi & "..." Else AgeGrps = "" End If End Sub %>