<%@LANGUAGE="VBSCRIPT"%>
<%
Dim RS_project_main__MMColParam
RS_project_main__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
RS_project_main__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim RS_project_main
Dim RS_project_main_cmd
Dim RS_project_main_numRows
Set RS_project_main_cmd = Server.CreateObject ("ADODB.Command")
RS_project_main_cmd.ActiveConnection = MM_pelmley_STRING
RS_project_main_cmd.CommandText = "SELECT e_content, e_title, ID FROM projects WHERE ID = ?"
RS_project_main_cmd.Prepared = true
RS_project_main_cmd.Parameters.Append RS_project_main_cmd.CreateParameter("param1", 5, 1, -1, RS_project_main__MMColParam) ' adDouble
Set RS_project_main = RS_project_main_cmd.Execute
RS_project_main_numRows = 0
%>
The Elmley Foundation - Projects: <%=(RS_project_main.Fields.Item("e_title").Value)%>
