<% Dim StrEmail, strSubject, strDateNow, strTimeNow, strBody, strTeam, strCoach, strHPhone, strCPhone, strCity, strState Dim strWt1, strWt2, strWt3, strWt4, strWt5, strWt6, strWt7, strWt8, strWt9, strWt10, strWt11, strWt12, strWt13, strWt14, strWt15, strWt16, strWt17, strWt18, strWt19, strWt20, strWt21, strWt22, strWt23, strWt24 Dim strF1, strF2, strF3, strF4, strF5, strF6, strF7, strF8, strF9, strF10, strF11, strF12, strF13, strF14, strF15, strF16, strF17, strF18, strF19, strF20, strF21, strF22, strF23, strF24 Dim strL1, strL2, strL3, strL4, strL5, strL6, strL7, strL8, strL9, strL10, strL11, strL12, strL13, strL14, strL15, strL16, strL17, strL18, strL19, strL20, strL21, strL22, strL23, strL24 Dim strGr1, strGr2, strGr3, strGr4, strGr5, strGr6, strGr7, strGr8, strGr9, strGr10, strGr11, strGr12, strGr13, strGr14, strGr15, strGr16, strGr17, strGr18, strGr19, strGr20, strGr21, strGr22, strGr23, strGr24 Dim strBy1, strBy2, strBy3, strBy4, strBy5, strBy6, strBy7, strBy8, strBy9, strBy10, strBy11, strBy12, strBy13, strBy14, strBy15, strBy16, strBy17, strBy18, strBy19, strBy20, strBy21, strBy22, strBy23, strBy24 Dim strHt1, strHt2, strHt3, strHt4, strHt5, strHt6, strHt7, strHt8, strHt9, strHt10, strHt11, strHt12, strHt13, strHt14, strHt15, strHt16, strHt17, strHt18, strHt19, strHt20, strHt21, strHt22, strHt23, strHt24 Dim strSt1, strSt2, strSt3, strSt4, strSt5, strSt6, strSt7, strSt8, strSt9, strSt10, strSt11, strSt12, strSt13, strSt14, strSt15, strSt16, strSt17, strSt18, strSt19, strSt20, strSt21, strSt22, strSt23, strSt24 Dim strWx1, strWx2, strWx3, strWx4, strWx5, strWx6, strWx7 Dim objCDOMail 'The CDO object 'First we'll read in the values entered strDateNow = Date() strTimeNow = Time() StrEmail = Request.Form("Email") strTeam = Request.Form("Team") strCity = Request.Form("City") strState = Request.Form("State") strCoach = Request.Form("Coach") strHPhone = Request.Form("HPhone") strCPhone = Request.Form("CPhone") strW1 = "75" strW2 = "80" strW3 = "85" strW4 = "90" strW5 = "95" strW6 = "100" strW7 = "105" strW8 = "110" strW9 = "115" strW10 = "120" strW11 = "126" strW12 = "133" strW13 = "140" strW14 = "150" strW15 = "160" strW16 = "180" strW17 = "230" strWx1 = Request.Form("Wx1") strWx2 = Request.Form("Wx2") strWx3 = Request.Form("Wx3") strWx4 = Request.Form("Wx4") strWx5 = Request.Form("Wx5") strWx6 = Request.Form("Wx6") strWx7 = Request.Form("Wx7") strF1= Request.Form("F1") strF2= Request.Form("F2") strF3= Request.Form("F3") strF4= Request.Form("F4") strF5= Request.Form("F5") strF6= Request.Form("F6") strF7= Request.Form("F7") strF8= Request.Form("F8") strF9= Request.Form("F9") strF10= Request.Form("F10") strF11= Request.Form("F11") strF12= Request.Form("F12") strF13= Request.Form("F13") strF14= Request.Form("F14") strF15= Request.Form("F15") strF16= Request.Form("F16") strF17= Request.Form("F17") strF18= Request.Form("F18") strF19= Request.Form("F19") strF20= Request.Form("F20") strF21= Request.Form("F21") strF22= Request.Form("F22") strF23= Request.Form("F23") strF24= Request.Form("F24") strL1= Request.Form("L1") strL2= Request.Form("L2") strL3= Request.Form("L3") strL4= Request.Form("L4") strL5= Request.Form("L5") strL6= Request.Form("L6") strL7= Request.Form("L7") strL8= Request.Form("L8") strL9= Request.Form("L9") strL10= Request.Form("L10") strL11= Request.Form("L11") strL12= Request.Form("L12") strL13= Request.Form("L13") strL14= Request.Form("L14") strL15= Request.Form("L15") strL16= Request.Form("L16") strL17= Request.Form("L17") strL18= Request.Form("L18") strL19= Request.Form("L19") strL20= Request.Form("L20") strL21= Request.Form("L21") strL22= Request.Form("L22") strL23= Request.Form("L23") strL24= Request.Form("L24") strGr1= Request.Form("Gr1") strGr2= Request.Form("Gr2") strGr3= Request.Form("Gr3") strGr4= Request.Form("Gr4") strGr5= Request.Form("Gr5") strGr6= Request.Form("Gr6") strGr7= Request.Form("Gr7") strGr8= Request.Form("Gr8") strGr9= Request.Form("Gr9") strGr10= Request.Form("Gr10") strGr11= Request.Form("Gr11") strGr12= Request.Form("Gr12") strGr13= Request.Form("Gr13") strGr14= Request.Form("Gr14") strGr15= Request.Form("Gr15") strGr16= Request.Form("Gr16") strGr17= Request.Form("Gr17") strGr18= Request.Form("Gr18") strGr19= Request.Form("Gr19") strGr20= Request.Form("Gr20") strGr21= Request.Form("Gr21") strGr22= Request.Form("Gr22") strGr23= Request.Form("Gr23") strGr24= Request.Form("Gr24") strBy1= Request.Form("By1") strBy2= Request.Form("By2") strBy3= Request.Form("By3") strBy4= Request.Form("By4") strBy5= Request.Form("By5") strBy6= Request.Form("By6") strBy7= Request.Form("By7") strBy8= Request.Form("By8") strBy9= Request.Form("By9") strBy10= Request.Form("By10") strBy11= Request.Form("By11") strBy12= Request.Form("By12") strBy13= Request.Form("By13") strBy14= Request.Form("By14") strBy15= Request.Form("By15") strBy16= Request.Form("By16") strBy17= Request.Form("By17") strBy18= Request.Form("By18") strBy19= Request.Form("By19") strBy20= Request.Form("By20") strBy21= Request.Form("By21") strBy22= Request.Form("By22") strBy23= Request.Form("By23") strBy24= Request.Form("By24") strHt1= Request.Form("Ht1") strHt2= Request.Form("Ht2") strHt3= Request.Form("Ht3") strHt4= Request.Form("Ht4") strHt5= Request.Form("Ht5") strHt6= Request.Form("Ht6") strHt7= Request.Form("Ht7") strHt8= Request.Form("Ht8") strHt9= Request.Form("Ht9") strHt10= Request.Form("Ht10") strHt11= Request.Form("Ht11") strHt12= Request.Form("Ht12") strHt13= Request.Form("Ht13") strHt14= Request.Form("Ht14") strHt15= Request.Form("Ht15") strHt16= Request.Form("Ht16") strHt17= Request.Form("Ht17") strHt18= Request.Form("Ht18") strHt19= Request.Form("Ht19") strHt20= Request.Form("Ht20") strHt21= Request.Form("Ht21") strHt22= Request.Form("Ht22") strHt23= Request.Form("Ht23") strHt24= Request.Form("Ht24") strSt1= Request.Form("St1") strSt2= Request.Form("St2") strSt3= Request.Form("St3") strSt4= Request.Form("St4") strSt5= Request.Form("St5") strSt6= Request.Form("St6") strSt7= Request.Form("St7") strSt8= Request.Form("St8") strSt9= Request.Form("St9") strSt10= Request.Form("St10") strSt11= Request.Form("St11") strSt12= Request.Form("St12") strSt13= Request.Form("St13") strSt14= Request.Form("St14") strSt15= Request.Form("St15") strSt16= Request.Form("St16") strSt17= Request.Form("St17") strSt18= Request.Form("St18") strSt19= Request.Form("St19") strSt20= Request.Form("St20") strSt21= Request.Form("St21") strSt22= Request.Form("St22") strSt23= Request.Form("St23") strSt24= Request.Form("St24") If Len(strL1) <2 then strHt1 = "" else if strHt1="" then strHt1 = strCity If Len(strL1) <2 then strSt1 = "" else if strSt1="" then strSt1 = strState If Len(strL2) <2 then strHt2 = "" else if strHt2="" then strHt2 = strCity If Len(strL2) <2 then strSt2 = "" else if strSt2="" then strSt2 = strState If Len(strL3) <2 then strHt3 = "" else if strHt3="" then strHt3 = strCity If Len(strL3) <2 then strSt3 = "" else if strSt3="" then strSt3 = strState If Len(strL4) <2 then strHt4 = "" else if strHt4="" then strHt4 = strCity If Len(strL4) <2 then strSt4 = "" else if strSt4="" then strSt4 = strState If Len(strL5) <2 then strHt5 = "" else if strHt5="" then strHt5 = strCity If Len(strL5) <2 then strSt5 = "" else if strSt5="" then strSt5 = strState If Len(strL6) <2 then strHt6 = "" else if strHt6="" then strHt6 = strCity If Len(strL6) <2 then strSt6 = "" else if strSt6="" then strSt6 = strState If Len(strL7) <2 then strHt7 = "" else if strHt7="" then strHt7 = strCity If Len(strL7) <2 then strSt7 = "" else if strSt7="" then strSt7 = strState If Len(strL8) <2 then strHt8 = "" else if strHt8="" then strHt8 = strCity If Len(strL8) <2 then strSt8 = "" else if strSt8="" then strSt8 = strState If Len(strL9) <2 then strHt9 = "" else if strHt9="" then strHt9 = strCity If Len(strL9) <2 then strSt9 = "" else if strSt9="" then strSt9 = strState If Len(strL10) <2 then strHt10 = "" else if strHt10="" then strHt10 = strCity If Len(strL10) <2 then strSt10 = "" else if strSt10="" then strSt10 = strState If Len(strL11) <2 then strHt11 = "" else if strHt11="" then strHt11 = strCity If Len(strL11) <2 then strSt11 = "" else if strSt11="" then strSt11 = strState If Len(strL12) <2 then strHt12 = "" else if strHt12="" then strHt12 = strCity If Len(strL12) <2 then strSt12 = "" else if strSt12="" then strSt12 = strState If Len(strL13) <2 then strHt13 = "" else if strHt13="" then strHt13 = strCity If Len(strL13) <2 then strSt13 = "" else if strSt13="" then strSt13 = strState If Len(strL14) <2 then strHt14 = "" else if strHt14="" then strHt14 = strCity If Len(strL14) <2 then strSt14 = "" else if strSt14="" then strSt14 = strState If Len(strL15) <2 then strHt15 = "" else if strHt15="" then strHt15 = strCity If Len(strL15) <2 then strSt15 = "" else if strSt15="" then strSt15 = strState If Len(strL16) <2 then strHt16 = "" else if strHt16="" then strHt16 = strCity If Len(strL16) <2 then strSt16 = "" else if strSt16="" then strSt16 = strState If Len(strL17) <2 then strHt17 = "" else if strHt17="" then strHt17 = strCity If Len(strL17) <2 then strSt17 = "" else if strSt17="" then strSt17 = strState If Len(strL18) <2 then strHt18 = "" else if strHt18="" then strHt18 = strCity If Len(strL18) <2 then strSt18 = "" else if strSt18="" then strSt18 = strState If Len(strL19) <2 then strHt19 = "" else if strHt19="" then strHt19 = strCity If Len(strL19) <2 then strSt19 = "" else if strSt19="" then strSt19 = strState If Len(strL20) <2 then strHt20 = "" else if strHt20="" then strHt20 = strCity If Len(strL20) <2 then strSt20 = "" else if strSt20="" then strSt20 = strState If Len(strL21) <2 then strHt21 = "" else if strHt21="" then strHt21 = strCity If Len(strL21) <2 then strSt21 = "" else if strSt21="" then strSt21 = strState If Len(strL22) <2 then strHt22 = "" else if strHt22="" then strHt22 = strCity If Len(strL22) <2 then strSt22 = "" else if strSt22="" then strSt22 = strState If Len(strL23) <2 then strHt23 = "" else if strHt23="" then strHt23 = strCity If Len(strL23) <2 then strSt23 = "" else if strSt23="" then strSt23 = strState If Len(strL24) <2 then strHt24 = "" else if strHt24="" then strHt24 = strCity If Len(strL24) <2 then strSt24 = "" else if strSt24="" then strSt24 = strState 'These would read the message subject and body if we let you enter it 'strSubject = Request.Form("subject") 'strBody = Request.Form("body") ' Both of these should be changed before you run this script. strSubject = "TofC MS Entry Submitted: "& strTeam &" on "& strDateNow ' This is multi-lined simply for readability strBody = "Tournament of Champions - Middle School Team Duals" ' Some spacing: strBody = strBody & vbCrLf & vbCrLf strBody = strBody & "Entry Form submitted: "& strDateNow &" at "& strTimeNow & vbCrLf strBody = strBody & vbCrLf ' A lot of people have asked how to use form data in the emails so ' I added this line to the sample as an example of incorporating form ' data in the body of the email. strBody = strBody & "Team: "& strTeam & vbCrLf 'strBody = strBody & Request.Form("City") & ", "& Request.Form("State") & vbCrLf strBody = strBody & strCity & " "& strState & vbCrLf strBody = strBody & "Coach: "& strCoach & vbCrLf strBody = strBody & "E-mail: "& strEmail & vbCrLf strBody = strBody & "Home Phone: "& strHPhone & " Cell Phone: "& strCPhone & vbCrLf strBody = strBody & vbCrLf strBody = strBody & strTeam & vbCrLf strBody = strBody & "Wt."&"," & "Last" &"," & "First" &"," & "Gr." &"," & "Year" &"," & "City" &"," & "State"& vbCrLf strBody = strBody & strW1 & "," & strL1 &"," & strF1 &"," & strGr1 &"," & strBy1 &"," & strHt1 &"," & strSt1 & vbCrLf strBody = strBody & strW2 & "," & strL2 &"," & strF2 &"," & strGr2 &"," & strBy2 &"," & strHt2 &"," & strSt2 & vbCrLf strBody = strBody & strW3 & "," & strL3 &"," & strF3 &"," & strGr3 &"," & strBy3 &"," & strHt3 &"," & strSt3 & vbCrLf strBody = strBody & strW4 & "," & strL4 &"," & strF4 &"," & strGr4 &"," & strBy4 &"," & strHt4 &"," & strSt4 & vbCrLf strBody = strBody & strW5 & "," & strL5 &"," & strF5 &"," & strGr5 &"," & strBy5 &"," & strHt5 &"," & strSt5 & vbCrLf strBody = strBody & strW6 & "," & strL6 &"," & strF6 &"," & strGr6 &"," & strBy6 &"," & strHt6 &"," & strSt6 & vbCrLf strBody = strBody & strW7 & "," & strL7 &"," & strF7 &"," & strGr7 &"," & strBy7 &"," & strHt7 &"," & strSt7 & vbCrLf strBody = strBody & strW8 & "," & strL8 &"," & strF8 &"," & strGr8 &"," & strBy8 &"," & strHt8 &"," & strSt8 & vbCrLf strBody = strBody & strW9 & "," & strL9 &"," & strF9 &"," & strGr9 &"," & strBy9 &"," & strHt9 &"," & strSt9 & vbCrLf strBody = strBody & strW10 & "," & strL10 &"," & strF10 &"," & strGr10 &"," & strBy10 &"," & strHt10 &"," & strSt10 & vbCrLf strBody = strBody & strW11 & "," & strL11 &"," & strF11 &"," & strGr11 &"," & strBy11 &"," & strHt11 &"," & strSt11 & vbCrLf strBody = strBody & strW12 & "," & strL12 &"," & strF12 &"," & strGr12 &"," & strBy12 &"," & strHt12 &"," & strSt12 & vbCrLf strBody = strBody & strW13 & "," & strL13 &"," & strF13 &"," & strGr13 &"," & strBy13 &"," & strHt13 &"," & strSt13 & vbCrLf strBody = strBody & strW14 & "," & strL14 &"," & strF14 &"," & strGr14 &"," & strBy14 &"," & strHt14 &"," & strSt14 & vbCrLf strBody = strBody & strW15 & "," & strL15 &"," & strF15 &"," & strGr15 &"," & strBy15 &"," & strHt15 &"," & strSt15 & vbCrLf strBody = strBody & strW16 & "," & strL16 &"," & strF16 &"," & strGr16 &"," & strBy16 &"," & strHt16 &"," & strSt16 & vbCrLf strBody = strBody & strW17 & "," & strL17 &"," & strF17 &"," & strGr17 &"," & strBy17 &"," & strHt17 &"," & strSt17 & vbCrLf strBody = strBody & "Wt." & "," & "Extra Wrestlers: " & vbCrLf strBody = strBody & strWx1 & "," & strL18 &"," & strF18 &"," & strGr18 &"," & strBy18 &"," & strHt18 &"," & strSt18 & vbCrLf strBody = strBody & strWx2 & "," & strL19 &"," & strF19 &"," & strGr19 &"," & strBy19 &"," & strHt19 &"," & strSt19 & vbCrLf strBody = strBody & strWx3 & "," & strL20 &"," & strF20 &"," & strGr20 &"," & strBy20 &"," & strHt20 &"," & strSt20 & vbCrLf strBody = strBody & strWx4 & "," & strL21 &"," & strF21 &"," & strGr21 &"," & strBy21 &"," & strHt21 &"," & strSt21 & vbCrLf strBody = strBody & strWx5 & "," & strL22 &"," & strF22 &"," & strGr22 &"," & strBy22 &"," & strHt22 &"," & strSt22 & vbCrLf strBody = strBody & strWx6 & "," & strL23 &"," & strF23 &"," & strGr23 &"," & strBy23 &"," & strHt23 &"," & strSt23 & vbCrLf strBody = strBody & strWx7 & "," & strL24 &"," & strF24 &"," & strGr24 &"," & strBy24 &"," & strHt24 &"," & strSt24 & vbCrLf 'strBody = strBody & strW2 & "," & Request.Form("L2") &"," & Request.Form("F2") &"," & Request.Form("Gr2") &"," & Request.Form("By2") &"," & Request.Form("Ht2") &"," & Request.Form("St2") & vbCrLf strBody = strBody & vbCrLf ' A final carriage return for good measure! 'strBody = strBody & "Call Gary Baumgartner at 513-424-6201 or Terry Young at 740-753-0561 if you need help or have questions!" & vbCrLf 'strBody = strBody & "Call Bill Swank at 419-238-6179 or Ryan New at 419-772-2445 if you need help or have questions!" & vbCrLf 'strBody = strBody & vbCrLf strBody = strBody & "Reminder: Please send balance of entry fee to:" & vbCrLf strBody = strBody & "Ohio TofC" & vbCrLf strBody = strBody & "8138 Kingfisher Place" & vbCrLf strBody = strBody & "Pickerington, Ohio 43107" & vbCrLf strBody = strBody & "(614)-833-5885" & vbCrLf 'Ok we've got the values now on to the point of the script. 'We just check to see if someone has entered anything into the to field. 'If it's equal to nothing we show the form, otherwise we send the message. 'If you were doing this for real you might want to check other fields too 'and do a little entry validation like checking for valid syntax etc. ' Note: I was getting so many bad addresses being entered and bounced ' back to me by mailservers that I've added a quick validation routine. If StrEmail = "" Or Not IsValidEmail(StrEmail) Then If Request.ServerVariables("HTTP_REFERER") = "http://www.baumspage.com/wr/toc/tocMSentry.asp" Then Response.Write "

