" + _
"" + _
"" + sCourse + "
" + _
"" + sCity + ", " + sState + "
| " + _
"" + FormatDateTime(timeStart, vbLongDate) + _
" | "
'
' first row of scorecard
'
response.write _
"" + _
"" + _
"" + _
"| HOLE | " + _
"1 | " + _
"2 | " + _
"3 | " + _
"4 | " + _
"5 | " + _
"6 | " + _
"7 | " + _
"8 | " + _
"9 | " + _
"OUT | " + _
"10 | " + _
"11 | " + _
"12 | " + _
"13 | " + _
"14 | " + _
"15 | " + _
"16 | " + _
"17 | " + _
"18 | " + _
"IN | " + _
"Total | " + _
"HCP | " + _
"NET | " + _
"ADJ | " + _
" "
'
' second row of score card -- tees and yardage
'
sQuery = "//IntelliGolf/Courses/Course[@N=""" + sCourse + """]"
Set oCourse = oDoc.selectSingleNode(sQuery)
iTee = CInt(oPlayerRound.Attributes.GetNamedItem("Te").text)
dim oTees
' find tees node, there may be other nodes
for each oTempTees in oCourse.childNodes
if oTempTees.baseName = "Tees" then
set oTees = oTempTees
end if
next
set oTee = oTees.childNodes(iTee)
sTeeName = oTee.Attributes.GetNamedItem("N").text
Response.write "" + _
"| " + sTeeName + " | "
iTotal = 0
iFront = 0
for hole = 0 to 17
if hole > 0 and not CBool (hole Mod 9) then
response.write "" + CStr(iTotal) + " | "
iFront = iTotal
iTotal = 0
end if
sYardage = oTee.childNodes.item(hole).Attributes.GetNamedItem("Y").text
response.write "" + sYardage + " | "
iTotal = iTotal + CInt(sYardage)
next
response.write "" + CStr(iTotal) + ""
response.write " | " + CStr(iTotal + iFront) + ""
response.write " | "
response.write " | "
response.write " | "
'
' scores for everbody
'
for each oRoundPlayed in oRound.childNodes
sPlayerName = oRoundPlayed.Attributes.GetNamedItem("N").text
response.write " | " + _
"| " + _
"" + sPlayerName + "" + _
" | "
set oScore = oRoundPlayed.childNodes(0)
iFront = 0
iTotal = 0
iHolesPlayed = 0
for iHole = 1 to 18
sQuery = "h" + CStr(iHole)
sScore = oScore.Attributes.GetNamedItem(sQuery).text
sPar = oTee.childNodes.item(iHole - 1).Attributes.GetNamedItem("P").text
if iHole > 1 and not CBool (iHole Mod 10) then
response.write "" + CStr(iTotal) + " | "
iFront = iTotal
iTotal = 0
end if
' adjust the color based on birdie, par or over
sBackground = "#FFFFFF"
if (CLng(sScore) > 0) and (CLng(sScore) < (CLng(sPar) - 1)) then
sColor = "white"
sBackground = "#FF0000"
elseif (CLng(sScore) < CLng(sPar)) then
sColor = "red"
elseif (CLng(sScore) = CLng(sPar)) then
sColor = "blue"
else
sColor = "black"
end if
iTotal = iTotal + CInt(sScore)
if (CInt(sScore) > 0) then
iHolesPlayed = iHolesPlayed + 1
else
sScore = ""
end if
response.write "" + sScore + " | "
next
' back 9 total and final total
if (iTotal > 0) then
sScore = CStr(iTotal)
else
sScore = ""
end if
response.write "" + sScore + " | "
response.write "" + CStr(iTotal + iFront) + " | "
' filler
response.write " | "
response.write " | "
response.write " | "
next
' blank line
response.write ""
for i = 1 to 25
response.write "| | "
next
'
' par ratings for each hole
'
iParThrees = 0
Response.write " " + _
"| Par | "
iTotal = 0
for hole = 0 to 17
if hole > 0 and not CBool (hole Mod 9) then
response.write "" + CStr(iTotal) + " | "
iFront = iTotal
iTotal = 0
end if
sPar = oTee.childNodes.item(hole).Attributes.GetNamedItem("P").text
response.write "" + sPar + " | "
iTotal = iTotal + CInt(sPar)
if CInt(sPar) = 3 then
iParThrees = iParThrees + 1
end if
next
response.write "" + CStr(iTotal) + " | "
response.write "" + CStr(iTotal + iFront) + ""
response.write " | "
response.write " | "
response.write " | | "
'
' handicaps
'
Response.write "" + _
"| Handicap | "
for hole = 0 to 17
if hole > 0 and not CBool (hole Mod 9) then
response.write " | "
end if
sHandicap = oTee.childNodes.item(hole).Attributes.GetNamedItem("H").text
response.write "" + sHandicap + " | "
next
response.write " "
response.write " | "
response.write " | "
response.write " | "
response.write " | | "
'
' Greeens in Reg
'
iFront = 0
iTotal = 0
set oPutt = oPlayerRound.selectSingleNode("Pt")
set oScore = oPlayerRound.childNodes(0)
response.write "| Greens in reg | "
for iHole = 1 to 18
sQuery = "h" + CStr(iHole)
iScore = oScore.Attributes.GetNamedItem(sQuery).nodeValue
iPar = oTee.childNodes.item(iHole - 1).Attributes.GetNamedItem("P").nodeValue
iPutt = oPutt.Attributes.GetNamedItem(sQuery).nodeValue
'response.write CStr(iHole) + " " + CStr(iScore) + " " + CStr(iPar) + " " + CStr(iPutt) + "
"
if iHole > 1 and not CBool (iHole Mod 10) then
if (iTotal > 0) then
sOut = CStr(iTotal)
else
sOut = " "
end if
response.write "" + sOut + " | "
iFront = iTotal
iTotal = 0
end if
if iScore and ((iPar - 2) >= (iScore - iPutt)) then
response.write "x | "
iTotal = iTotal + 1
else
response.write " | "
end if
next
' back 9 total and final total
response.write "" + CStr(iTotal) + " | "
response.write "" + CStr(iTotal + iFront) + " | "
' percentage of greeens
if (iHolesPlayed > 9) then
iHolesPlayed = 18
else
iHolesPlayed = 9
end if
iPercent = CLng(((iTotal + iFront) / iHolesPlayed) * 100)
response.write "" + CStr(iPercent) + "% | "
response.write " | "
response.write " | "
'
' Putts
'
response.write " | Putts | "
iFront = 0
iTotal = 0
for iHole = 1 to 18
sQuery = "h" + CStr(iHole)
sPutt = oPutt.Attributes.GetNamedItem(sQuery).text
if iHole > 1 and not CBool (iHole Mod 10) then
response.write "" + CStr(iTotal) + " | "
iFront = iTotal
iTotal = 0
end if
response.write "" + sPutt + " | "
iTotal = iTotal + CInt(sPutt)
next
' back 9 total and final total
response.write "" + CStr(iTotal) + " | "
response.write "" + CStr(iTotal + iFront) + " | "
response.write " | "
response.write " | "
response.write " | "
' Penalty strokes
Set oPenalty = nothing
iFront = 0
iTotal = 0
response.write " | Penalty strokes | "
if TypeName(oPlayerRound.selectSingleNode("Pn")) = "IXMLDOMElement" then
Set oPenalty = oPlayerRound.selectSingleNode("Pn")
for iHole = 1 to 18
sQuery = "h" + CStr(iHole)
iPenalty = oPenalty.Attributes.GetNamedItem(sQuery).nodeValue
if (iHole > 1) and not (CBool (iHole Mod 10)) then
if (iTotal > 0) then
response.write "" + CStr(iTotal) + " | "
else
response.write " | "
end if
iFront = iTotal
iTotal = 0
end if
if (iPenalty) then
response.write "" + CStr(iPenalty) + " | "
iTotal = iTotal + iPenalty
else
response.write " | "
end if
next
if (iTotal > 0) then
sOut = CStr(iTotal)
else
sOut = " "
end if
response.write "" + sOut + " | "
if ((iTotal + iFront) > 0) then
sOut = CStr(iTotal + iFront)
else
sOut = " "
end if
response.write "" + sOut + " | "
response.write " | "
response.write " | "
response.write " | "
else
' no penalty info
for i = 1 to 24
response.write " | "
next
end if
' Fairways hit
Set oOptions = nothing
iFront = 0
iTotal = 0
response.write " | Fairways | "
if TypeName(oPlayerRound.selectSingleNode("Di")) = "IXMLDOMElement" then
Set oOptions = oPlayerRound.selectSingleNode("Di")
for iHole = 1 to 18
sQuery = "h" + CStr(iHole)
iOptions = oOptions.Attributes.GetNamedItem(sQuery).nodeValue
iFairway = iOptions AND &h1000
if (iHole > 1) and not (CBool (iHole Mod 10)) then
if (iTotal > 0) then
response.write "" + CStr(iTotal) + " | "
else
response.write " | "
end if
iFront = iTotal
iTotal = 0
end if
if (iFairway) then
response.write "" + "x" + " | "
iTotal = iTotal + 1
else
response.write " | "
end if
next
if (iTotal > 0) then
sOut = CStr(iTotal)
else
sOut = " "
end if
response.write "" + sOut + " | "
if ((iTotal + iFront) > 0) then
sOut = CStr(iTotal + iFront)
else
sOut = " "
end if
response.write "" + sOut + " | "
iPercent = CLng(((iTotal + iFront) / (iHolesPlayed - iParThrees)) * 100)
response.write "" + CStr(iPercent) + "% | "
response.write " | "
response.write " | "
else
' no fairway info
for i = 1 to 24
response.write " | "
next
end if
' wrap up the tables
response.write " |
"
iMin = DateDiff("n", timeStart, timeEnd)
if (iMin > 0) then
iHour = Int(iMin / 60)
iMin = iMin mod 60
else
iHour = 0
iMin = 0
end if
timeDuration = TimeSerial(iHour, iMin, 0)
sRating = oTee.Attributes.GetNamedItem("Mr").text
sSlope = oTee.Attributes.GetNamedItem("Ms").text
response.write " | | | " + _
"Start: " + FormatDateTime(timeStart, vbShortTime) + _
" Duration: " + FormatDateTime(timeDuration, vbShortTime) + _
" | Course Rating " + CStr(CInt(sRating) / 10) + _
" Slope Rating " + sSlope + " |
"
response.write " |