<%@ Language=VBScript %> <% Response.cachecontrol="private" %> <% 'Parameters Passed: None %> <% ENABLESESSIONSTATE=False Response.Expires = 0 Response.Buffer = True server.scripttimeout=20 'response.redirect("index.html") %> <% '########################################################################### ' Things that have to be changed when moving from Development to production set masterDb = Server.CreateObject("ADODB.Connection") masterDb.Open "Provider=SQLOLEDB;Data Source=10.10.13.110;User Id=mshsl_user;Password=m28&^gqL; Initial Catalog=mshsl;" 'masterDb.Open "Provider=SQLOLEDB;Data Source=206.9.232.109;User Id=sa;Password=mshsl; Initial Catalog=mshsldev;" set masterDb2 = Server.CreateObject("ADODB.Connection") masterDb2.Open "Provider=SQLOLEDB;Data Source=10.10.13.110;User Id=gpublic;Password=paccess; Initial Catalog=mshsl;" 'masterDb2.Open "Provider=SQLOLEDB;Data Source=206.9.232.109;User Id=sa;Password=mshsl; Initial Catalog=mshsldev;" ' Things that have to be changed when moving from Development to production '########################################################################### Application("YearStartDate") = "8/1/2014" Application("YearEndDate") = "7/1/2015" Application("strYear") = "2014-2015" if INSTR(Request.QueryString,"exec") > 0 then response.redirect("http://www.mshsl.org/deadpage_exec.html") end if if INSTR(Request.QueryString,"declare") > 0 then response.redirect("http://www.mshsl.org/deadpage_declare.html") end if if INSTR(Request.QueryString,"DECLARE") > 0 then response.redirect("http://www.mshsl.org/deadpage_declare.html") end if if INSTR(Request.QueryString,"CAST(") > 0 then response.redirect("http://www.mshsl.org/deadpage_declare.html") end if if INSTR(Request.QueryString,";") > 0 then response.redirect("http://www.mshsl.org/deadpage_semi.html") end if dim key, keyval for each key in Request.QueryString keyval = Request.Querystring(key) if instr(keyval,"DECLARE") > 0 or instr(keyval,"VARCHAR") > 0 or instr(keyval,"CAST") > 0 or instr(keyval,"EXEC") > 0 or instr(keyval,";") > 0 or instr(keyval,"--") > 0 then Response.Redirect ("http://www.mshsl.org/deadpage_function.html") exit for end if next if Len(Request.QueryString) > 255 then response.redirect("http://www.mshsl.org/deadpage_long.html") end if %> Welcome to the Minnesota State High School League! Welcome to the Minnesota State High School League!
 
 Home      Administration
<% strUA = Request.ServerVariables("HTTP_USER_AGENT") %>
<% getGames1.close() set getGames1 = Nothing getGames2.close() set getGames2 = Nothing end if On Error resume next %>
<%leftcolumn="white" rightcolumn="E3E3E3" %> <% Set ActivityPage = Server.CreateObject("ADODB.Recordset") sSQL = "exec getHomepage" Set ActivityPage = getDb2().Execute(sSQL) Set Newslist = Server.CreateObject("ADODB.Recordset") sSQL = "exec getNews '" & Date() & "','" & Date() & "',0" Set Newslist = getDb2().Execute(sSQL) Set NewNewslist = Server.CreateObject("ADODB.Recordset") sSQL = "exec getWhatsNew '" & Now() & "','" & Now() & "',0" Set NewNewslist = getDb2().Execute(sSQL) Set getJournal = Server.CreateObject("ADODB.Recordset") sSQL = "select top 5 * from tblBlog order by fldDate desc" Set getJournal = getDb2().Execute(sSQL) %> <% textlen=6500 showline=0 dogames=0 showactname="Baseball" if dogames=1 then Set getGames1 = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT TOP 3 tblgames.fldactivitynumber,tblGames.fldGameID, tblGames.fldGameDate, tblGames.fldVisScore, tblGames.fldHomeScore, tblGames.fldScoreAdd, tblgames.fldOverride1 as VisSchool, '' as VisCoop, tblgames.fldOverride2 AS HomeSchool, '' AS homeCoop, tblgames.fldlivestats FROM tblGames WHERE (fldStateGame = 1) AND (tblGames.fldActivityNumber in (401)) AND ((fldVisScore > 0) OR (fldHomeScore > 0) OR (fldScoreAdd <> '')) and tblgames.fldGamedate > '6/21/2011 6:59:59 AM' ORDER BY fldGameDate DESC" Set getGames1 = getDb().Execute(sSQL) Set getGames2 = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT TOP 3 tblgames.fldActivitynumber, tblGames.fldGameID, tblgames.fldOverride1 as VisSchool, '' as VisCoop, tblgames.fldOverride2 as HomeSchool, '' as HomeCoop, tblGames.fldGameDate, tblGames.fldVisScore, tblGames.fldHomeScore, tblGames.fldScoreAdd, tblGames.fldStateGame, tblgames.fldlivestats FROM tblGames WHERE (tblGames.fldStateGame = 1) AND (tblGames.fldActivityNumber in (401)) AND (tblGames.fldVisScore = 0) AND (tblGames.fldHomeScore = 0) AND (tblGames.fldScoreAdd = '') ORDER BY tblGames.fldGameDate" Set getGames2 = getDb().Execute(sSQL) On Error resume next %>
State Tournament Results:     BaseballGames | Brackets 
<% i=0 do while not getGames1.eof i=i+1 if Len(getGames1("VisCoop")) > 0 then team1=getGames1("VisCoop") else team1=Replace(Replace(getGames1("VisSchool"),"High School", "H.S."),"Schooly","") end if if Len(getGames1("HomeCoop")) > 0 then team2=getGames1("HomeCoop") else team2=Replace(Replace(getGames1("HomeSchool"),"High School", "H.S."),"Schooly","") end if %> <%getGames1.moveNext Loop do while not getGames2.eof i=i+1 if i < 4 then if Len(getGames2("VisCoop")) > 0 then team1=getGames2("VisCoop") else team1=Replace(Replace(getGames2("VisSchool"),"High School", "H.S."),"Schooly","") end if if Len(getGames2("HomeCoop")) > 0 then team2=getGames2("HomeCoop") else team2=Replace(Replace(getGames2("HomeSchool"),"High School", "H.S."),"Schooly","") end if %> <% end if getGames2.moveNext Loop %>
  Baseball 
