Adult League
Current News
The Fall session has come to a close. I want to thank everyone for making this a succesful year.
Hope to see you again out there next year
Larry Wilbur
League Manager
<%
Set objData = CreateDOM
objData.async = false
if (false) then
Set objDataXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objDataXMLHTTP.open "GET", "", false
objDataXMLHTTP.setRequestHeader "Content-Type", "text/xml"
objDataXMLHTTP.send
objData.load(objDataXMLHTTP.responseBody)
else
objData.load(Server.MapPath("rptLeagueTableYear.xml"))
end if
Set objStyle = CreateDOM
objStyle.async = false
objStyle.load(Server.MapPath("rptLeagueTableYear.xsl"))
Session.CodePage = 65001
Response.ContentType = "text/html"
Response.Write objData.transformNode(objStyle)
Function CreateDOM()
On Error Resume Next
Dim tmpDOM
Set tmpDOM = Nothing
Set tmpDOM = Server.CreateObject("MSXML2.DOMDocument.5.0")
If tmpDOM Is Nothing Then
Set tmpDOM = Server.CreateObject("MSXML2.DOMDocument.4.0")
End If
If tmpDOM Is Nothing Then
Set tmpDOM = Server.CreateObject("MSXML.DOMDocument")
End If
Set CreateDOM = tmpDOM
End Function
%>
<%
Set objData = CreateDOM
objData.async = false
if (false) then
Set objDataXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objDataXMLHTTP.open "GET", "", false
objDataXMLHTTP.setRequestHeader "Content-Type", "text/xml"
objDataXMLHTTP.send
objData.load(objDataXMLHTTP.responseBody)
else
objData.load(Server.MapPath("rptResultsbyDateYear.xml"))
end if
Set objStyle = CreateDOM
objStyle.async = false
objStyle.load(Server.MapPath("rptResultsbyDateYear.xsl"))
Session.CodePage = 65001
Response.ContentType = "text/html"
Response.Write objData.transformNode(objStyle)
Function CreateDOM()
On Error Resume Next
Dim tmpDOM
Set tmpDOM = Nothing
Set tmpDOM = Server.CreateObject("MSXML2.DOMDocument.5.0")
If tmpDOM Is Nothing Then
Set tmpDOM = Server.CreateObject("MSXML2.DOMDocument.4.0")
End If
If tmpDOM Is Nothing Then
Set tmpDOM = Server.CreateObject("MSXML.DOMDocument")
End If
Set CreateDOM = tmpDOM
End Function
%>
<% Set objData = CreateDOM objData.async = false if (false) then Set objDataXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") objDataXMLHTTP.open "GET", "", false objDataXMLHTTP.setRequestHeader "Content-Type", "text/xml" objDataXMLHTTP.send objData.load(objDataXMLHTTP.responseBody) else objData.load(Server.MapPath("qryGoalLeadersforWebsiteYear.xml")) end if Set objStyle = CreateDOM objStyle.async = false objStyle.load(Server.MapPath("rptGoalLeadersYear.xsl")) Session.CodePage = 65001 Response.ContentType = "text/html" Response.Write objData.transformNode(objStyle) Function CreateDOM() On Error Resume Next Dim tmpDOM Set tmpDOM = Nothing Set tmpDOM = Server.CreateObject("MSXML2.DOMDocument.5.0") If tmpDOM Is Nothing Then Set tmpDOM = Server.CreateObject("MSXML2.DOMDocument.4.0") End If If tmpDOM Is Nothing Then Set tmpDOM = Server.CreateObject("MSXML.DOMDocument") End If Set CreateDOM = tmpDOM End Function %>
<% Set objData = CreateDOM objData.async = false if (false) then Set objDataXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") objDataXMLHTTP.open "GET", "", false objDataXMLHTTP.setRequestHeader "Content-Type", "text/xml" objDataXMLHTTP.send objData.load(objDataXMLHTTP.responseBody) else objData.load(Server.MapPath("rptGoalsScoredYear.xml")) end if Set objStyle = CreateDOM objStyle.async = false objStyle.load(Server.MapPath("rptGoalsScoredYear.xsl")) Session.CodePage = 65001 Response.ContentType = "text/html" Response.Write objData.transformNode(objStyle) Function CreateDOM() On Error Resume Next Dim tmpDOM Set tmpDOM = Nothing Set tmpDOM = Server.CreateObject("MSXML2.DOMDocument.5.0") If tmpDOM Is Nothing Then Set tmpDOM = Server.CreateObject("MSXML2.DOMDocument.4.0") End If If tmpDOM Is Nothing Then Set tmpDOM = Server.CreateObject("MSXML.DOMDocument") End If Set CreateDOM = tmpDOM End Function %>