<% '================== 'Convert Numeric '================== function convertNumeric(t) tempNumber="" for x = 1 to len(t) tempNumber = tempNumber & asc(mid(t,x,1))-65 next convertNumeric = tempNumber end function '================== 'Convert Text '================== function convertText(t) tempNumber="" for x = 1 to len(cstr(t)) tempNumber = tempNumber & chr(cint(mid(t,x,1))+65) next convertText = tempNumber end function '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Function f_lastName_dir(lastName) 'Prepared the 2-character directory for player's profile f_lastName_dir = UCase(Left(Replace(Replace(Replace(lastName, "'", ""), " ", ""), ".", ""), 2)) End Function %> <% 'currentSite = "TBC" currentSite = "SWC" 'path = "c:/bc/data/" path="e:/inetpub/database/" 'path="d:/wwwroot/sports-wired.com/database/" %> <%'Database currentHS = 0 anchors="1234567890" currentStatus="" currentHS = request.querystring("ID") dim aka set rsConn=server.createobject("ADODB.Connection") set rsObj=server.createObject("ADODB.Recordset") cs_stats= "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source = " & path & "stats.mdb" rsConn.open cs_stats 'Initializations ' Call setCurrentStatus Sql="SELECT * FROM HS H, Cities C, Regions R WHERE H.cityID = C.cityID and C.regionID = R.regionID and hsID = " & request.querystring("ID") set rsObj=rsConn.execute(Sql) hsName=rsObj("hsName") hsCity = rsObj("cityName") & "," & rsObj("regionName") currentRegion = rsObj("c.regionID") regionName = rsobj("RegionName") aka = rsObj("Aka") %> The Baseball Cube News
The Baseball Cube News About Us - Sponsor a Page - Contact Us
Players Teams Draft Minor Leagues College High Schools Stats Machine Managers Posters Links MVN Blogs Advertising
The Baseball Cube Home Page
NFL Tickets, MLB Tickets, Red Sox Tickets, NY Yankees Tickets, World Series Tickets, Cubs Tickets, Patriots Tickets and Steelers Tickets.
John Mayer Tickets, Bob Dylan TicketsJersey Boys Tickets, Jimmy Buffett Tickets, Cardinals Tickets, Red Sox Tickets, New York Yankees Tickets, White Sox Tickets.

Posters, Prints, Photographs

Almost 100,000 products in stock! Browse by category or use the search...Baseball, Sports, all subjects!


TBC SHOP
Baseball Data
Posters, Photogrphs, Prints
Jerseys and Hats
All other Products

Buy at Art.com
The Ultimate Red Sock
Buy From Art.com
Friends of TBC
The Golf Collector
Consumer Tales
Bonin Sports Cards
Baseball-Links.Com
MVN Blogs
Women of Sports


MLB Baseball Tickets: Boston Red Sox Baseball Tickets-New York Yankees Tickets-Chicago Cubs MLB Tickets-San Francisco Giants Tickets-Sports Tickets-College Sports Tickets-World Series Tickets

MLB Tickets 2005

American League
Angels Tickets
Orioles Tickets
Red Sox Tickets
White Sox Tickets
Indians Tickets
Tigers Tickets
Royals Tickets
Twins Tickets
Yankees Tickets
Athletics Tickets
Mariners Tickets
Devil Rays Tickets
Rangers Tickets
National League
Diamondbacks Tickets
Braves Tickets
Cubs Tickets
Reds Tickets
Rockies Tickets
Marlins Tickets
Astros Tickets
Dodgers Tickets
Brewers Tickets
Expos Tickets
Mets Tickets
Phillies Tickets
Pirates Tickets
Cardinals Tickets
Padres Tickets
Giants Tickets
Nationals Tickets

Buy Sports Tickets Online
Buy Patriots Tickets
Chicago Bears Tickets
Super Bowl Tickets
NASCAR Tickets


Recent Site Headlines
TBC News



January 17,2005 - Fantasy Baseball at BigDawgBaseball.Com

January 3,2005 - Slam Baseball partners with TBC

December 12,2004 - Take the TBC Site Survey to help choose the site's next direction!

December 4,2004 - New layout to The Baseball Cube and Sports-Wired.Com.


Subscribe to our newsletter and TBC will notify you of new features automatically.


Seattle Mariners Tickets
St. Louis Cardinals Tickets
Tampa Bay Devil Rays Tickets
Texas Rangers Tickets
Toronto Blue Jays Tickets
Washington Nationals Tickets

Chicago Cubs Tickets
Boston Red Sox Tickets
St. Louis Cardinals Tickets
Chicago White Sox Tickets
Anaheim Angels Tickets
MLB baseball Tickets
World Series Tickets

World Series Tix, Super Bowl Tix, Final Four Tix, Kentucky Derby Tix, Masters Tix,


Get Me In. Buy and sell Baseball Tickets, Yankees Tickets, Sports Tickets, Concert Tickets and Theatre Tickets

Baseball tickets including San Francisco Giants tickets and Boston Red Sox tickets.
Shop MLB.com has photos and prints unmatched

<% sub page_Links response.write "
" 'Link Section Title response.write "" response.write "" response.write "" response.write "" response.write "" response.write "

