%
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("ID")="" then
SeoTitle=QianboEnLanguage15
ClassSeo=AboutNameDiy
elseif not IsNumeric(request.QueryString("ID")) then
SeoTitle=QianboEnLanguage16
elseif conn.execute("select * from Qianbo_About Where "&ViewFlag&" and ID="&request.QueryString("ID")).eof then
SeoTitle=QianboEnLanguage16
else
set rs = server.createobject("adodb.recordset")
sql="select * from Qianbo_About where "&ViewFlag&" and ID="&request.QueryString("ID")
rs.open sql,conn,1,1
SeoTitle=rs("AboutName"&Language)
rs.close
set rs=nothing
end if
%>