<%@ 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=41 page_id=173 Dim QP_IsInStageMode QP_IsInStageMode = False 'define response properties Response.AddHeader "publisher", "Quantum Art's Q-Publishing 7.5 (http://www.quantumart.com) Mon, 22 Dec 2008 16:24:39 GMT" 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" site_url = "/live/" base_upload_url = "/upload/" object_call_depth = 0 published_status_type_id=GetMaximumWeightStatusTypeId(41) PublishedStatusName=GetMaximumWeightStatusTypeName(41) FillValues Private Sub object690O() err.clear %><% If Err.Number <> 0 Then Response.write("Unable to display object 'css' correctly!
Details: " & err.description) End If End Sub Private Sub object727O() 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 ContainerInfo.ContentID = 301 ContainerInfo.ContentName = "Фотографии в шапке" AddValue "dynamicContentNameSource", "CONTENT_301 AS c WITH (NOLOCK)" Dim cmd Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 91 " &" and c.archive = 0" & GetContainerFilterExpression(""), "NewId()", 1, 1,1) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then If Not .EOF Then AppendFieldToDictionary "Фотография", 1082, 8, False, 301 End If ContainerInfo.Init cmd, 41, 301, 1, 1 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><%=ContainerInfo.UploadUrl%>/<%=Field("Фотография")%><% .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 'фотографии в шапке' correctly!
Details: " & err.description) End If End Sub Private Sub object736O() err.clear %>Семинары<% If Err.Number <> 0 Then Response.write("Unable to display object 'head2' correctly!
Details: " & err.description) End If End Sub Private Sub object692O() 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 ContainerInfo.ContentID = 292 ContainerInfo.ContentName = "Главное меню" AddValue "dynamicContentNameSource", "CONTENT_292 AS c WITH (NOLOCK)" Dim cmd Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 91 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("[Order] asc",""), 1, 0,0) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then If Not .EOF Then End If ContainerInfo.Init cmd, 41, 292, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %>">            <%=Field("Title")%><% .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 object731O() err.clear %>
<% If Err.Number <> 0 Then Response.write("Unable to display object 'код счетчика' correctly!
Details: " & err.description) End If End Sub Private Sub object737O() 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 ContainerInfo.ContentID = 307 ContainerInfo.ContentName = "Типы семинаров" AddObjectValue "c_id", "1962" AddValue "dynamicContentNameSource", "CONTENT_307 AS c WITH (NOLOCK)" Dim cmd Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 91 " &" and c.archive = 0" & GetContainerFilterExpression(""), GetContainerOrderExpressionNew("",""), 1, 0,0) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then If Not .EOF Then End If ContainerInfo.Init cmd, 41, 307, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% if Value("c_id") = Field("content_item_id") then%>  <%=Field("Типы семинаров")%>

<%else %>  "><%=Field("Типы семинаров")%>

<%end if%><% .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 'addtext' correctly!
Details: " & err.description) End If End Sub Private Sub object738O() 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 ContainerInfo.ContentID = 308 ContainerInfo.ContentName = "Семинары" AddObjectValue "c_id", "1962" AddValue "dynamicContentNameSource", "CONTENT_308 AS c WITH (NOLOCK)" Dim cmd Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 91 " &" and c.archive = 0" & GetContainerFilterExpression("[Типы семинаров] = " & Value("c_id")), GetContainerOrderExpressionNew("",""), 1, 0,0) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then If Not .EOF Then End If ContainerInfo.Init cmd, 41, 308, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% if Len(Field("Полный текст")) > 0 then %> "><%=Field("Семинар")%>
<%else %> <%=Field("Семинар")%>
<%end if%><% .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 'main text' correctly!
Details: " & err.description) End If End Sub Private Sub object733O() err.clear %>
 
<%Object("Ban")%>		  
<% If Err.Number <> 0 Then Response.write("Unable to display object 'banner' correctly!
Details: " & err.description) End If End Sub Private Sub object739O() err.clear %>
<< Назад  
 <% If Err.Number <> 0 Then Response.write("Unable to display object 'lowmenu' correctly!
Details: " & err.description) End If End Sub Private Sub object734O() 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 ContainerInfo.ContentID = 305 ContainerInfo.ContentName = "Баннеры" AddValue "dynamicContentNameSource", "CONTENT_305 AS c WITH (NOLOCK)" Dim cmd Set cmd = GetContainerCommand(cnn, "c.*" & "" , Value("dynamicContentNameSource") & "" , "c.visible = 1 " & "AND c.status_type_id = 91 " &" and c.archive = 0" & GetContainerFilterExpression(""), "NewId()", 1, 1,1) Set ContainerInfo.RecordSet = Server.CreateObject("ADODB.Recordset") With ContainerInfo.RecordSet .CursorLocation = adUseClient .Open cmd,, adOpenForwardOnly, adLockReadOnly If .State <> adStateClosed Then If Not .EOF Then AppendFieldToDictionary "Картинка", 1097, 8, False, 305 End If ContainerInfo.Init cmd, 41, 305, 1, 1 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %>" <%if Field("Показывать в новом окне")=1 then %> target="_blank" <%end if%>><%=Field(" src="<%=ContainerInfo.UploadUrl%>/<%=Field("Картинка")%>"><% .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 'ban' 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("css") object690O Case Trim("фотографии в шапке") object727O Case Trim("head2") object736O Case Trim("menu") object692O Case Trim("код счетчика") object731O Case Trim("addtext") object737O Case Trim("main text") object738O Case Trim("banner") object733O Case Trim("lowmenu") object739O Case Trim("ban") object734O 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("CSS")%>
" width=145 height=100 hspace=0 vspace=0 border=0>
 Поставки программ ведущих отечественных и мировых фирм.
  найти»
<%Object("Head2")%>
  <%Object("Menu")%>
<% Object("Код счетчика") %>
<%Object("AddText")%>		 <%Object("Main Text")%>
<%Object("Banner")%>
   
<%Object("LowMenu")%>
  ООО ВФ «Блик» © 2003
<% DisposeValues cnn.Close %>