<%@ Language = 'VbScript' LCID=1049 CodePage=1251 EnableSessionState=True%> <% Option Explicit %> <% Response.CharSet = "windows-1251" %> <% cnn.Open Application("ConnectionString") Randomize 'defining the global variables dim site_id, page_id, strSQL site_id=37 page_id=150 Dim QP_IsInStageMode QP_IsInStageMode = False 'define response properties Response.AddHeader "publisher", "Quantum Art's Q-Publishing 6.5 (http://www.quantumart.com) 20 февраля 2007 г. 22:42:25" Response.Expires = -1000 Response.CacheControl = "Private" Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-control", "no-cache, no-store, must-revalidate" dim upload_url, base_upload_url, published_status_type_id, object_call_depth Dim AbsUploadURL, UploadURLPrefix, PublishedStatusName Dim QP_IsInFrontend QP_IsInFrontend = True dim object_call_stack(20) upload_url = "/upload/images" base_upload_url = "/upload/" object_call_depth = 0 published_status_type_id=GetMaximumWeightStatusTypeId(37) PublishedStatusName=GetMaximumWeightStatusTypeName(37) FillValues Private Sub object742O() err.clear %><% if value("type")<>"" then %> <% Object("type") %> - Бетономешалки [РУ] <% else %>Бетоносмесители, растворонасосы, бетонные заводы, вибропресс, бетон, растворосмесители - Бетономешалки [РУ]<% end if %><% If Err.Number <> 0 Then Response.write("Unable to display object 'title' correctly!
Details: " & err.description) End If End Sub Private Sub object586O() err.clear %>
бетономешалки, строительная техника и оборудование
О ПРОЕКТЕ РЕКЛАМА НА САЙТЕ Добавить в Избранное Карта сайта Порекомендовать сайт другу Сделать стартовой
Бетономешалки от 150 до 200 литров - Антарес АСТ
<% Object ("menu") %>
<% If Err.Number <> 0 Then Response.write("Unable to display object 'header' correctly!
Details: " & err.description) End If End Sub Private Sub object594O() err.clear %>
<% Object("vert_menu") %>

Как разместить на этом месте рекламу Вашей компании? Очень просто.

НОВЫЕ ОБЪЯВЛЕНИЯ
<% Object("new_messages") %>
Каталог сайтов    <% if value("type")<>"" then %> <% Object("type") %><% end if %>
Как зарегистрироваться в каталоге? Очень просто!
<% if value("type")<>"" then %> <% Object("inside") %>
Страницы:
<% Object("pages") %>
<% else %> <% Object("catalog") %>
<% end if %>
<% If Err.Number <> 0 Then Response.write("Unable to display object 'body' correctly!
Details: " & err.description) End If End Sub Private Sub object585O() err.clear %>
 
Rambler's Top100
<% If Err.Number <> 0 Then Response.write("Unable to display object 'footer' correctly!
Details: " & err.description) End If End Sub Private Sub object601O() err.clear Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal Dim FieldValuesDictionaryBackup, FieldNamesDictionaryBackup, ContainerInfoBackup Set FieldValuesDictionaryLocal = CreateObject("Scripting.Dictionary") Set FieldNamesDictionaryLocal = CreateObject("Scripting.Dictionary") Set ContainerInfoLocal = New ContainerInfoClass If IsObject(FieldValuesDictionary) Then Set FieldValuesDictionaryBackup = FieldValuesDictionary If IsObject(FieldNamesDictionary) Then Set FieldNamesDictionaryBackup = FieldNamesDictionary If IsObject(ContainerInfo) Then Set ContainerInfoBackup = ContainerInfo Set FieldValuesDictionary = FieldValuesDictionaryLocal Set FieldNamesDictionary = FieldNamesDictionaryLocal Set ContainerInfo = ContainerInfoLocal Dim cmd Set cmd = GetContainerCommand(cnn, "c.*", "CONTENT_261 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression("c.content_item_id="&value("type")), GetContainerOrderExpressionNew("",NULL), 1, 0,0) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") InitContainerFieldsNew ContainerInfo.RecordSet With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then ContainerInfo.Init cmd, 37, 261, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><%= Field("title") %><% ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "type" .MoveNext Wend .Close End If End With Set ContainerInfo.RecordSet = Nothing Set cmd = Nothing DisposeContainer If IsObject(FieldValuesDictionaryBackup) Then Set FieldValuesDictionary = FieldValuesDictionaryBackup If IsObject(FieldNamesDictionaryBackup) Then Set FieldNamesDictionary = FieldNamesDictionaryBackup If IsObject(ContainerInfoBackup) Then Set ContainerInfo = ContainerInfoBackup Set FieldValuesDictionaryLocal = Nothing Set FieldNamesDictionaryLocal = Nothing Set ContainerInfoLocal = Nothing If Err.Number <> 0 Then Response.write("Unable to display object 'type' correctly!
Details: " & err.description) End If End Sub Private Sub object587O() err.clear Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal Dim FieldValuesDictionaryBackup, FieldNamesDictionaryBackup, ContainerInfoBackup Set FieldValuesDictionaryLocal = CreateObject("Scripting.Dictionary") Set FieldNamesDictionaryLocal = CreateObject("Scripting.Dictionary") Set ContainerInfoLocal = New ContainerInfoClass If IsObject(FieldValuesDictionary) Then Set FieldValuesDictionaryBackup = FieldValuesDictionary If IsObject(FieldNamesDictionary) Then Set FieldNamesDictionaryBackup = FieldNamesDictionary If IsObject(ContainerInfo) Then Set ContainerInfoBackup = ContainerInfo Set FieldValuesDictionary = FieldValuesDictionaryLocal Set FieldNamesDictionary = FieldNamesDictionaryLocal Set ContainerInfo = ContainerInfoLocal Dim cmd Set cmd = GetContainerCommand(cnn, "c.*", "CONTENT_255 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("[order] asc",NULL), 1, 0,0) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") InitContainerFieldsNew ContainerInfo.RecordSet With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then ContainerInfo.Init cmd, 37, 255, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% if containerinfo.isfirst then %> " class="main"><%= Ucase(Field("title")) %> <% else %> <% if (containerinfo.currentrecord mod 2) = 0 then %> " class="main"><%= Ucase(Field("title")) %> <% else %> " class="main"><%= Ucase(Field("title")) %> <% end if %> <% end if %><% ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "menu" .MoveNext Wend .Close End If End With Set ContainerInfo.RecordSet = Nothing Set cmd = Nothing DisposeContainer If IsObject(FieldValuesDictionaryBackup) Then Set FieldValuesDictionary = FieldValuesDictionaryBackup If IsObject(FieldNamesDictionaryBackup) Then Set FieldNamesDictionary = FieldNamesDictionaryBackup If IsObject(ContainerInfoBackup) Then Set ContainerInfo = ContainerInfoBackup Set FieldValuesDictionaryLocal = Nothing Set FieldNamesDictionaryLocal = Nothing Set ContainerInfoLocal = Nothing If Err.Number <> 0 Then Response.write("Unable to display object 'menu' correctly!
Details: " & err.description) End If End Sub Private Sub object590O() err.clear Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal Dim FieldValuesDictionaryBackup, FieldNamesDictionaryBackup, ContainerInfoBackup Set FieldValuesDictionaryLocal = CreateObject("Scripting.Dictionary") Set FieldNamesDictionaryLocal = CreateObject("Scripting.Dictionary") Set ContainerInfoLocal = New ContainerInfoClass If IsObject(FieldValuesDictionary) Then Set FieldValuesDictionaryBackup = FieldValuesDictionary If IsObject(FieldNamesDictionary) Then Set FieldNamesDictionaryBackup = FieldNamesDictionary If IsObject(ContainerInfo) Then Set ContainerInfoBackup = ContainerInfo Set FieldValuesDictionary = FieldValuesDictionaryLocal Set FieldNamesDictionary = FieldNamesDictionaryLocal Set ContainerInfo = ContainerInfoLocal Dim cmd Set cmd = GetContainerCommand(cnn, "c.*", "CONTENT_256 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("[order] asc",NULL), 1, 0,0) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") InitContainerFieldsNew ContainerInfo.RecordSet With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then ContainerInfo.Init cmd, 37, 256, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% if not (containerinfo.currentrecord mod 2) = 0 then %>
" class="nav"><%= Field("title") %>
<% else %>
" class="nav"><%= Field("title") %>
<% end if %><% ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "vert_menu" .MoveNext Wend .Close End If End With Set ContainerInfo.RecordSet = Nothing Set cmd = Nothing DisposeContainer If IsObject(FieldValuesDictionaryBackup) Then Set FieldValuesDictionary = FieldValuesDictionaryBackup If IsObject(FieldNamesDictionaryBackup) Then Set FieldNamesDictionary = FieldNamesDictionaryBackup If IsObject(ContainerInfoBackup) Then Set ContainerInfo = ContainerInfoBackup Set FieldValuesDictionaryLocal = Nothing Set FieldNamesDictionaryLocal = Nothing Set ContainerInfoLocal = Nothing If Err.Number <> 0 Then Response.write("Unable to display object 'vert_menu' correctly!
Details: " & err.description) End If End Sub Private Sub object683O() err.clear Response.Write "Please, configure the object 'new_messages' parameters." If Err.Number <> 0 Then Response.write("Unable to display object 'new_messages' correctly!
Details: " & err.description) End If End Sub Private Sub object596O() err.clear Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal Dim FieldValuesDictionaryBackup, FieldNamesDictionaryBackup, ContainerInfoBackup Set FieldValuesDictionaryLocal = CreateObject("Scripting.Dictionary") Set FieldNamesDictionaryLocal = CreateObject("Scripting.Dictionary") Set ContainerInfoLocal = New ContainerInfoClass If IsObject(FieldValuesDictionary) Then Set FieldValuesDictionaryBackup = FieldValuesDictionary If IsObject(FieldNamesDictionary) Then Set FieldNamesDictionaryBackup = FieldNamesDictionary If IsObject(ContainerInfo) Then Set ContainerInfoBackup = ContainerInfo Set FieldValuesDictionary = FieldValuesDictionaryLocal Set FieldNamesDictionary = FieldNamesDictionaryLocal Set ContainerInfo = ContainerInfoLocal AddObjectValue "page", "11" Dim cmd Set cmd = GetContainerCommand(cnn, "c.*", "CONTENT_262 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression("[tip]="&value("type")), GetContainerOrderExpressionNew("",NULL), value("page")-10, 10,1) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") InitContainerFieldsNew ContainerInfo.RecordSet With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then ContainerInfo.Init cmd, 37, 262, value("page")-10, 10 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %> <% if not(containerinfo.islast) then %> <% end if %>
<%= Containerinfo.Currentrecord %>. " class="cata" target=_blank><%= Field("title") %>
  <%= Field("text") %>
  <%= Field("link") %>
<% ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "inside" .MoveNext Wend .Close End If End With Set ContainerInfo.RecordSet = Nothing Set cmd = Nothing DisposeContainer If IsObject(FieldValuesDictionaryBackup) Then Set FieldValuesDictionary = FieldValuesDictionaryBackup If IsObject(FieldNamesDictionaryBackup) Then Set FieldNamesDictionary = FieldNamesDictionaryBackup If IsObject(ContainerInfoBackup) Then Set ContainerInfo = ContainerInfoBackup Set FieldValuesDictionaryLocal = Nothing Set FieldNamesDictionaryLocal = Nothing Set ContainerInfoLocal = Nothing If Err.Number <> 0 Then Response.write("Unable to display object 'inside' correctly!
Details: " & err.description) End If End Sub Private Sub object600O() err.clear Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal Dim FieldValuesDictionaryBackup, FieldNamesDictionaryBackup, ContainerInfoBackup Set FieldValuesDictionaryLocal = CreateObject("Scripting.Dictionary") Set FieldNamesDictionaryLocal = CreateObject("Scripting.Dictionary") Set ContainerInfoLocal = New ContainerInfoClass If IsObject(FieldValuesDictionary) Then Set FieldValuesDictionaryBackup = FieldValuesDictionary If IsObject(FieldNamesDictionary) Then Set FieldNamesDictionaryBackup = FieldNamesDictionary If IsObject(ContainerInfo) Then Set ContainerInfoBackup = ContainerInfo Set FieldValuesDictionary = FieldValuesDictionaryLocal Set FieldNamesDictionary = FieldNamesDictionaryLocal Set ContainerInfo = ContainerInfoLocal Dim cmd Set cmd = GetContainerCommand(cnn, "c.*", "CONTENT_262 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression("[tip]="&value("type")), GetContainerOrderExpressionNew("",NULL), 1, 1,0) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") InitContainerFieldsNew ContainerInfo.RecordSet With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then ContainerInfo.Init cmd, 37, 262, 1, 1 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% dim s,i,k,str,cont s=containerinfo.totalrecords/10 str=1 if ((containerinfo.totalrecords mod 10) <> 0) then k=cint(INSTR(1, s, ",")-1) str=cint(mid(s,1,k))+1 end if cont=1 %> <% for i=1 to str %> <% k=10*i+1 %> <% if (i=1) then %> <% end if %> <% if (((value("page")="") and (i=1)) or (cint(value("page"))=k)) then %> <%= i %> <% else %> &page=<%= k %>"><%= i %> <% end if %> <% if ((i mod 21 =0) and (i<>str)) then %> <% cont=cint(cont)+1 %> <% end if %> <% if (i=str) then %> <% if cont=1 then %> <% else %> >  <% end if %> <% end if %> <% next %><% ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "pages" .MoveNext Wend .Close End If End With Set ContainerInfo.RecordSet = Nothing Set cmd = Nothing DisposeContainer If IsObject(FieldValuesDictionaryBackup) Then Set FieldValuesDictionary = FieldValuesDictionaryBackup If IsObject(FieldNamesDictionaryBackup) Then Set FieldNamesDictionary = FieldNamesDictionaryBackup If IsObject(ContainerInfoBackup) Then Set ContainerInfo = ContainerInfoBackup Set FieldValuesDictionaryLocal = Nothing Set FieldNamesDictionaryLocal = Nothing Set ContainerInfoLocal = Nothing If Err.Number <> 0 Then Response.write("Unable to display object 'pages' correctly!
Details: " & err.description) End If End Sub Private Sub object595O() err.clear Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal Dim FieldValuesDictionaryBackup, FieldNamesDictionaryBackup, ContainerInfoBackup Set FieldValuesDictionaryLocal = CreateObject("Scripting.Dictionary") Set FieldNamesDictionaryLocal = CreateObject("Scripting.Dictionary") Set ContainerInfoLocal = New ContainerInfoClass If IsObject(FieldValuesDictionary) Then Set FieldValuesDictionaryBackup = FieldValuesDictionary If IsObject(FieldNamesDictionary) Then Set FieldNamesDictionaryBackup = FieldNamesDictionary If IsObject(ContainerInfo) Then Set ContainerInfoBackup = ContainerInfo Set FieldValuesDictionary = FieldValuesDictionaryLocal Set FieldNamesDictionary = FieldNamesDictionaryLocal Set ContainerInfo = ContainerInfoLocal Dim cmd Set cmd = GetContainerCommand(cnn, "c.*", "CONTENT_261 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("",NULL), 1, 0,0) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") InitContainerFieldsNew ContainerInfo.RecordSet With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then ContainerInfo.Init cmd, 37, 261, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% if (containerinfo.currentrecord mod 2) <> 0 then %> <% if (containerinfo.islast) then %>
<%= Containerinfo.Currentrecord %>. " class="cata"><%= Field("title") %>
<%= Field("prim") %>
  <% else %>
<%= Containerinfo.Currentrecord %>. " class="cata"><%= Field("title") %>
<%= Field("prim") %>
<% end if %> <% else %>
<%= Containerinfo.Currentrecord %>. " class="cata"><%= Field("title") %>
<%= Field("prim") %>
<% end if %><% ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "catalog" .MoveNext Wend .Close End If End With Set ContainerInfo.RecordSet = Nothing Set cmd = Nothing DisposeContainer If IsObject(FieldValuesDictionaryBackup) Then Set FieldValuesDictionary = FieldValuesDictionaryBackup If IsObject(FieldNamesDictionaryBackup) Then Set FieldNamesDictionary = FieldNamesDictionaryBackup If IsObject(ContainerInfoBackup) Then Set ContainerInfo = ContainerInfoBackup Set FieldValuesDictionaryLocal = Nothing Set FieldNamesDictionaryLocal = Nothing Set ContainerInfoLocal = Nothing If Err.Number <> 0 Then Response.write("Unable to display object 'catalog' correctly!
Details: " & err.description) End If End Sub Private Sub CallStackOverflow() Response.Write "Object Call Stack Overflow
Call Stack:
" dim i for i=1 to 20 Response.Write object_call_stack(i)&"
" next Response.End End Sub Private Function ObjectNS(name) Object(name) End Function Private Function Object(name) object_call_depth = object_call_depth + 1 if object_call_depth > 20 then CallStackOverflow object_call_stack(object_call_depth) = name Select Case Trim(lCase(name)) Case Trim("title") object742O Case Trim("header") object586O Case Trim("body") object594O Case Trim("footer") object585O Case Trim("type") object601O Case Trim("menu") object587O Case Trim("vert_menu") object590O Case Trim("new_messages") object683O Case Trim("inside") object596O Case Trim("pages") object600O Case Trim("catalog") object595O Case Else Response.Write "Object " & name & " not found.
" End Select object_call_depth = object_call_depth - 1 End Function Function LangObject (objectName) Dim lang lang = Value ("lang") if ( lang = "en" or lang = "am" ) then Object (objectName & "_" & lang) else Object (objectName) end if End Function %> <% Object("title") %> <% Object("Header") %> <% Object("Body") %> <% Object("Footer") %> <% DisposeValues cnn.Close %>