Please enter a valid e-mail address!

"& chr(13) %>

Tournament of Champions - Middle School Team Duals

Team Entry Form - Middle School

Use one form per athlete. Teams should use team entry form!
Please enter an active e-mail address. A reply will be sent to e-mail address below,

Enter your e-mail address:
Team Name (Create one or use city):
City: State:
Coach:
Home Phone: Cell Phone:
Enter tentative roster. May be changed at meet!

If different than city above. If different than state above.

Wt.

 First Last

Grade

Birth Year

 Hometown State

75

80

85

90

95

100

105

110

115

120

126

133

140

150

160

180

230

Wt.

 Extra wrestlers

<% Else %>

Tournament of Champions - Middle School Team Duals

Team Entry Form - Middle School

Use one form per athlete. Teams should use team entry form!
Please enter an active e-mail address. A reply will be sent to e-mail address below,

Enter your e-mail address:
Team Name (Create one or use city):
City:
Coach:
Home Phone: Cell Phone:
Enter tentative roster. May be changed at meet!

If different than city above. If different than state above.

Wt.

 First Last

Grade

Birth Year

 Hometown State

75

80

85

90

95

100

105

110

115

120

126

133

140

150

160

180

230

Wt.

 Extra wrestlers

<% End If Else ' Create an instance of the NewMail object. Set objCDOMail = Server.CreateObject("CDONTS.NewMail") ' Set the properties of the object '*********************************************************** ' PLEASE CHANGE THESE SO WE DON'T APPEAR TO BE SENDING YOUR ' EMAIL. WE ALSO DON'T WANT THE EMAILS TO GET SENT TO US ' WHEN SOMETHING GOES WRONG WITH YOUR SCRIPT... THANKS '*********************************************************** ' This syntax works fine 'objCDOMail.From = "user@domain.com" ' But this gets you the appearance of a real name! objCDOMail.From = StrEmail objCDOMail.To = "gb@baumspage.com;bart@ohiotofc.com;terry@baumspage.com" ' objCDOMail.To = "gb@baumspage.com" objCDOMail.Bcc = StrEmail objCDOMail.Subject = strSubject objCDOMail.Body = strBody ' There are lots of other properties you can use. ' You can send HTML e-mail, attachments, etc... ' You can also modify most aspects of the message ' like importance, custom headers, ... ' Check the documentation for a full list as well ' as the correct syntax. ' Some of the more useful ones I've included samples of here: 'objCDOMail.Cc = "user@domain.com;user@domain.com" 'objCDOMail.Bcc = "user@domain.com;user@domain.com" 'objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High) 'objCDOMail.AttachFile "c:\path\filename.txt", "filename.txt" ' I've had several requests for how to send HTML email. ' To do so simply set the body format to HTML and then ' compose your body using standard HTML tags. 'objCDOMail.BodyFormat = 0 ' CdoBodyFormatHTML 'Outlook gives you grief unless you also set: objCDOMail.MailFormat = 0 ' CdoMailFormatMime ' THIS LINE SHOULD BE UNCOMMENTED TO ACTUALLY SEND THE ' MESSAGE. PLEASE BE SURE YOU HAVE APPROPRIATE VALUES ' FOR TO AND FROM ADDRESSES AND HAVE CHANGED THE MESSAGE ' SUBJECT AND BODY BEFORE UNCOMMENTING THIS. ' Send the message! objCDOMail.Send ' Set the object to nothing because it immediately becomes ' invalid after calling the Send method. Set objCDOMail = Nothing 'Confirmation Section Response.Write "Tournament of Champions - Middle School Team Duals
"& vbCrLf&"
"& vbCrLf Response.Write "Submitted to Bart Freidenberg at bart@ohiotofc.com! on " & strDateNow & " at " & strTimeNow & "
"& vbCrLf&"
"& vbCrLf Response.Write "A copy of this form is being sent to you at "& StrEmail & "!
"& vbCrLf&"
"& vbCrLf Response.Write "Check your "& StrEmail & " e-mail account! If you don't receive the e-mail, please try again!
"& vbCrLf&"
"& vbCrLf Response.Write "Team: " & strteam & "
" & vbCrLf ' Response.Write "City: " & strCity & " State: " & strState & "
" & vbCrLff Response.Write "" & strCity & ", " & strState & "
" & vbCrLff Response.Write "Coach: " & strCoach & "
" & vbCrLff Response.Write "Home Phone: " & strHPhone & "Cell Phone: " & strCPhone & "
" & vbCrLff Response.Write "E-mail: " & StrEmail & "
"& vbCrLf Response.Write "
"& vbCrLf Response.Write ""& chr(13) Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" ' Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

