tribpreps.com - All-State Softball

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% '*****Open A Connection to the database ' Set OBJdbConnection = Server.CreateObject("ADODB.Connection") 'OBJdbConnection.Open "preps",_ '"DATABASE=preps;UID=sltrib;PWD=;DSN=preps" Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "prepsmonedb",_ "DATABASE=sltrib_preps;UID=sltribpreps;PWD=preps09;DSN=prepsmonedb" %> <% If request.servervariables("REQUEST_METHOD")= "POST" then fullname=request.form("fullname") fullname= REPLACE(fullname, "'","''") school=request.form("school") school= REPLACE(school, "'","''") emailaddress=request.form("emailaddress") emailaddress= REPLACE(emailaddress, "'","''") phonenumber=request.form("phonenumber") phonenumber= REPLACE(phonenumber, "'","''") dateentered=date dateentered=funcMySqlDate(dateentered) mvp=request.form("mvp") mvp= REPLACE(mvp, "'","''") catcher1=request.form("catcher1") catcher1= REPLACE(catcher1, "'","''") catcher2=request.form("catcher2") catcher2= REPLACE(catcher2, "'","''") catchers = catcher1 & "; " & catcher2 firstbase=request.form("firstbase") firstbase= REPLACE(firstbase, "'","''") secondbase=request.form("secondbase") secondbase= REPLACE(secondbase, "'","''") thirdbase=request.form("thirdbase") thirdbase= REPLACE(thirdbase, "'","''") shortstop=request.form("shortstop") shortstop= REPLACE(shortstop, "'","''") extrainfielder1=request.form("extrainfielder1") extrainfielder1= REPLACE(extrainfielder1, "'","''") 'extrainfielder2=request.form("extrainfielder2") 'extrainfielder2= REPLACE(extrainfielder2, "'","''") extrainfielders = extrainfielder1 outfielder1=request.form("outfielder1") outfielder1= REPLACE(outfielder1, "'","''") outfielder2=request.form("outfielder2") outfielder2= REPLACE(outfielder2, "'","''") outfielder3=request.form("outfielder3") outfielder3= REPLACE(outfielder3, "'","''") outfielder4=request.form("outfielder4") outfielder4= REPLACE(outfielder4, "'","''") outfielders= outfielder1 & "; " & outfielder2 & "; " & outfielder3 & "; " & outfielder4 pitcher1=request.form("pitcher1") pitcher1= REPLACE(pitcher1, "'","''") pitcher2=request.form("pitcher2") pitcher2= REPLACE(pitcher2, "'","''") pitcher3=request.form("pitcher3") pitcher3= REPLACE(pitcher3, "'","''") pitcher4=request.form("pitcher4") pitcher4= REPLACE(pitcher4, "'","''") pitcher5=request.form("pitcher5") pitcher5= REPLACE(pitcher5, "'","''") pitchers= pitcher1 & "; " & pitcher2 & "; " & pitcher3 & "; " & pitcher4 & "; " & pitcher5 ValueString= "'"& fullname &"','"& school &"','"& emailaddress &"','"& phonenumber &"','"& dateentered &"','"& catchers &"','"& firstbase &"','"& secondbase &"','"& thirdbase &"','"& shortstop &"','"& extrainfielders &"','"& outfielders &"','"& pitchers &"','"& mvp & "'" SQLinsert = "INSERT INTO sltrib_preps.allstatesoftball (fullname, school, emailaddress, phonenumber, dateentered, catchers, firstbase, secondbase, thirdbase, shortstop, extrainfielders, outfielders, pitchers, mvp) VALUES ("& ValueString &")" OBJdbConnection.Execute(SQLinsert) response.redirect("allstatevotethanks.asp") end if %> tribpreps.com - All-State Softball

All-State Softball Ballot
Coaches can submit their all-state ballots. The Tribune will verify the authenticity of each ballot. Please write in name and school in the box provided.

Coach Name
School Affiliation
Phone Number
Email
	The information submitted above will be verified.

MVP

Two Catchers


First Base
Second Base
Third Base
Shortstop


Extra infielders
(Include position)

Outfielders




Pitchers

<% OBJdbConnection.Close Set OBJdbConnection=Nothing %>