" end sub sub showaka '+++ SHOW ALTERNATE NAMES FOR HIGH SCHOOL +++++++++++++++++++++ 'Only if exists. if aka <> "" then response.write "


" response.write "AKA: " & aka & " High School" response.write "
" end if '+++++++++++++++++++++++++++++++++++++++++++++++++++++++ end sub sub alumni%>
Baseball Alumni   -    Drafted Players   -    <%Call other_HS%>
The following list contains all players known to The Baseball Cube to have played at this high school and then gone on to play college ball or better. It is by no means complete and if you know of any players who went on to play professional baseball who you believe should be listed here, please don't hesitate to contact us. The list below is simply a list of the known alumni in our database.
<% Sql="SELECT * FROM Players P, Cities C, Teams T WHERE P.collegeID = T.teamID and P.cityID = C.cityID and HS = '" & request.querystring("ID") & "' ORDER BY LastName,firstName" set rsObj2=rsconn.execute(sql) response.write "
" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" x=1 do while not rsObj2.eof response.write "" if rsObj2("highLevel") <> "MLB" or isnull(rsObj2("highLevel"))=true then response.write "" else response.write "" end if response.write "" response.write "" if rsObj2("cityName") <> "-" then response.write "" else response.write "" end if if rsObj2("CollegeID") <> 0 then response.write "" else response.write "" end if response.write "" response.write "" response.write "" if x mod 3 = 0 then response.write "" end if x=x+1 rsObj2.movenext loop response.write "" response.write "
Player NamePositionBorn DatePlace of BirthCollegeHighest LevelMLB Years
" & rsObj2("lastName") & "," & rsObj2("firstName") & "" & rsObj2("lastName") & "," & rsObj2("firstName") & "" & rsObj2("posit") & "" & rsObj2("bornDate") & "" & rsObj2("cityName") & ", " & rsObj2("regionID") & " " & rsObj2("TeamName") & " " & rsObj2("highLevel") & "" & rsObj2("mlbYears") & "
" end sub sub drafted%> Baseball Alumni   -    Drafted Players   -    <%Call other_HS%>
The following is a complete list of drafted players from this high school. Players in bold have reached the major leagues and those who are linked, have a player profile page here at The Baseball Cube. MLB Players in Bold
<% Sql="SELECT * FROM Draft WHERE hsID = " & request.querystring("ID") & " ORDER BY year DESC,draftround,overall" set rsObj2=rsconn.execute(sql) response.write "
" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" prevYear = 0 do while not rsObj2.eof Sql="SELECT * FROM Teams WHERE teamID = " & rsObj2("teamID") set rsObj3=rsConn.execute(Sql) if prevYear <> rsObj2("Year") then response.write "" end if response.write "" response.write "" response.write "" response.write "" response.write "" if isnull(rsObj2("PlayerID"))=false then Sql="SELECT * FROM Players P, Teams T WHERE P.collegeID = t.teamID and PlayerID = " & rsObj2("PlayerID") set rsObj3=rsConn.execute(Sql) if rsObj3.eof=false then if rsObj3("highLevel") <> "MLB" and isnull(rsObj3("highLevel"))=false then response.write "" else if rsObj3("highLevel") = "MLB" then response.write "" else response.write "" end if end if else response.write "" end if else response.write "" end if response.write "" if isnull(rsObj2("PlayerID"))=false then if rsObj3("CollegeID") <> 0 then response.write "" else response.write "" end if else response.write "" end if if isnull(rsObj2("PlayerID"))=false then response.write "" response.write "" else response.write "" response.write "" end if response.write "" prevYear = rsObj2("year") rsObj2.movenext loop response.write "" response.write "
Draft YearRoundOverallTeamPlayer NamePositionCollegeHighest LevelMLB Years
" & rsObj2("year") & "" & rsObj2("draftRound") & "" & rsObj2("overall") & "" & rsObj3("teamName") & "" & rsObj3("firstName") & " " & rsObj3("LastName") & "" & rsObj3("firstName") & " " & rsObj3("LastName") & "" & rsObj3("firstName") & " " & rsObj3("LastName") & "" & rsObj2("firstName") & " " & rsObj2("LastName") & "" & rsObj2("firstName") & " " & rsObj2("LastName") & "" & lcase(rsObj2("posit")) & "" & rsObj3("TeamName") & "  " & rsObj3("highLevel") & "" & rsObj3("mlbYears") & "  
" end sub '+++ OTHER HIGH SCHOOLS (from same state) ++++++++++++++++++++++++++ sub other_HS Sql="SELECT * FROM HS H, Cities C WHERE H.cityID = C.cityID and RegionID = '" & currentregion & "' ORDER BY hsName" set rsObj=rsConn.execute(sql) response.write "" end sub '++++end OTHER HIGH SCHOOLS +++++++++++++++++++++++++++++++++++ '============== 'Convert Phase '================ function convertPhase(p) Select Case p Case "June-Reg" convertPhase = "JuneR" Case "Aug-Leg" convertPhase = "AugL" Case "Jan-Reg" convertPhase = "JanR" Case "Jan-Sec" convertPhase = "JanS" Case "June-Sec" convertPhase = "JuneS" Case "June-SecA" convertPhase = "JuneSa" Case "June-SecD" convertPhase = "JuneSd" End Select end function%>