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