<% Dim PageData__PAGEID PageData__PAGEID = "7" if(Request("PAGEID") <> "") then PageData__PAGEID = Request("PAGEID") %> <% set PageData = Server.CreateObject("ADODB.Command") PageData.ActiveConnection = MM_ADOSQL_STRING PageData.CommandText = "dbo._SP_SELECT_PAGE" PageData.CommandType = 4 PageData.CommandTimeout = 0 PageData.Prepared = true PageData.Parameters.Append PageData.CreateParameter("RETURN_VALUE", 3, 4) PageData.Parameters.Append PageData.CreateParameter("@PAGEID", 3, 1,4,PageData__PAGEID) set rsPAGE = PageData.Execute rsPAGE_numRows = 0 %> <%=rsPAGE("PageTitle")%> "> ">
<% rsPAGE.Close() %>