<%@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
%>
WPHNA World Public Health Nutrition Association
