<% Set rsAdmin = Server.CreateObject("ADODB.RecordSet") AdminSql="SELECT * FROM tbl_Admin" rsAdmin.Open AdminSql,cString strMailMode = rsAdmin("emailType") strMailServer = rsAdmin("emailHost") headerLogo = rsAdmin("headerLogo") pageTitle = rsAdmin("pageTitle") homePage = rsAdmin("homePage") bgColor = rsAdmin("bgColor") fontColor = rsAdmin("fontColor") fontSize = rsAdmin("fontSize") fontFamily = rsAdmin("fontFamily") aLinkColor = rsAdmin("aLinkColor") aLinkWeight = rsAdmin("aLinkWeight") aLinkStyle = rsAdmin("aLinkStyle") aHoverColor = rsAdmin("aHoverColor") aHoverStyle = rsAdmin("aHoverStyle") tblOddBgColor = rsAdmin("tblOddBgColor") tblOddColor = rsAdmin("tblOddColor") tblEvenBgColor = rsAdmin("tblEvenBgColor") tblEvenColor = rsAdmin("tblEvenColor") tblLinkColor = rsAdmin("tblLinkColor") tblHoverColor = rsAdmin("tblHoverColor") rsAdmin.Close Set rsAdmin = Nothing %>