
% Dim my_array, fullname, fname fullname = Request.ServerVariables("SCRIPT_NAME") my_array=split(fullname,"/") fname=my_array(ubound(my_array)) Set oRes = objConn.Execute("SELECT pageContent.pageContent, pageContent.pageName, pageContent.fileName, pageContent.pageHeader FROM pageContent WHERE fileName='" & fname & "'") Set oResFEAT = objConn.Execute("SELECT pageContent.pageContent, pageContent.pageName FROM pageContent WHERE pageHeader='Feature Events'") dim pageCONTENT, pageNAME, pageFEAT pageCONTENT = oRes("pageContent") pageNAME = oRes("pageName") pageFEAT = oResFEAT("pageContent") pageHEADER = oRes("pageHeader") %>


