<%@ 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=177 Dim QP_IsInStageMode QP_IsInStageMode = False 'define response properties Response.AddHeader "publisher", "Quantum Art's Q-Publishing 6.5 (http://www.quantumart.com) 8 августа 2008 г. 14:54:37" 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(32) 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 object783O() err.clear %>
<% Object("vert_menu") %>

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

НОВЫЕ КОМПАНИИ
<% Object("new_comp") %>
Спросите профессионала!   

В данный момент Вы можете спросить:

<% Object("author") %>

Архив web-интервью профессионалов отрасли:


<% Object("links") %>
<% 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 object682O() 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(""), GetContainerOrderExpressionNew("c.created desc",NULL), 1, 5,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, 1, 5 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %> " target=_blank class="nav2"><%= Field("title") %> <% ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "new_comp" .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 'new_comp' correctly!
Details: " & err.description) End If End Sub Private Sub object784O() 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_291 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("c.created desc",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, 291, 1, 1 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% if Field("title")="-" then %>

В данный момент среди директоров и менеджеров предприятий, желающих ответить на вопросы посетителей нашего сайта, не нашлось. А жаль. Мы с удовольствием будем знакомить наших читателей с деятельностью Вашей компании. Это абсолютно бесплатно. Заинтерсовались? Пишите: info@betonomeshalki.ru

<% else %> <%= Field("doljnost") %>

<%= Field("Title") %>

<%= Field("text") %> Как задать вопрос? " class="cata">Нажимайте здесь. <% end if %><% ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "author" .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 'author' correctly!
Details: " & err.description) End If End Sub Private Sub object787O() 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_291 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("c.created desc",NULL), 2, 0,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, 291, 2, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %> &past=1" class="nav"><%= Field("title") %>, <%= Field("doljnost") %>
<% ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "links" .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 'links' 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 32 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 > 32 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") object783O Case Trim("footer") object585O Case Trim("menu") object587O Case Trim("vert_menu") object590O Case Trim("new_comp") object682O Case Trim("author") object784O Case Trim("links") object787O 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 %>