%@ language="VBScript" %> <% Dim DataConn 'As Data Connection Dim strPage 'As String Dim rsPage 'As Recordset 'Open Data Connection Set DataConn = OpenDatabase() 'Retrieve Page Information strPage = Layout_GetContentFileOfCurrentPage(DataConn, "") strSQL = "CM_Select_Content_Tree_ByContentFile '" & strPage & "'" Set rsPage = DataConn.Execute(strSQL) %> <% Layout_TemplateHeader1 DataConn, rsPage, "" Layout_TemplateHeader2 DataConn, rsPage, "" %>
Project Officers Sign Up Here for Campaign Updates
Visit the Profile Center to Change Your Information