%@LANGUAGE="VBSCRIPT"%> <% set rsPage = Server.CreateObject("ADODB.Recordset") strSQLpage = "SELECT ID, META_TITLE, META_DESCRIPTION, META_KEYWORDS, ART_TITLE, ART_DESC FROM WEB_CONTENT WHERE SECTOR_ID=1" rsPage.Open strSQLpage, DBC,adOpenForwardOnly , adLockOptimistic dim art_desc art_desc = rsPage("ART_DESC") dim art_title art_title = rsPage("ART_TITLE") 'SEO META TAGS META_TITLE = rsPage("META_TITLE") META_DESCRIPTION = rsPage("META_DESCRIPTION") META_KEYWORDS = rsPage("META_KEYWORDS") if META_TITLE <> "" THEN CMS_META_TITLE= META_TITLE END IF if META_DESCRIPTION <> "" THEN CMS_META_DESCRIPTION=META_DESCRIPTION END IF if META_KEYWORDS <> "" THEN CMS_META_KEYWORDS= META_KEYWORDS END IF 'END SEO META TAGS rsPage.CLOSE() SET rsPage = Nothing %>