<% 
Dim s
Dim ret
dim ErrCode 
dim ErrDesc
dim Summa
Dim Articul
Dim Phone
Dim obj
Dim b
Dim Descr
Dim ConfirmAction
Dim TransID
Dim sTime
Dim Account
Dim ConnectionString
Dim TimeOut
Dim CheckTimeout
Dim MakeTimeout

...

s="<?xml version = '1.0' encoding='Windows-1251' ?>" & _
	"<RESPONSE>" & _
	"<OK>" & ret & "</OK>" & _
	"<ERRCODE>" & ErrCode & "</ERRCODE>" & _
	"<ERRDESC>" & ErrDesc & "</ERRDESC>" & _
	"<PHONE>" & Phone & "</PHONE>" & _
	"<PRODUCT>" & Articul & "</PRODUCT>" & _
	"<SUM>" & Summa & "</SUM>" & _
	"<DESCRIPTION>" & Descr & "</DESCRIPTION>" & _
	"<CONFIRM>" & ConfirmAction & "</CONFIRM>" & _
	"<TRANSACTION>" & TransID & "</TRANSACTION>" & _
	"<TIME>" & sTime & "</TIME>" & _
	"</RESPONSE>"

end select
Response.Clear
Response.ContentType = "text/xml"
Response.Write s
%>