%
Page_Name = "default"
%>
<%
Database_Name = "WhiteOaks_HumanPerformance"
Username = "whiteoaks_humanperformance"
Password = "humanperf01"
sConnection_String = "PROVIDER=SQLOLEDB.1;Data Source=COMSQL10a;INITIAL CATALOG=" & Database_Name & ";UID=" & Username & ";PWD=" & Password
%>
<%
Page_Content = ""
set Conns=server.createobject("ADODB.Connection")
'Conns.Open sConnection_String
'sPage_Name = getPage_Name()
Page_Does_Not_Exist = "Page does not exist."
'Page_Content = getPage_Content()
Function getPage_Name()
if (Page_Name = "") Then Page_Name = replace(Request.QueryString("sPage_Name"), "_", " ")
getPage_Name = Page_Name
End Function
Function getPage_Content()
Dim Page_Content
Dim rs_Menu_Items_SQL
Dim rsPage_Content
Dim objCMD
Set rsPage_Content = Server.CreateObject("ADODB.Recordset")
Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.CommandText = "proc_getPageDataByName"
objCmd.CommandType = adCmdStoredProc
Set objCmd.ActiveConnection = Conns
set rsPage_Content=Server.CreateObject ("ADODB.Recordset")
rsPage_Content_SQL="proc_getPageDataByName '" & sPage_Name & "'"
Set objParam = objCmd.CreateParameter("@PageName", adVarWChar, adParamInput,50, sPage_Name)
objCmd.Parameters.Append objParam
Set rsPage_Content = objCmd.Execute()
If Not rsPage_Content.BOF Then
Page_Content = rsPage_Content("Page_Content")
End IF
rsPage_Content.Close
Set ObjCmd = Nothing
Set rsPage_Content = Nothing
if (Page_Content = "") Then Page_Content = Page_Does_Not_Exist
getPage_Content = Page_Content
End Function
%>
<%
%>
Human Performance Program - <%= getPage_Name() %> – White Oaks Ontario Canada