<%@ language=vbscript %> <% DIM strMailID, strMailTitle, strMailPrefix strMailID = Request.QueryString("id") strEventID = Request.QueryString("eventID") strGender = Request.QueryString("gen") strDivision = Request.QueryString("div") strHomeTeam = Request.QueryString("ht") strVisitorTeam = Request.QueryString("vt") Select Case strMailID Case "01" strMailTitle = "League President" strMailPrefix = "league-president" Case "02" strMailTitle = "Senior Vice President" strMailPrefix = "vice-president" Case "03" strMailTitle = "Vice President - Baseball" strMailPrefix = "baseball-vp" Case "04" strMailTitle = "Vice President - Softball" strMailPrefix = "softball-vp" Case "05" strMailTitle = "Safety Officer" strMailPrefix = "safety-officer" Case "06" strMailTitle = "Secretary" strMailPrefix = "league-secretary" Case "07" strMailTitle = "Treasurer" strMailPrefix = "league-treasurer" Case "08" strMailTitle = "Player Agent - Baseball" strMailPrefix = "baseball-agent" Case "09" strMailTitle = "Player Agent - Softball" strMailPrefix = "softball-agent" Case "10" strMailTitle = "Director of Operations (Driver)" strMailPrefix = "ops-driver" Case "11" strMailTitle = "Director of Operations (Yeates)" strMailPrefix = "ops-yeates" Case "12" strMailTitle = "Director of Auxiliary Programs" strMailPrefix = "auxiliary-programs" Case "13" strMailTitle = "Building and Grounds (Driver)" strMailPrefix = "driver-grounds" Case "14" strMailTitle = "Building and Grounds (Yeates)" strMailPrefix = "yeates-grounds" Case "15" strMailTitle = "Director of Ways and Means" strMailPrefix = "wm-director" Case "16" strMailTitle = "Equipment Director - Baseball" strMailPrefix = "baseball-equip" Case "17" strMailTitle = "Equipment Director - Softball" strMailPrefix = "softball-equip" Case "18" strMailTitle = "Commissioner of T-Ball/Challenger" strMailPrefix = "tball" Case "19" strMailTitle = "Commissioner of Coach Pitch (Boys)" strMailPrefix = "cpitch-baseball" Case "20" strMailTitle = "Commissioner of Coach Pitch (Girls)" strMailPrefix = "cpitch-softball" Case "21" strMailTitle = "Commissioner of Major/Minor Baseball" strMailPrefix = "mm-baseball" Case "22" strMailTitle = "Commissioner of Major/Minor Softball" strMailPrefix = "mm-softball" Case "23" strMailTitle = "Commissioner of JR/SR Softball" strMailPrefix = "js-softball" Case "24" strMailTitle = "Information Officer (Webmaster)" strMailPrefix = "webmaster" End Select %> E-Mail Scores to <% Response.Write strMailTitle %>

Bennett’s Creek Little League Official Website

Scores

E-Mail Scores to the <% Response.Write strMailTitle %>

BCLL Stamp graphic
Your Name:

Your E-Mail:

Score Information for <% Response.Write strDivision %> <% Response.Write strGender %>

Home Team

<% Response.Write strHomeTeam %>: 

Visiting Team

<% Response.Write strVisitorTeam %>: