<!--#include virtual="/_private/adojavas.inc"-->
<%
var RS = Server.CreateObject("ADODB.RecordSet");
var Conn = Server.CreateObject("ADODB.Connection");
var Cmd = Server.CreateObject("ADODB.Command");
Conn.Mode = adModeRead;
Conn.Open(connStr,'published','123');
Cmd.CommandType=adCmdStoredProc;
/*
Функция               : writeXML()
Описание              : Вывод XML данных 
Аргументы             : нет
Возвращаемые значения : нет
*/
function writeXML(){
  RS = Cmd.Execute();
  if (RS.State != 0){
    Response.Write('<?xml version="1.0" encoding="Windows-1251"?>')
    while (RS != null){
      if (!RS.EOF)
        Response.Write(RS.GetString(2,-1)) 
      RS = RS.NextRecordSet
    } 
  }
  Conn.Close;
  Conn = null;
  Cmd = null; 
}
%>