% 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=LiangjingCMSChLanguage226 ClassSeo="Beverages_"&ProSortName elseif not IsNumeric(request.QueryString("SortID")) then SeoTitle=LiangjingCMSChLanguage16 elseif conn.execute("select * from LiangjingCMS_Beveragessort Where "&ViewFlag&" and ID="&request.QueryString("SortID")).eof then SeoTitle=LiangjingCMSChLanguage16 else set rs = server.createobject("adodb.recordset") sql="select * from LiangjingCMS_Beveragessort 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 Headid=6 %>