%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsText,Text_HomeIntro,Text_HomeContent1,Text_HomeContent2 Set rsText = dbCon.Execute("SELECT TextValue FROM SiteText WHERE TextPage = 'marketingplans' AND TextName = 'content1'") Text_MarketingPlans1 = rsText("TextValue") 'Close all connections rsText.Close dbCon.Close Set dbCon = Nothing %>
|