Wt.

FirstLast

Grade

Birth Year

HometownState

75

"& strF1 & ""& strL1 & "

"& strGr1 & "

"& strBy1 & "

"& strHt1 & ""& strSt1 & "

80

"& strF2 & ""& strL2 & "

"& strGr2 & "

"& strBy2 & "

"& strHt2 & ""& strSt2 & "

85

"& strF3 & ""& strL3 & "

"& strGr3 & "

"& strBy3 & "

"& strHt3 & ""& strSt3 & "

90

"& strF4 & ""& strL4 & "

"& strGr4 & "

"& strBy4 & "

"& strHt4 & ""& strSt4 & "

95

"& strF5 & ""& strL5 & "

"& strGr5 & "

"& strBy5 & "

"& strHt5 & ""& strSt51 & "

100

"& strF6 & ""& strL6 & "

"& strGr6 & "

"& strBy6 & "

"& strHt6 & ""& strSt62 & "

105

"& strF7 & ""& strL7 & "

"& strGr7 & "

"& strBy7 & "

"& strHt7 & ""& strSt7 & "

110

"& strF8 & ""& strL8 & "

"& strGr8 & "

"& strBy8 & "

"& strHt8 & ""& strSt8 & "

115

"& strF9 & ""& strL9 & "

"& strGr9 & "

