<%@ 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=171 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:40" 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 object733O() err.clear %>Бетономешалки [РУ]: бетономешалки, бетоносмесители, растворомешалки, растворосмесители<% 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 object721O() err.clear %>
<% Object("vert_menu") %>

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

НОВЫЕ ОБЪЯВЛЕНИЯ
<% Object("new_messages") %>
Словарь терминов   
<% Object("news_object") %>
Страницы:
<% Object("pages") %>
<% 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 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 object722O() 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_286 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("[Title] asc",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, 286, value("page")-10, 10 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% dim utils Set utils = Server.CreateObject("QA.Utils") %>
<%= Containerinfo.CurrentRecord %>. <%= Field("title") %> - <%= Field("text") %>
<% if not(containerinfo.islast) then %> <% end if %> <% ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "news_object" .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 'news_object' correctly!
Details: " & err.description) End If End Sub Private Sub object723O() 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_286 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression(""), 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, 286, 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 %> <%= 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 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") object733O Case Trim("header") object586O Case Trim("body") object721O Case Trim("footer") object585O Case Trim("menu") object587O Case Trim("vert_menu") object590O Case Trim("new_messages") object683O Case Trim("news_object") object722O Case Trim("pages") object723O 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 %>