select 
	 1  as tag, 
	 0  as parent,
	competition.idSportType as 'Sport!1!idSportType', 
	cast(competition.SportName as char( 10 )) as 'Sport!1!SportName'
from dbo.VIEWCurentLineBets2 as competition
where competition.EventDate>GetDate() and competition.web='да'
group by idSportType, SportName

order by 'Sport!1!SportName','Sport!1!idSportType'

for xml explicit

<%
 Set aCfg=Server.CreateObject("MSXML2.DOMDocument")
 aCfg.Async=False
 STR1="http://server/dir?SQL=dbo.procedure&root=competitions"
 aCfg.Load STR1
 if aCfg.parseError.errorCode =  0  then
 Set objNodeList = aCfg.getElementsByTagName("Sport")
 else
   StrError="Ошибка!"
 end if
%>