'insert at line 96
Dim closeLink
>>>>
Dim comment
		
comment = match.SelectSingleNode("@comment").text
<<<<
matchId = match.SelectSingleNode("@id").text


'replace lines 114 to 137
if (status = "Dormant") or (status = "") then
	displayScore = "0-0"
	displayStatus = kickoff
	link = ""
	closeLink = ""
elseif (status = "Postponed") then
	displayScore = "P-P"
	displayStatus = ""
	link = ""
	closeLink = ""
elseif (status = "Abandoned") then
	displayScore = "A-A"
	displayStatus = ""
	link = ""
	closeLink = ""
elseif (status = "Cancelled") then
	displayScore = " - "
	displayStatus = ""
	link = ""
	closeLink = ""
	
else
	displayScore = homeTeamScore & "-" & awayTeamScore
	link = "<a href='pda_football_match_details.asp?league=" & Request.QueryString("league") & "&amp;matchid=" & matchId & getExtraQS() & "'>"
	closeLink = "</a>"
	if (status = "Half time") then
		displayStatus = "HT"
	elseif (status = "Full time") or (status = "Result") then
		displayStatus = "FT"
	elseif (status = "Extra time half time") then
		displayStatus = "EHT"
	elseif (status = "Extra time full time") or (status = "Extra time full time penalties") or (status = "Penalties full time")then
		displayStatus = "AET"
	else
		displayStatus = ""
	end if
end if
		

'insert at line 145
	Response.Write ("</tr>")
>>>>
	if (comment > "") and (instr(comment,"Postponed")=0) then
		Response.Write ("<tr><td colspan='4'>" & comment & "</td></tr>")
	end if
<<<<	
next