"& strBy9 & "

"& strHt9 & ""& strSt9 & "

120

"& strF10 & ""& strL10 & "

"& strGr10 & "

"& strBy10 & "

"& strHt10 & ""& strSt10 & "

126

"& strF11 & ""& strL11 & "

"& strGr11 & "

"& strBy11 & "

"& strHt11 & ""& strSt11 & "

133

"& strF12 & ""& strL12 & "

"& strGr12 & "

"& strBy12 & "

"& strHt12 & ""& strSt12 & "

140

"& strF13 & ""& strL13 & "

"& strGr13 & "

"& strBy13 & "

"& strHt13 & ""& strSt13 & "

150

"& strF14 & ""& strL14 & "

"& strGr14 & "

"& strBy14 & "

"& strHt14 & ""& strSt14 & "

160

"& strF15 & ""& strL15 & "

"& strGr15 & "

"& strBy15 & "

"& strHt15 & ""& strSt15 & "

180

"& strF16 & ""& strL16 & "

"& strGr16 & "

"& strBy16 & "

"& strHt16 & ""& strSt16 & "

230

"& strF17 & ""& strL17 & "

"& strGr17 & "

"& strBy17 & "

"& strHt17 & ""& strSt17 & "

Others

Extra Wrestlers

"& strWx1 & "

