%@ Language = 'VbScript' LCID=1049 CodePage=65001 EnableSessionState=True%> <% Option Explicit %> <%
Response.CharSet = "utf-8"
%> <%
cnn.Open Application("ConnectionString")
Randomize
'defining the global variables
dim site_id, page_id, strSQL
site_id=79
page_id=523
Dim QP_IsInStageMode
QP_IsInStageMode = False
'define response properties
Response.Expires = -1000
Response.CacheControl = "Private"
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control", "no-cache, no-store, must-revalidate"
dim 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 = "/"
object_call_depth = 0
published_status_type_id=GetMaximumWeightStatusTypeId(79)
PublishedStatusName=GetMaximumWeightStatusTypeName(79)
FillValues
Private Sub object2545O()
err.clear
on error resume next
%>
<%
If Err.Number <> 0 Then
Response.write(": " & err.description)
End If
End Sub
Private Sub object3625O()
err.clear
on error resume next
%>pbody,td,a, input{ font-size: 11px; font-family: Tahoma; } td.center { padding-right: 30px; background-image: url(<%=upload_url%>/center_table_bg.gif); background-position: bottom right; background-repeat: no-repeat; } a.bigger { font-size: 12px; text-decoration: none; } body{ background-color: #FFFFFF; margin: 0px; padding: 0px; } img{ border: none; } col.Left{ width: 307px; } col.Center{ width: 3%; } col.Right{ width: 75%; } hr.grey { color : #B8B8B8; height: 1px; } td.TopLine{ background-color: #115AAB; height: 30px; } td.GreenLine{ background-color: #00F25B; height: 3px; } td.OrangeLine{ background-color: #FF9000; height: 3px; } td.bgLine{ background-color: #2F6FBE; height: 102px; width: 100%; background-image: url(<%=upload_url%>/main_bg_right.gif); background-position: top right; background-repeat: no-repeat; } td.MainShadow{ background-image: url(<%=upload_url%>/logo_shadow.gif); background-repeat: no-repeat; background-position: bottom left; } td.bgButtons{ background-image: url(<%=upload_url%>/bg_button.gif); height: 48px; } td.LogoButtons{ background-image: url(<%=upload_url%>/main_logo_bottom.gif); background-position: top left; background-repeat: no-repeat; height: 48px; } td.Button{ background-image: url(<%=upload_url%>/button_bg.gif); height: 48px; width: 164px; } td.AdBanner{ height: 185px; } td.WhiteBg{ background-color: #FFFFFF; } td.WhiteBg_justify{ background-color: #FFFFFF; text-align: justify; } td.LeftMenu{ color: #FFB017; font-size: 15px; font-weight: bold; text-transform : uppercase; } td.LeftMenu1{ color: #2F6FBE; font-size: 15px; font-weight: bold; text-transform : uppercase; } td.TopBorder{ background-image: url(<%=upload_url%>/t_t_brd.gif); background-repeat: repeat-x; background-position: top; height: 7px; width: 100%; } td.TopRightBorder{ background-image: url(<%=upload_url%>/t_r_t.gif); background-position: top right; background-repeat: no-repeat; height: 7px; } td.RightBorder{ background-image: url(<%=upload_url%>/t_r_brd.gif); background-repeat: repeat-y; background-position: top; width: 7px; height: 100%; } td.BottomBorder{ background-image: url(<%=upload_url%>/t_b_brd.gif); background-repeat: repeat-x; background-position: top; height: 7px; width: 100%; } td.BottomRightBorder{ background-image: url(<%=upload_url%>/t_r_b.gif); background-position: top right; background-repeat: no-repeat; height: 7px; } td.SimplyText{ color: #5A7392; } td.SimplyText_justify{ color: #5A7392; text-align : justify; } .SimplyText, input, select, textarea{ color: #5A7392; font-weight: normal; font-size: 11px; font-family: Tahoma; } .simple_textMO{ color: #5A7392; font-weight: normal; font-size: 11px; font-family: Tahoma; text-align: justify; } td.MiniBanner{ background-image: url(<%=upload_url%>/../offline/left/bg_banner.gif); background-position: top; background-repeat: repeat-x; height: 128px; } td.MOnLine{ height: 43px; background-color: #D9E6F6; background-image: url(<%=upload_url%>/online-bg-center.gif); background-repeat: repeat-x; background-position: top; } td.MOnLineLeft{ height: 43px; background-image: url(<%=upload_url%>/online-bg-left.gif); background-repeat: no-repeat; background-position: top left; width: 100%; } td.MOnLineRight{ height: 43px; background-image: url(<%=upload_url%>/online-bg-right.gif); background-repeat: no-repeat; background-position: top right; } td.Price{ background-image: url(<%=upload_url%>/price.gif); background-repeat: no-repeat; background-position: top; vertical-align: middle; text-align: center; font-size: 12px; font-weight: bold; width: 88px; height: 35px; color: #5A7392; } .Price{ background-image: url(<%=upload_url%>/price.gif); background-repeat: no-repeat; background-position: top; vertical-align: middle; text-align: center; font-size: 14px; font-weight: bold; width: 88px; height: 35px; color: #5A7392; } .products{ background-image: url(<%=upload_url%>/price.gif); background-repeat: no-repeat; background-position: top; vertical-align: middle; text-align: center; font-size: 14px; font-weight: bold; color: #5A7392; } td.DevLine{ background-color: #D9E6F6; height: 1px; } td.CopyRight{ background-color: #FFFFFF; height: 100px; } a.ListHref{ color: #5A7392; text-decoration: none; font-weight: normal; } a.ListHref:hover{ text-decoration: underline; } a.registration{ color: #5A7392; font-weight: normal; } a.BoldHref{ color: #5A7392; font-weight: bold; } li.GreenQ{ list-style: square; color: #FFC621; margin-bottom: 5px; margin-top: 5px; } ul.NoMargin{ padding-left: 10px; margin-left: 10px; } ul.NoMarginBottom{ padding-left: 10px; margin-left: 10px; margin-bottom: 0px; } input.SubscribeInput{ background-color: #FFFFFF; border-color: #7F9DB9; border-width: 1px; border-style: Solid; width:100% } input.SearchWordInput{ background-color: #FFFFFF; border-color: #7F9DB9; border-width: 1px; border-style: Solid; width:100% } select.SearchWordSelect{ background-color: #FFFFFF; border-color: #7F9DB9; border-width: 1px; border-style: Solid; } .ProductName{ font-size: 12px; font-weight: bold; } .NewsDate{ font-weight: bold; } input.Comment{ background-color: #FFFFFF; border-color: #7F9DB9; border-width: 1px; border-style: Solid; } textarea.Comment{ background-color: #FFFFFFc; border-color: #7F9DB9; border-width: 1px; border-style: Solid; } a { font-family : Tahoma; font-size : 11px; font-weight : bold; color : #497BC3; } a:visited { } a.download { font-size: 16px; } button{ } .textwhite{ color: white; text-decoration: none; font-weight: normal; } a.white { color: white; font-weight: normal; } .HeadText{ color: #5A7392; font-size: 12px; } .HeadTextB{ color: #5A7392; font-size: 12px; font-weight: bold; } .Simply{ color: #5A7392; font-size: 11px; } td.InsideContentPart{ background-image: url(<%=upload_url%>/logo_bg.gif); background-position: bottom right; background-repeat: no-repeat; } td.TopBorder{ background-image: url(<%=upload_url%>/t_t_brd.gif); background-repeat: repeat-x; background-position: top; height: 7px; width: 100%; } td.BottomBorder{ background-image: url(<%=upload_url%>/t_b_brd.gif); background-repeat: repeat-x; background-position: top; height: 7px; width: 100%; } td.TopRightBorder{ background-image: url(<%=upload_url%>/t_r_t.gif); background-position: top right; background-repeat: no-repeat; height: 7px; } td.TopLeftBorder{ background-image: url(<%=upload_url%>/t_l_t.gif); background-position: top left; background-repeat: no-repeat; height: 7px; } td.RightBorder{ background-image: url(<%=upload_url%>/t_r_brd.gif); background-repeat: repeat-y; background-position: top; width: 7px; height: 100%; } td.LeftBorder{ background-image: url(<%=upload_url%>/t_l_brd.gif); background-repeat: repeat-y; background-position: top; width: 7px; height: 100%; } td.BottomRightBorder{ background-image: url(<%=upload_url%>/t_r_b.gif); background-position: top right; background-repeat: no-repeat; height: 7px; } td.BottomLeftBorder{ background-image: url(<%=upload_url%>/t_l_b.gif); background-position: top left; background-repeat: no-repeat; height: 7px; } .topmenuitem1 { font-family : Arial; font-size : 14; text-transform : uppercase; font-weight : bold; color : White; text-decoration : none; } .menu2_login { background-color : #2F6FBE; } .white_link, a.white_link{ color : #FFFFFF; font-size : 10; font-weight: normal; font : Tahoma; } .login_padded { padding : 0px 24px 0px 24px; } .ab_user{ font-family : Tahomal; font-size : 15px; color : white; text-decoration : none; } .ab_status{ font-family : Tahomal; font-size : 11px; color : white; text-decoration : none; } .discount{ vertical-align: middle; text-align: center; font-size: 14px; font-weight: bold; color: #5A7392; } .discount_red{ vertical-align: middle; text-align: center; font-size: 16px; font-weight: bold; color: Red; } td.block_title{ color: #000000; font-size: 13px; font-weight: bold; text-transform : uppercase; } .small_link { font-size: 10px; font-weight: normal; color: #575757; } .product_link { font-size: 12px; font-family: Tahoma; } .blue_borderp{ border: 1px; border-style: solid; border-width: 1px; border-color: #D9E6F6; background-color: white; padding: 5px; } .blue_border{ border: 1px; border-style: solid; border-width: 1px; border-color: #D9E6F6; background-color: white; }<%
If Err.Number <> 0 Then
Response.write(": " & err.description)
End If
End Sub
Private Sub object3622O()
err.clear
on error resume next
%><% AddValue "partner", "languagelink" %> <% Object("Определение портала") %>
| <%
Session("user_status_id")="0"
Object("Определение статуса по коду")
if Session("user_status_id")="0" then Session("user_status_id")=11026
%><% Object("Популярный продукт") %> |
<%
If Err.Number <> 0 Then
Response.write(": " & err.description)
End If
End Sub
Private Sub object2708O()
err.clear
on error resume next
Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal, countSQL
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
InitContainer 79, 921
If object_call_depth > 1 Then
strSQL ="sElect c.* from CONTENT_921 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Параметр] = '" & Value("partner") & "'") & GetContainerOrderExpression("","",0)
countSQL ="select count(*) as total from CONTENT_921 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Параметр] = '" & Value("partner") & "'")
Else
strSQL ="sElect c.* from CONTENT_921 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Параметр] = '" & Value("partner") & "'") & GetContainerOrderExpression("","",0)
countSQL ="select count(*) as total from CONTENT_921 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Параметр] = '" & Value("partner") & "'")
End If
Dim rstCountData2708
Set rstCountData2708 = Server.CreateObject("ADODB.Recordset")
rstCountData2708.Open countSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
ContainerInfo.TotalRecords = rstCountData2708.Fields("total")
rstCountData2708.Close
Set rstCountData2708.ActiveConnection = Nothing
Set rstCountData2708 = Nothing
Dim rstContentData2708, CurrentRecordNumber2708
Set rstContentData2708 = Server.CreateObject("ADODB.Recordset")
rstContentData2708.CursorLocation = adUseClient
rstContentData2708.Open strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
dim content_start_number
content_start_number = 1
if not rstContentData2708.EOF then rstContentData2708.Move content_start_number - 1
ContainerInfo.CurrentRecord = content_start_number - 1
For CurrentRecordNumber2708 = 1 To ContainerInfo.TotalRecords
ContainerInfo.CurrentRecord = ContainerInfo.CurrentRecord + 1
If rstContentData2708.EOF Then Exit For
FillContainerInfo content_start_number, ContainerInfo.TotalRecords, rstContentData2708%><%
AddValue "crate", Field("Валюта.Курс")
AddValue "crate_name", Field("Валюта.Код")
AddValue "crate_code", Field("Валюта.МКод")
AddValue "product_ids", GetContentItemLinkIDs("Продукты", Field("content_item_id"))
AddValue "block_ids", GetContentItemLinkIDs("Блоки порталов", Field("content_item_id"))
AddValue "static_id", 21514
Object("Статический текст")
AddValue "stext1", Value("static_text")
AddValue "static_id", 21515
Object("Статический текст")
AddValue "stext2", Value("static_text")
%><%
rstContentData2708.MoveNext
Next
rstContentData2708.Close
Set rstContentData2708.ActiveConnection = Nothing
Set rstContentData2708 = 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(": " & err.description)
End If
End Sub
Private Sub object3624O()
err.clear
on error resume next
Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal, countSQL
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
InitContainer 79, 878
If object_call_depth > 1 Then
strSQL ="sElect c.* from CONTENT_878 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Слово] = '" & Value("code") & "'") & GetContainerOrderExpression("","",0)
countSQL ="select count(*) as total from CONTENT_878 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Слово] = '" & Value("code") & "'")
Else
strSQL ="sElect c.* from CONTENT_878 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Слово] = '" & Value("code") & "'") & GetContainerOrderExpression("","",0)
countSQL ="select count(*) as total from CONTENT_878 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Слово] = '" & Value("code") & "'")
End If
Dim rstCountData3624
Set rstCountData3624 = Server.CreateObject("ADODB.Recordset")
rstCountData3624.Open countSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
ContainerInfo.TotalRecords = rstCountData3624.Fields("total")
rstCountData3624.Close
Set rstCountData3624.ActiveConnection = Nothing
Set rstCountData3624 = Nothing
Dim rstContentData3624, CurrentRecordNumber3624
Set rstContentData3624 = Server.CreateObject("ADODB.Recordset")
rstContentData3624.CursorLocation = adUseClient
rstContentData3624.Open strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
dim content_start_number
content_start_number = 1
if not rstContentData3624.EOF then rstContentData3624.Move content_start_number - 1
ContainerInfo.CurrentRecord = content_start_number - 1
For CurrentRecordNumber3624 = 1 To ContainerInfo.TotalRecords
ContainerInfo.CurrentRecord = ContainerInfo.CurrentRecord + 1
If rstContentData3624.EOF Then Exit For
FillContainerInfo content_start_number, ContainerInfo.TotalRecords, rstContentData3624%><%
Session("user_status_id")=Field("Статус")
AddValue "status", Field("Статус.Название")
%><%
rstContentData3624.MoveNext
Next
rstContentData3624.Close
Set rstContentData3624.ActiveConnection = Nothing
Set rstContentData3624 = 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(": " & err.description)
End If
End Sub
Private Sub object3627O()
err.clear
on error resume next
Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal, countSQL
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
InitContainer 79, 722
If object_call_depth > 1 Then
strSQL ="sElect c.* from CONTENT_722 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Группа] in (" & Value("product_ids") & ")") & GetContainerOrderExpression("","",0)
countSQL ="select count(*) as total from CONTENT_722 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Группа] in (" & Value("product_ids") & ")")
Else
strSQL ="sElect c.* from CONTENT_722 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Группа] in (" & Value("product_ids") & ")") & GetContainerOrderExpression("","",0)
countSQL ="select count(*) as total from CONTENT_722 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Группа] in (" & Value("product_ids") & ")")
End If
Dim rstCountData3627
Set rstCountData3627 = Server.CreateObject("ADODB.Recordset")
rstCountData3627.Open countSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
ContainerInfo.TotalRecords = rstCountData3627.Fields("total")
rstCountData3627.Close
Set rstCountData3627.ActiveConnection = Nothing
Set rstCountData3627 = Nothing
Dim rstContentData3627, CurrentRecordNumber3627
Set rstContentData3627 = Server.CreateObject("ADODB.Recordset")
rstContentData3627.CursorLocation = adUseClient
rstContentData3627.Open strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
dim content_start_number
content_start_number = 1
content_start_number = Int(1 + Rnd * ContainerInfo.TotalRecords)
if not rstContentData3627.EOF then rstContentData3627.Move content_start_number - 1
ContainerInfo.CurrentRecord = content_start_number - 1
For CurrentRecordNumber3627 = 1 To 1
ContainerInfo.CurrentRecord = ContainerInfo.CurrentRecord + 1
If rstContentData3627.EOF Then Exit For
FillContainerInfo content_start_number, 1, rstContentData3627%><%AddValue "category_id", Field("Группа.Категория")
AddValue "pgroup_id", Field("Группа.Группа для скидок")
AddValue "version_id", Field("content_item_id")
if Value("pgroup_id")="" then AddValue "pgroup_id", "0"
dim price
AddValue "discount", 0
Object("Main_template.Определение итоговой скидки")
price = Int(Field("Цена")*(100-Value("discount"))/100)
'price=Field("Цена")
%>
<%
rstContentData3627.MoveNext
Next
rstContentData3627.Close
Set rstContentData3627.ActiveConnection = Nothing
Set rstContentData3627 = 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(": " & err.description)
End If
End Sub
Private Sub object2711O()
err.clear
on error resume next
Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal, countSQL
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
InitContainer 79, 713
If object_call_depth > 1 Then
strSQL ="sElect c.* from CONTENT_713 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 317 " &" and c.archive = 0" & GetContainerFilterExpression("[content_item_id] ="& Value("static_id")) & GetContainerOrderExpression("","",0)
countSQL ="select count(*) as total from CONTENT_713 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 317 " &" and c.archive = 0" & GetContainerFilterExpression("[content_item_id] ="& Value("static_id"))
Else
strSQL ="sElect c.* from CONTENT_713 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 317 " &" and c.archive = 0" & GetContainerFilterExpression("[content_item_id] ="& Value("static_id")) & GetContainerOrderExpression("","",0)
countSQL ="select count(*) as total from CONTENT_713 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 317 " &" and c.archive = 0" & GetContainerFilterExpression("[content_item_id] ="& Value("static_id"))
End If
Dim rstCountData2711
Set rstCountData2711 = Server.CreateObject("ADODB.Recordset")
rstCountData2711.Open countSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
ContainerInfo.TotalRecords = rstCountData2711.Fields("total")
rstCountData2711.Close
Set rstCountData2711.ActiveConnection = Nothing
Set rstCountData2711 = Nothing
Dim rstContentData2711, CurrentRecordNumber2711
Set rstContentData2711 = Server.CreateObject("ADODB.Recordset")
rstContentData2711.CursorLocation = adUseClient
rstContentData2711.Open strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
dim content_start_number
content_start_number = 1
if not rstContentData2711.EOF then rstContentData2711.Move content_start_number - 1
ContainerInfo.CurrentRecord = content_start_number - 1
For CurrentRecordNumber2711 = 1 To ContainerInfo.TotalRecords
ContainerInfo.CurrentRecord = ContainerInfo.CurrentRecord + 1
If rstContentData2711.EOF Then Exit For
FillContainerInfo content_start_number, ContainerInfo.TotalRecords, rstContentData2711%><%
AddValue "static_text", Field("Текст")
%><%
rstContentData2711.MoveNext
Next
rstContentData2711.Close
Set rstContentData2711.ActiveConnection = Nothing
Set rstContentData2711 = 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(": " & err.description)
End If
End Sub
Private Sub object2331TO()
err.clear
on error resume next
%><%
AddValue "discount", 0
Object("Main_template.Определение скидки по статусу")
if Value("birth_date")<>"" and abs(DateDiff("d", DateSerial(Year(Date),Month(Value("birth_date")), Day(Value("birth_date"))), Date))<=7 then
Object("Main_template.Определение скидки по дню рождения")
end if
Object("Main_template.Определение скидки по акции")
%><%
If Err.Number <> 0 Then
Response.write(": " & err.description)
End If
End Sub
Private Sub object2334TO()
err.clear
on error resume next
Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal, countSQL
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
InitContainer 79, 753
If object_call_depth > 1 Then
strSQL ="sElect c.* from CONTENT_753 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Группа] = '" & Value("pgroup_id") & "' and [Статус] = '" & Session("user_status_id") & "'") & GetContainerOrderExpression("","",0)
countSQL ="select count(*) as total from CONTENT_753 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Группа] = '" & Value("pgroup_id") & "' and [Статус] = '" & Session("user_status_id") & "'")
Else
strSQL ="sElect c.* from CONTENT_753 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Группа] = '" & Value("pgroup_id") & "' and [Статус] = '" & Session("user_status_id") & "'") & GetContainerOrderExpression("","",0)
countSQL ="select count(*) as total from CONTENT_753 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Группа] = '" & Value("pgroup_id") & "' and [Статус] = '" & Session("user_status_id") & "'")
End If
Dim rstCountData2334
Set rstCountData2334 = Server.CreateObject("ADODB.Recordset")
rstCountData2334.Open countSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
ContainerInfo.TotalRecords = rstCountData2334.Fields("total")
rstCountData2334.Close
Set rstCountData2334.ActiveConnection = Nothing
Set rstCountData2334 = Nothing
Dim rstContentData2334, CurrentRecordNumber2334
Set rstContentData2334 = Server.CreateObject("ADODB.Recordset")
rstContentData2334.CursorLocation = adUseClient
rstContentData2334.Open strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
dim content_start_number
content_start_number = 1
if not rstContentData2334.EOF then rstContentData2334.Move content_start_number - 1
ContainerInfo.CurrentRecord = content_start_number - 1
For CurrentRecordNumber2334 = 1 To ContainerInfo.TotalRecords
ContainerInfo.CurrentRecord = ContainerInfo.CurrentRecord + 1
If rstContentData2334.EOF Then Exit For
FillContainerInfo content_start_number, ContainerInfo.TotalRecords, rstContentData2334%><%
if Field("Скидка")>0 then
AddValue "discount", Field("Скидка")
end if
%><%
rstContentData2334.MoveNext
Next
rstContentData2334.Close
Set rstContentData2334.ActiveConnection = Nothing
Set rstContentData2334 = 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(": " & err.description)
End If
End Sub
Private Sub object2333TO()
err.clear
on error resume next
Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal, countSQL
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
InitContainer 79, 858
If object_call_depth > 1 Then
strSQL ="sElect c.* from CONTENT_858 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[content_item_id] = 12688") & GetContainerOrderExpression("","",0)
countSQL ="select count(*) as total from CONTENT_858 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[content_item_id] = 12688")
Else
strSQL ="sElect c.* from CONTENT_858 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[content_item_id] = 12688") & GetContainerOrderExpression("","",0)
countSQL ="select count(*) as total from CONTENT_858 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[content_item_id] = 12688")
End If
Dim rstCountData2333
Set rstCountData2333 = Server.CreateObject("ADODB.Recordset")
rstCountData2333.Open countSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
ContainerInfo.TotalRecords = rstCountData2333.Fields("total")
rstCountData2333.Close
Set rstCountData2333.ActiveConnection = Nothing
Set rstCountData2333 = Nothing
Dim rstContentData2333, CurrentRecordNumber2333
Set rstContentData2333 = Server.CreateObject("ADODB.Recordset")
rstContentData2333.CursorLocation = adUseClient
rstContentData2333.Open strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
dim content_start_number
content_start_number = 1
if not rstContentData2333.EOF then rstContentData2333.Move content_start_number - 1
ContainerInfo.CurrentRecord = content_start_number - 1
For CurrentRecordNumber2333 = 1 To ContainerInfo.TotalRecords
ContainerInfo.CurrentRecord = ContainerInfo.CurrentRecord + 1
If rstContentData2333.EOF Then Exit For
FillContainerInfo content_start_number, ContainerInfo.TotalRecords, rstContentData2333%><%
if InStr(GetContentItemLinkIDs("Группа продуктов", Field("content_item_id")), Value("version_id"))>0 then
if Field("Суммировать скидку")=1 then
AddValue "discount", (1-(1-cdbl(Value("discount"))/100)*(1-cdbl(Field("Скидка"))/100))*100
elseif Value("discount")<%
rstContentData2333.MoveNext
Next
rstContentData2333.Close
Set rstContentData2333.ActiveConnection = Nothing
Set rstContentData2333 = 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(": " & err.description)
End If
End Sub
Private Sub object2332TO()
err.clear
on error resume next
Dim FieldValuesDictionaryLocal, FieldNamesDictionaryLocal, ContainerInfoLocal, countSQL
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
InitContainer 79, 858
If object_call_depth > 1 Then
strSQL ="sElect c.* from CONTENT_858 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Дата начала]<=getdate() and [Дата окончания]>=getdate() and [content_item_id]<>17910") & GetContainerOrderExpression("","",0)
countSQL ="select count(*) as total from CONTENT_858 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Дата начала]<=getdate() and [Дата окончания]>=getdate() and [content_item_id]<>17910")
Else
strSQL ="sElect c.* from CONTENT_858 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Дата начала]<=getdate() and [Дата окончания]>=getdate() and [content_item_id]<>17910") & GetContainerOrderExpression("","",0)
countSQL ="select count(*) as total from CONTENT_858 AS c WITH (NOLOCK) where c.visible = 1" & "AND c.status_type_id = 313 " &" and c.archive = 0" & GetContainerFilterExpression("[Дата начала]<=getdate() and [Дата окончания]>=getdate() and [content_item_id]<>17910")
End If
Dim rstCountData2332
Set rstCountData2332 = Server.CreateObject("ADODB.Recordset")
rstCountData2332.Open countSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
ContainerInfo.TotalRecords = rstCountData2332.Fields("total")
rstCountData2332.Close
Set rstCountData2332.ActiveConnection = Nothing
Set rstCountData2332 = Nothing
Dim rstContentData2332, CurrentRecordNumber2332
Set rstContentData2332 = Server.CreateObject("ADODB.Recordset")
rstContentData2332.CursorLocation = adUseClient
rstContentData2332.Open strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
dim content_start_number
content_start_number = 1
if not rstContentData2332.EOF then rstContentData2332.Move content_start_number - 1
ContainerInfo.CurrentRecord = content_start_number - 1
For CurrentRecordNumber2332 = 1 To ContainerInfo.TotalRecords
ContainerInfo.CurrentRecord = ContainerInfo.CurrentRecord + 1
If rstContentData2332.EOF Then Exit For
FillContainerInfo content_start_number, ContainerInfo.TotalRecords, rstContentData2332%><%
dim prod_ids, st_ids, prod_id, st_id, fl, i, fl1
prod_ids = Split(GetContentItemLinkIDs("Группа продуктов", Field("content_item_id")), ",")
st_ids = Split(GetContentItemLinkIDs("Группа пользователей", Field("content_item_id")), ",")
fl = 0
fl1 = 0
for i=0 to UBound(prod_ids)
if prod_ids(i)=Value("version_id") then fl = 1
next
for i=0 to UBound(st_ids)
if st_ids(i)=Session("user_status_id") and fl=1 then fl1 = 1
next
if fl1=1 then
if Field("Суммировать скидку")=1 then
AddValue "discount", (1-(1-cdbl(Value("discount"))/100)*(1-cdbl(Field("Скидка"))/100))*100
elseif Value("discount")<%
rstContentData2332.MoveNext
Next
rstContentData2332.Close
Set rstContentData2332.ActiveConnection = Nothing
Set rstContentData2332 = 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(": " & 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("страница")
object2545O
Case Trim("css")
object3625O
Case Trim("центр")
object3622O
Case Trim("определение портала")
object2708O
Case Trim("определение статуса по коду")
object3624O
Case Trim("популярный продукт")
object3627O
Case Trim("статический текст")
object2711O
Case Trim("main_template.определение итоговой скидки")
object2331TO
Case Trim("main_template.определение скидки по статусу")
object2334TO
Case Trim("main_template.определение скидки по дню рождения")
object2333TO
Case Trim("main_template.определение скидки по акции")
object2332TO
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
%><% AddValue "slang", Left(Value("slang"),3)%><%
AddValue "ml_url", "http://www.medialingua.ru/" 'Medialingva Path
AddValue "mleng_url", "http://eng.medialingua.ru/" 'Medialingva English Path
AddValue "mx_url", "http://www.alfalex.ru/" 'Multilex Path
AddValue "mxeng_url", "/eng/" 'Multilex English Path
AddValue "mo_url", "http://online.multilex.ru/" 'Multilexonline Path
%><% Object("Страница") %><%
DisposeValues
cnn.Close
%>