<% Response.Buffer = True%>
<!--#include FILE="config.asp"-->
<%
	'DECLARE VARIABLES AND OPEN CONNECTION
	Dim varid
	Dim objConn
	call openDatabaseConnection(objConn)

	varid = Request.QueryString("id")
	
	Select Case varid
		Case 1
			Dim objRstHome
			call associateRecordset(objConn,objRstHome)
			objRstHome.Open("Select * FROM tblmCompany")
			objRstHome("section1") = Request.Form("FCKeditor1")
			objRstHome("dateupdated") = Now()
			objRstHome("updatedby") = Session("AdminId")
			objRstHome.Update
			Response.Redirect "admincp.asp?id=" & varid

		Case 2
			Dim objRstRules
			call associateRecordset(objConn,objRstRules)
			objRstRules.Open("Select * FROM tblmBusiness")
			objRstRules("section1") = Request.Form("FCKeditor2")
			objRstRules("dateupdated") = Now()
			objRstRules("updatedby") = Session("AdminId")
			objRstRules.Update
			Response.Redirect "admincp.asp?id=" & varid	

		Case 3
			Dim objRstCharities
			call associateRecordset(objConn,objRstCharities)
			objRstCharities.Open("Select * FROM tblmManagement")
			objRstCharities("section1") = Request.Form("FCKeditor3")
			objRstCharities("dateupdated") = Now()
			objRstCharities("updatedby") = Session("AdminId")
			objRstCharities.Update
			Response.Redirect "admincp.asp?id=" & varid

		Case 4
			Dim objRstUpdates
			call associateRecordset(objConn,objRstUpdates)
			objRstUpdates.Open("Select * FROM tblmContact")
			objRstUpdates("section1") = Request.Form("FCKeditor4")
			objRstUpdates("dateupdated") = Now()
			objRstUpdates("updatedby") = Session("AdminId")
			objRstUpdates.Update
			Response.Redirect "admincp.asp?id=" & varid

		Case 5
			Dim objRstTell
			call associateRecordset(objConn,objRstTell)
			objRstTell.Open("Select * FROM tblmDisclaimer")
			objRstTell("section1") = Request.Form("FCKeditor5")
			objRstTell("dateupdated") = Now()
			objRstTell("updatedby") = Session("AdminId")
			objRstTell.Update
			Response.Redirect "admincp.asp?id=" & varid
	End Select
	call closeDatabaseConnection(objConn)
%>