<%
Call SiteInfo
if ISHTML = 1 then
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
End If
if request.QueryString("SortID")="" then
SeoTitle=QianboEnLanguage141
ClassSeo=NewSortName
elseif not IsNumeric(request.QueryString("SortID")) then
SeoTitle=QianboEnLanguage16
elseif conn.execute("select * from Qianbo_NewsSort Where "&ViewFlag&" and ID="&request.QueryString("SortID")).eof then
SeoTitle=QianboEnLanguage16
else
set rs = server.createobject("adodb.recordset")
sql="select * from Qianbo_NewsSort where "&ViewFlag&" and ID="&request.QueryString("SortID")
rs.open sql,conn,1,1
SeoTitle=rs("SortName"&Language)
ClassSeo=rs("ClassSeo")
rs.close
set rs=nothing
end if
%>
News - <% =SiteTitle %>
