<% Response.Buffer = True %> <% IF Session("AdminId")="" THEN Response.Redirect("adminlogin.asp") END IF %> <% ' You must set "Enable Parent Paths" on your web site in order this relative include to work. %> <% Response.Buffer = True %> <% Dim varid, varHeight varid = Request.QueryString("id") IF varid = "" THEN varid = 1 END IF Dim objConn call openDatabaseConnection(objConn) %> Presidio Capital


Administrator Control Panel
Welcome <%=Session("AdminName")%>!

Edit Presidio Website
Company Overview
Our Business
Our Management
Contact Us
Disclaimer
Control Panel
Change Password
Logout
<% Dim sBasePath sBasePath = Request.ServerVariables("PATH_INFO") sBasePath = Left( sBasePath, InStrRev( sBasePath, "~/fckeditor/" ) ) Select Case varid Case 1 Dim objRstHome call associateRecordset(objConn,objRstHome) objRstHome.Open("SELECT * FROM tblmCompany") Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
COMPANY OVERVIEW

" Dim oFCKeditor1 Set oFCKeditor1 = New FCKeditor oFCKeditor1.ToolbarSet = "Default" oFCKeditor1.BasePath = "fckeditor/" oFCKeditor1.Value = objRstHome("section1") oFCKeditor1.Height = "500px" oFCKeditor1.Width = "600px" oFCKeditor1.Create "FCKeditor1" Response.Write "
" Response.Write "" Response.Write "
" Case 2 Dim objRstRules call associateRecordset(objConn,objRstRules) objRstRules.Open("SELECT * FROM tblmBusiness") Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
OUR BUSINESS

" Dim oFCKeditor2 Set oFCKeditor2 = New FCKeditor oFCKeditor2.ToolbarSet = "Default" oFCKeditor2.BasePath = "fckeditor/" oFCKeditor2.Value = objRstRules("section1") oFCKeditor2.Height = "500px" oFCKeditor2.Width = "600px" oFCKeditor2.Create "FCKeditor2" Response.Write "
" Response.Write "" Response.Write "
" Case 3 Dim objRstCharities call associateRecordset(objConn,objRstCharities) objRstCharities.Open("SELECT * FROM tblmManagement") Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
OUR MANAGEMENT TEAM

" Dim oFCKeditor3 Set oFCKeditor3 = New FCKeditor oFCKeditor3.ToolbarSet = "Default" oFCKeditor3.BasePath = "fckeditor/" oFCKeditor3.Value = objRstCharities("section1") oFCKeditor3.Height = "500px" oFCKeditor3.Width = "600px" oFCKeditor3.Create "FCKeditor3" Response.Write "
" Response.Write "" Response.Write "
" Case 4 Dim objRstUpdates call associateRecordset(objConn,objRstUpdates) objRstUpdates.Open("SELECT * FROM tblmContact") Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
CONTACT US

" Dim oFCKeditor4 Set oFCKeditor4 = New FCKeditor oFCKeditor4.ToolbarSet = "Default" oFCKeditor4.BasePath = "fckeditor/" oFCKeditor4.Value = objRstUpdates("section1") oFCKeditor4.Height = "500px" oFCKeditor4.Width = "600px" oFCKeditor4.Create "FCKeditor4" Response.Write "
" Response.Write "" Response.Write "
" Case 5 Dim objRstTell call associateRecordset(objConn,objRstTell) objRstTell.Open("SELECT * FROM tblmDisclaimer") Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
DISCLAIMER

" Dim oFCKeditor5 Set oFCKeditor5 = New FCKeditor oFCKeditor5.ToolbarSet = "Default" oFCKeditor5.BasePath = "fckeditor/" oFCKeditor5.Value = objRstTell("section1") oFCKeditor5.Height = "500px" oFCKeditor5.Width = "600px" oFCKeditor5.Create "FCKeditor5" Response.Write "
" Response.Write "" Response.Write "
" End Select %>

Copyright © 2007 Presidio Capital. All Rights Reserved Disclaimer