Внедренческая фирма "Блик"

<%@ 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=170 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:36 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 object711O() 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 = 298 ContainerInfo.ContentName = "Типы Вендоров" AddValue "dynamicContentNameSource", "CONTENT_298 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("c.content_item_id = " & Value("v_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, 298, 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 '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 object712O() 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 = 299 ContainerInfo.ContentName = "Вендоры" AddValue "dynamicContentNameSource", "CONTENT_299 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("v_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, 299, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><% if Value("sv_id") = Field("content_item_id") then%>

<%=Field("Title")%>

<%else %>

&sv_id=<%=Field("content_item_id")%>"><%=Field("Title")%>

<%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 object713O() err.clear %><% if Len(Value("sv_id")) = 0 then%> <%Object("Desc")%> <%else%> <%Object("Text")%> <%end if%><% 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 object719O() err.clear %>

<< Назад

<% If Err.Number <> 0 Then Response.write("Unable to display object 'lowmenu' correctly!
Details: " & err.description) End If End Sub Private Sub object715O() 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 = 298 ContainerInfo.ContentName = "Типы Вендоров" AddValue "dynamicContentNameSource", "CONTENT_298 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("c.content_item_id = " & Value("v_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, 298, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><%=Field("Description")%><% .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 'desc' correctly!
Details: " & err.description) End If End Sub Private Sub object716O() 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 = 299 ContainerInfo.ContentName = "Вендоры" AddObjectValue "sv_id", "0" AddValue "dynamicContentNameSource", "CONTENT_299 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("c.content_item_id = " & Value("sv_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, 299, 1, 0 While Not .EOF ContainerInfo.Adjust InitFieldValues ContainerInfo.RecordSet ContainerInfo.AdjustUploadUrl %><%=Field("Text")%><% .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 'text' 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%>>

" 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") object711O Case Trim("menu") object692O Case Trim("код счетчика") object731O Case Trim("addtext") object712O Case Trim("main text") object713O Case Trim("banner") object733O Case Trim("lowmenu") object719O Case Trim("desc") object715O Case Trim("text") object716O 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")%>