<!--#include file="Cache/QvodCms.Sql.asp"-->
<!--#include file="Include/QvodCms.Lable.asp"-->
<%
Dim CurrentPage,AllPages,PageStr
newsid=QvodCms_CLng(Request.QueryString("id"))
If newsid>0 Then class_id=GetClassIdNews(newsid)
CurrentPage=QvodCms_CLng(Request.QueryString("Page")) : If CurrentPage<1 Then CurrentPage=1
Lable_Cache = "Lable_Cache_News"
If Cint(Config(19))=1 and CacheObj.ChkCache(Lable_Cache) Then
	Call LableObj.GetNewsData(CacheObj.GetCache(Lable_Cache))
	Call LableObj.OpenQvodCmsProduct(LableObj.Content)
	Call LableObj.OpenQvodCmsList(LableObj.Content)
ElseIf Cint(Config(19))=1 and CacheObj.ChkCache(Lable_Cache)=False Then 
	Call Moban_Data_Str(Config(0)&"Skin/"&Config(12)&"/"&AdminId(12)&"news_content.html")
	Call CacheObj.SetCache(Lable_Cache,LableObj.Content)
	Call LableObj.GetNewsData(LableObj.Content)
	Call LableObj.OpenQvodCmsProduct(LableObj.Content)
	Call LableObj.OpenQvodCmsList(LableObj.Content)
Else
	Call Moban_Data_Str(Config(0)&"Skin/"&Config(12)&"/"&AdminId(12)&"news_content.html")
	Call LableObj.GetNewsData(LableObj.Content)
	Call LableObj.OpenQvodCmsProduct(LableObj.Content)
	Call LableObj.OpenQvodCmsList(LableObj.Content)
End If
Call OpenContent(LableObj.Content)
Set CacheObj = Nothing
Set LableObj = Nothing
Call CloseConn()
%>