<%@ LANGUAGE="VBScript" %> <% dim Rs dim SQL Set Rs = Server.CreateObject("ADODB.Recordset") SQL = "exec cp_GetPrice_0 @qMode=0, @qIsRub=1,@qIsUsd=0, @qPdName='eurosob'" 'Response.Write(SQL) if SQL_command(SQL, Rs)<>1 then Response.Write "Упс! Что-то в этом сайте поломалось не то...
" Response.Write "Сайт не работает и, возможно, работать пока не будет.
" Response.Write "Наш коллектив сейчас трудится над устраннием этой поломки. Извините, если что не так." Response.End else %> Купить | Стиральные машины ЕВРОСОБА

Для перехода на новую
версию сайта нажмите здесь.

ПРАЙС-ЛИСТ

Прайс - лист на товары и услуги фирмы "Гонец".

<% if Rs.Recordcount<1 then Response.Write "Вероятно что-то не работает. :(
" Response.Write "Наш коллектив сейчас трудится над устраннием этой поломки." Response.End end if Rs.Sort = "[Name] DESC, [Price] ASC" Rs.MoveFirst do while not Rs.EOF %> <% Rs.MoveNext loop %>

Наименование Цена
" target=_blank><%=Rs("Name")%> <%=Rs("Price")%> <%=Rs("Currency")%>

ПОСТАВИТЬ стиральную машину ПОД РАКОВИНУ

ИСТОРИЯ

<% end if Rs.close %>