"& strF18 & ""& strL18 & "

"& strGr18 & "

"& strBy18 & "

"& strHt18 & ""& strSt18 & "

"& strWx2 & "

"& strF19 & ""& strL19 & "

"& strGr19 & "

"& strBy19 & "

"& strHt19 & ""& strSt19 & "

"& strWx3 & "

"& strF20 & ""& strL20 & "

"& strGr20 & "

"& strBy20 & "

"& strHt20 & ""& strSt20 & "

"& strWx4 & "

"& strF21 & ""& strL21 & "

"& strGr21 & "

"& strBy21 & "

"& strHt21 & ""& strSt21 & "

"& strWx5 & "

"& strF22 & ""& strL22 & "

"& strGr22 & "

"& strBy22 & "

"& strHt22 & ""& strSt22 & "

"& strWx6 & "

"& strF23 & ""& strL23 & "

"& strGr23 & "

"& strBy23 & "

"& strHt23 & ""& strSt23 & "

"& strWx7 & "

"& strF24 & ""& strL24 & "

"& strGr24 & "

"& strBy24 & "

"& strHt24 & ""& strSt24 & "
" Response.Write "
"& vbCrLf Response.Write "Call Gary Baumgartner at 513-424-6201 or Terry Young at 740-753-0561 if you need help or have questions!
"& vbCrLf&"
"& vbCrLf ' Response.Write "Call Bill Swank at 419-238-6179 or Ryan New at 419-772-2445 if you need help or have questions!
"& vbCrLf&"
"& vbCrLf Response.Write "Reminder: Please send balance of entry fee to:
"& vbCrLf&"
"& vbCrLf ' Response.Write "Mail to:
"& vbCrLf: Response.Write "Ohio TofC
"& vbCrLf Response.Write "8138 Kingfisher Place
"& vbCrLf Response.Write "Pickerington, Ohio 43107
"& vbCrLf Response.Write "(614)-833-5885
"& vbCrLf 'Response.Write "Message ARE NO LONGER BEING SENT because of all the abuse the system was receiving!" End If ' End page logic %> <% ' 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 %>