<%@ 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=175 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:52:54" 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 object772O() err.clear %><% if Request.TotalBytes = 0 then %> <% else AddFormToContent "Читательские вопросы", "Published" %> <% end if %>
<% Object("vert_menu") %>

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

НОВЫЕ КОМПАНИИ
<% Object("new_comp") %>
Спросите профессионала!   
<% Object("author") %> <% Object("qa") %> <% If value("past")<>"" then %> <% else %> <% Object("form") %> <% 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 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 object773O() 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("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, 291, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %> <%= Field("doljnost") %>

<%= Field("Title") %>

<%= Field("text") %> <% 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 object775O() 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_289 AS c WITH (NOLOCK)", "c.visible = 1 " &" and c.archive = 0" & GetContainerFilterExpression("[type]=" & 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, 289, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% dim utils Set utils = Server.CreateObject("QA.Utils") %> <%= Field("author") %>, дата: <%= utils.Format(Field("date"), "dd") %>.<%= utils.Format(Field("date"), "MM") %>.<%= utils.Format(Field("date"), "YY") %> <%= Field("text") %> <% If Field("Answer")<>"" then %> <%= Field("answer") %> <% end if %> <% Set utils = Nothing %><% ContainerInfo.AppendIdToOutputValue Field("content_item_id"), "qa" .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 'qa' correctly!
Details: " & err.description) End If End Sub Private Sub object774O() err.clear %>
" method="post" ENCTYPE="multipart/form-data" onSubmit="return checkForm(this)"> " value="<%= Now() %>"> " value="<%= Value("type") %>">
ЗАДАТЬ ВОПРОС
Как Вас зовут?" value="">
Вопрос:
 
<% If Err.Number <> 0 Then Response.write("Unable to display object 'form' 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") object772O Case Trim("footer") object585O Case Trim("menu") object587O Case Trim("vert_menu") object590O Case Trim("new_comp") object682O Case Trim("author") object773O Case Trim("qa") object775O Case Trim("form") object774O 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 %>