%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsPage__MMColParam rsPage__MMColParam = "1" If (Request.QueryString("PageId") <> "") Then rsPage__MMColParam = Request.QueryString("PageId") End If %> <% Dim rsPage Dim rsPage_cmd Dim rsPage_numRows Set rsPage_cmd = Server.CreateObject ("ADODB.Command") rsPage_cmd.ActiveConnection = MM_cnWPHNA_STRING rsPage_cmd.CommandText = "SELECT * FROM Page WHERE PageId = ?" rsPage_cmd.Prepared = true rsPage_cmd.Parameters.Append rsPage_cmd.CreateParameter("param1", 5, 1, -1, rsPage__MMColParam) ' adDouble Set rsPage = rsPage_cmd.Execute rsPage_numRows = 0 %>
|
|
|
.