%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim PageText__varPageTextID PageText__varPageTextID = "2" If (Request("PageTextID") <> "") Then PageText__varPageTextID = Request("PageTextID") End If %> <% Dim PageText Dim PageText_numRows Set PageText = Server.CreateObject("ADODB.Recordset") PageText.ActiveConnection = MM_janussafetysolutions_STRING PageText.Source = "SELECT * FROM PageText WHERE PageTextID = " + Replace(PageText__varPageTextID, "'", "''") + "" PageText.CursorType = 3 PageText.CursorLocation = 2 PageText.LockType = 1 PageText.Open() PageText_numRows = 0 %>
|
||||