<% 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 = QianboLanguageTxt15 ClassSeo = AboutNameDiy ElseIf Not IsNumeric(Request.QueryString("ID")) Then SeoTitle = QianboLanguageTxt16 ElseIf conn.Execute("Select * From Qianbo_About Where " & ViewFlag & " And ID = " & Request.QueryString("ID")).EOF Then SeoTitle = QianboLanguageTxt16 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 If rs("SeoKeywords" & Language) <> "" Then SeoKeywords = rs("SeoKeywords" & Language) Else SeoKeywords = rs("AboutName" & Language) End If If rs("SeoDescription" & Language) <> "" Then SeoDescription = rs("SeoDescription" & Language) Else SeoDescription = rs("AboutName" & Language) End If SeoTitle = rs("AboutName" & Language) rs.Close Set rs = Nothing End If %>