<%=team1%>    <%=getGames1("fldVisScore")%>
<%=team2%>    <%=getGames1("fldHomeScore")%>
<%if len(getGames1("fldScoreAdd")) > 0 then%> <%=getGames1("fldScoreAdd")%>
<%else%> ">Game Summary
<%end if%> <%if len(getGames1("fldLivestats")) > 0 then%> /xlive.htm')">Live Stats <%end if%>
  Baseball 
<%=team1%>    <%=getGames2("fldVisScore")%>
<%=team2%>    <%=getGames2("fldHomeScore")%>
<%=Replace(Replace(Replace(getGames2("fldGameDate"),"00:00","00"),"15:00","15"),"45:00","45")%> <%if len(getGames2("fldLivestats")) > 0 then%>
/xlive.htm')">Live Stats
NEWS ALERT! The MSHSL site will be down for routine maintenance from 5PM to 10 PM on Wednesday, August 3rd. We are sorry for any trouble this causes.
<%do while not Activitypage.EOF%>
" class="ui-tabs-panel" style=""> <%if ActivityPage("fldHomepageID") = 1 then%>


<% firstpost=1 pstr1="" pstr2="" pstr3="" pstr4=""%> <% do while not getJournal.EOF%> <%pstr1=""%> <%pstr2=""%> <%pstr3=""%> <%pstr4=""%> <%if hislimit > 10 then%> <%if Len(getJournal("fldPost")) > hislimit and firstpost = 0 then%> <%else%> <%end if hislimit=hislimit -Len(getJournal("fldPost")) end if firstpost=0 %> <%getJournal.moveNext Loop%>
<%=getJournal("fldheader")%>
Posted by <%=getJournal("fldPoster")%> (jmillea@mshsl.org)- Updated <%=getJournal("fldDate")%>

<%=Left(Replace(Replace(Replace(Replace(getJournal("fldPost"),"",pstr1),"",pstr2),"",pstr3),"",pstr4),hislimit)%>...
<%=Replace(Replace(Replace(Replace(getJournal("fldPost"),"",pstr1),"",pstr2),"",pstr3),"",pstr4)%>





More of John's Journal
<%else%> <%teaser = ActivityPage("fldSummary")%>
<%=ActivityPage("fldLeadCaption")%>
<%if len(ActivityPage("fldPhotoloc")) > 0 then%> " border="0" align="<%=ActivityPage("fldPhotoAlign")%>" vspace="4" hspace="10" <%if ActivityPage("fldPhotoWidth") > 0 then%>width="<%=ActivityPage("fldPhotoWidth")%>" <%end if%><%if ActivityPage("fldPhotoHeight") > 0 then%>height="<%=ActivityPage("fldPhotoHeight")%>"<%end if%> ALT="Home Page Photo"> <%end if%> <%=teaser%>      
<%if len(ActivityPage("fldlink1loc")) > 0 then%> <%end if%> <%if len(ActivityPage("fldlink2loc")) > 0 then%> <%end if%> <%if len(ActivityPage("fldlink3loc")) > 0 then%> <%end if%> <%if len(ActivityPage("fldlink4loc")) > 0 then%> <%end if%>
"><%=ActivityPage("fldlink1name")%> "><%=ActivityPage("fldlink2name")%>"><%=ActivityPage("fldlink3name")%>"><%=ActivityPage("fldlink4name")%>
<%end if%>
<%ActivityPage.MoveNext Loop%>

<%alreadydidemptyline=0 do WHile NOT NewNewslist.EOF if NewNewslist("fldUserID") > 0 and alreadydidemptyline = 0 then alreadydidemptyline=1 end if%> <%NewNewslist.MoveNext Loop %>
League News
"><%= NewNewslist("fldNewsLinkName")%> 
Show Older News Items

<%do While not newslist.EOF%> <%else%> "><%=Newslist("fldNewslinkName")%> <%end if%> <%newslist.MoveNext Loop%>
Popular Links:
  <%if right(Newslist("fldNewsURL"),3) = "htm" or right(Newslist("fldNewsURL"),4) = "html" then%> "><%=Newslist("fldNewslinkName")%>











<% ActivityPage.close set ActivityPage = Nothing Newslist.close set Newslist= Nothing NewNewslist.close set NewNewslist= Nothing 'WRNews.close 'set WRNews= Nothing 'GYMNews.close 'set GYMNews= Nothing %>
Copyright 1994-<%=year(now())%> Minnesota State High School League
2100 Freeway Boulevard Brooklyn Center, MN 55430-1735
(763) 560-2262    FAX (763) 569-0499
<% ClearDB() %>