<?xml version="1.0" encoding="utf-8" ?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
  xmlns="urn:schemas-microsoft-com:office:spreadsheet"
  xmlns:o="urn:schemas-microsoft-com:office:office" 
  xmlns:x="urn:schemas-microsoft-com:office:excel"
  xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet">
  <xsl:template match="/">
    <xsl:processing-instruction name="mso-application">
      <xsl:text>progid="Excel.Sheet"</xsl:text>
    </xsl:processing-instruction>
    <Workbook>
      <Styles>
        <Style ss:ID="Default" ss:Name="Normal">
          <Alignment ss:Vertical="Bottom" />
          <Borders />
          <Font />
          <Interior />
          <NumberFormat />
          <Protection />
        </Style>
	<Style ss:ID="s21"><Interior ss:Color="#CE9AFF" ss:Pattern="Solid"/></Style>
	<Style ss:ID="s22"><NumberFormat ss:Format="Short Date"/></Style>
	<Style ss:ID="s23">
		<Borders>
			<Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"/>
			<Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
			<Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>
			<Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"/>
		</Borders>
	</Style>
  	<Style ss:ID="s26">
		<Interior ss:Color="#31CFCE" ss:Pattern="Solid"/>
   		<Font ss:FontName="Verdana" x:CharSet="204" ss:Bold="1"/>
  	</Style>

      </Styles>
      <Worksheet ss:Name="Sheet 1">
        <Table x:FullColumns="1" ss:ExpandedColumnCount="18">
          <Row>
          </Row>
          <Row>
	<xsl:for-each select="//Worksheet/@*">
            <Cell ss:StyleID="s26">
              <Data ss:Type="String"><xsl:value-of select="."/></Data>
            </Cell>
	</xsl:for-each>

          </Row>
          <xsl:apply-templates select="//Worksheet/Row"/>
        </Table>
      </Worksheet>
    </Workbook>
  </xsl:template>
  <xsl:template match="//Worksheet/Row">
	<xsl:if test="Data">
    <Row ss:StyleID="s21">
      <Cell><Data ss:Type="String"><xsl:value-of select="@PlacesName"/></Data></Cell>
    </Row>
	</xsl:if>
	<xsl:for-each select="Data">
' Основная обработка данных
	</xsl:for-each>
  </xsl:template>
</xsl:stylesheet>

	cmd.CommandText = sSQL
	cmd.Properties("Output Stream") = Response
	cmd.Properties("xml root") = "root"
	cmd.Properties("XSL") = "C:\Inetpub\wwwroot\oth_dog.xsl"
	cmd.Properties("Output Encoding") = "Windows-1251"
	cmd.Execute ,,adExecuteStream
	Response.Flush