<%'@ LANGUAGE = VBScript.Encode %><%
' Infolink Page Content Manager for IIAs - content.asp
'
' This file is the main PCM engine for Infolink Industry Applications. Currently,
' it can read and save content files (*.INC) and view, delete and upload images.
'
' José Natividad Dévora Espino
' Infolink
'
' Version: 1.1.4 (06/22/2004)
'	Multiple languages support. Meta data and Content stored in data base.  
'
' Carlos A. Madrigal
' Infolink 
'
' Version: 1.1.3 (09/13/2002)
'	I left open a minor glitch. Code wasn't handling ../images relative reference.
'	Now it converts ../images to images/.
'
' Version: 1.1.2 (09/13/2002)
'	Image path bug fix didn't behave consistently. I used regular expressions
'	to find current URL while writing content files. With regular expressions
'	I search and delete any absolute references. Please see the Initializaction
'	phase of the script to see how I build the pattern for the regular expressions
'	and the "save" case to see how I applied to the saving process.
'
' Version: 1.1.1 (09/04/2002)
'	Image path in HTML Editor bug fixed. The bug consisted in that the engine
'	wasn't correcting the image path difference (normal site vs administration
'	site) and therefore, you can always look the image in the admin system but
'	not in the front-end.
'
'	Content configuration was split to another page. In the past, to configure
'	content was easier than the first version. However, when we started to 
'	encode our scripts, content configuration become a pain on the back because
'	we had to use the unencoded file version, make our changes, and then encode
'	it again.
%>
<%sDBExtraPath = "../"%>
<!-- #include file="../include/connection.inc" -->
<!-- #include file="../include/languages.asp" -->
<!--#include file="../include/globals.inc" -->
<!--#include file="../include/stdio.inc" -->
<!--#include file="../include/imgsz.asp" -->
<!-- #include file="../include/inc_gFunctions.asp" -->
<!-- #include file="../include/browsercap.asp" -->
<%
Const INCLUDE_FOLDER = "../include/content/"
Const IMAGE_FOLDER = "../images/"
Const IMAGE_FOLDER_TRANSFORMED = "images/"

Dim asPages, dicTables, asImages, asImageCaptions, sItem, iItem
Dim dicPageBeingEdited
Dim sHEImagePath
Dim objFSO, objMetaFile, objFile, sPageContent, sMetaContentVariables
Dim sCmd, UploadRequest
Dim iImgW, iImgH, iImgDepth, sImgType, sImgData
Dim sPathToTrimPattern

' Initialize script
Set dicPageBeingEdited = Server.CreateObject("Scripting.Dictionary")
dicPageBeingEdited.Add "Name", Request("page") & ""
Set dicTables = Server.CreateObject("Scripting.Dictionary")
sHEImagePath = "common/htmleditor2/"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
sCmd = Request("cmd")

' !!!!!! IMPORTANT, PLEASE READ !!!!!!!
' The following code determines the current path and it substracts the admin
' folder. It does this to trim all reference to absolute images or links. 
' The reason why this comment is so important is because this code assumes
' that the admin subdirectory is just below the root. If this is not true, 
' please adjust the code to your needs.
'
' Here is how it works, the code tries to create a regular expression that
' matches the URL that the user has on her browser.
sPathToTrimPattern = Request.ServerVariables("PATH_INFO")
sPathToTrimPattern = Left(sPathToTrimPattern, InStr(1, sPathToTrimPattern, "/admin", 1))
sPathToTrimPattern = "https?://" & Request.ServerVariables("SERVER_NAME") & "(:" & Request.ServerVariables("SERVER_PORT") & ")?" & sPathToTrimPattern 

' Load content configuration
%>
<!-- #include file="contentconfig.asp" -->
<%

' Transforms the HTML string into a valid Javascript string.
'	sContent		Content to be transformed
Function HtmlToJSString(sContent)
	HtmlToJSString = Replace(sContent, vbCr, "")
	HtmlToJSString = Replace(HtmlToJSString, vbLf, "")
	HtmlToJSString = Replace(HtmlToJSString, """", "\""")
	HtmlToJSString = Replace(HtmlToJSString, "'", "\'")
End Function

Select Case sCmd
	Case "del"
		DeleteFile Request("file")

		' Reload page
		Response.Redirect "content.asp?page=" & Server.URLEncode(dicPageBeingEdited("Name"))
	Case "save"
	
		' Parse request (for file uploads)
		Set UploadRequest = Server.CreateObject("Scripting.Dictionary")
		BuildUploadRequest Request.BinaryRead(Request.TotalBytes)
		
		' Get data
		sPageTitle = URequest("title")
		sPageKeywords = URequest("keywords")
		sPageDescription = URequest("description")
		sPageContent = URequest("content")
		sPageHeading = URequest("heading")
		
		' Write content page
		Set re = New RegExp
		re.IgnoreCase = True
		re.Multiline = True
		re.Global = True
		
		re.Pattern = "http[^""]+/admin/content.asp[^#]+#"
		sPageContent = re.Replace(sPageContent, "#")
		
		re.Pattern = "http[^""]+/admin/"
		sPageContent = re.Replace(sPageContent, "")

		re.Pattern = sPathToTrimPattern		
		sPageContent = re.Replace(sPageContent, "")
		
		re.Pattern = "admin/"
		sPageContent = re.Replace(sPageContent, "")
		sPageContent = Replace(sPageContent, IMAGE_FOLDER, IMAGE_FOLDER_TRANSFORMED)

		With rsData
			sSQL = "SELECT * FROM PCMPages WHERE PageID='" & dicPageBeingEdited("Name") & "' AND LangID=" & iContentLang
			.Open sSQL,,1,2,1
				.Fields("Title") = sPageTitle
				.Fields("Keywords") = sPageKeywords
				.Fields("Description") = sPageDescription
				.Fields("Content") = sPageContent
				.Fields("Heading") = sPageHeading
				.Update
			.Close
		End With
		
		' Save images for this page
		asImageCaptions = Split(dicPageBeingEdited("ImageCaptions"), ";")
		asImages = Split(dicPageBeingEdited("ImageFiles"), ";")
		For iItem = LBound(asImages) To UBound(asImages)
			sImgData = URequest(asImageCaptions(iItem))
			BinaryWriteFile IMAGE_FOLDER + asImages(iItem), sImgData
		Next
		
		' Reload page
		Response.Redirect "content.asp?page=" & Server.URLEncode(dicPageBeingEdited("Name"))
	Case Else
		' Load page variables
		If Len(dicPageBeingEdited("Name")) > 0 Then
			Set rsPCM = conDB.Execute("SELECT Title, Description, Keywords, Content, Heading FROM PCMPages WHERE PageID='" & dicPageBeingEdited("Name") & "' AND LangID=" & iContentLang)
			If Not IsRSEmpty(rsPCM) Then
				sPageTitle		 = rsPCM("Title")
				sPageKeywords	 = rsPCM("Keywords")
				sPageDescription = rsPCM("Description")
				sPageHeading	 = rsPCM("Heading")
				sPageContent	 = rsPCM("Content") & " "
				sPageContent = Replace(sPageContent, IMAGE_FOLDER_TRANSFORMED, IMAGE_FOLDER)
			End If
		End If
		
End Select
%>
<!-- #include file=header.inc -->
<%
If Len(dicPageBeingEdited("Name")) = 0 Then
%>
	<p><font face='Arial, Helvetica, serif' size=2>
	<%=langMgr.GetContent("CM_CONTENT_INTRO", "BackEndMessages", iInterfaceLang)%>
	</font></p>

	<table align=center width=85% cellspacing=0 cellpadding=0>
		<!-- Page based content -->
		<tr bgcolor=<%=sContrast1Color%>><td colspan=3><img src=images/spacer.gif width=1 height=1></td></tr>
		<tr bgcolor=<%=sEmphasizeColor%>>
			<td colspan=3 align=right><font face='Arial, Helvetica, serif' size=3 color=<%=sContrast2Color%>><b><%=langMgr.GetContent("CM_PGCONTENT_SECTION", "BackEndMessages", iInterfaceLang)%></b></font></td>
		</tr>
		<tr bgcolor=<%=sContrast1Color%>><td colspan=3><img src=images/spacer.gif width=1 height=1></td></tr>
		<tr><td colspan=3><img src=images/spacer.gif width=1 height=6></td></tr>
		<tr>
			<td><font face='Arial, Helvetica, serif' size=2><font color=<%=sStrongColor%>><b>
			<%
			Set rsPCM = conDB.Execute("SELECT DISTINCT PageID FROM PCMPages ORDER BY PageID")
			If Not IsRSEmpty(rsPCM) Then
				While Not rsPCM.EOF
					Response.Write "<a href='content.asp?page=" & Server.URLEncode(rsPCM("PageID")) & "'>" & langMgr.GetContent(rsPCM("PageID"), "BackEndMessages", iContentLang) & "</a><br>"
					rsPCM.MoveNext
				Wend
			End If
			
			%>
			</b></font></td>
		</tr>
		<tr><td colspan=3><img src=images/spacer.gif width=1 height=20></td></tr>
		<!-- Database based content -->
		<tr bgcolor=<%=sContrast1Color%>><td colspan=3><img src=images/spacer.gif width=1 height=1></td></tr>
		<tr bgcolor=<%=sEmphasizeColor%>>
			<td colspan=3 align=right><font face='Arial, Helvetica, serif' size=3 color=<%=sContrast2Color%>><b><%=langMgr.GetContent("CM_DBCONTENT_SECTION", "BackEndMessages", iInterfaceLang)%></b></font></td>
		</tr>
		<tr bgcolor=<%=sContrast1Color%>><td colspan=3><img src=images/spacer.gif width=1 height=1></td></tr>
		<tr><td colspan=3><img src=images/spacer.gif width=1 height=6></td></tr>
		<tr>
			<td><font face='Arial, Helvetica, serif' size=2><font color=<%=sStrongColor%>><b>
			<%
			For Each sItem In dicTables
				Response.Write "<a href='dbcontent.asp?cmd=r&table=" & Server.URLEncode(sItem) & "'>" & dicTables(sItem) & "</a><br>"
			Next
			%>
			</b></font></td>
		</tr>
		<tr><td colspan=3><img src=images/spacer.gif width=1 height=8></td></tr>
		<tr bgcolor=<%=sContrast1Color%>><td colspan=3><img src=images/spacer.gif width=1 height=1></td></tr>
	</table>
<%Else%>
	
	<% If bolDisplayNewEditor Then %>
	
	<script language="JavaScript" src="common/htmleditor/scripts/editor.js"></script>
	
	<script>
		var htmlContent;
		function beforeSubmit(f) {
			f.content.value = htmlContent.getHTMLBody();
		}
		
		function editFile(pCombo) {
			option = pCombo.options[pCombo.selectedIndex].value;
			if (option == "::back::")
				document.location.href = "content.asp";
			else if (option != "")
				document.location.href = "content.asp?page=" + option;
		}
		
		function viewImage(sCaption, sFile, iWidth, iHeight) {
			iWndWidth = parseInt(iWidth) + 40;
			iWndHeight = parseInt(iHeight) + 100;
			features = "directories=no,height=" + iWndHeight + ",width=" + iWndWidth + ",location=no,menubar=no,resizeable=no,scrollbars=no,toolbar=no";
			url = "showImage.asp?img=" + escape(sFile) + "&caption=" + escape(sCaption) + "&w=" + iWidth + "&h=" + iHeight;
			window.open(url, "ImageViewer", features);
		}
		
		function deleteImage(sCaption, sFile) {
			if (confirm("Are you sure you want to delete this image: " + sCaption + "?")) 
				window.location.href = "content.asp?page=<%=dicPageBeingEdited("Name")%>&cmd=del&file=" + escape(sFile);
		}
		
	</script>
	
	<%Else%>
	
	<style>
		.HtmlEditor {border: 1pt <%=sContrast3Color%> solid; frameBorder: no; border-top: 0pt; }
		.tbButton {cursor: hand;}
		.selectControl { font-face: "Sans-Serif, Serif"; font-size: 8pt;}
		#tbButtons {background: #ffffe5; vertical-align: top;}
		#tbContents {background: #F7F7F7; padding: 0px 0px; vertical-align: top;}
		#tbTopBar {height: 0px;}
		#tbBottomBar {height: 0px;}
		#idToolbar {border: 1pt <%=sContrast3Color%> solid;}
	</style>
	<style id="toolbarSkin">
		.Button, .ButtonOver, .ButtonDown {background: #f2f2f2;	border:1px #f2f2f2 solid; cursor: hand;}
		.ButtonOver {border-top-color: <%=sBackgroundColor%>; border-left-color: <%=sBackgroundColor%>; border-right-color: darkgray; border-bottom-color: darkgray;}
		.ButtonDown {border-top-color: darkgray; border-left-color: darkgray; border-right-color: <%=sBackgroundColor%>; border-right-color: <%=sBackgroundColor%>;}
	</style>
	<style id="popupSkin">
		#popup BODY {margin: 0px 0px 0px 0px; border: 3px #7b7b7b solid; background: #f2f2f2}
		#popup #caption {text-align: left; font: bold 12pt arial, geneva, sans-serif}
		#popup #header {background: #7b7b7b; width: 100%}
		#popup #close {cursor: hand; font: bold 12pt arial, geneva, sans-serif; margin=right: 6px; padding: 0px 4 px 2px}
		#popup #content {margin: 0pt; padding: 5pt 5pt 10pt 5pt}
	</style>
	
	<!-- #include file="common/htmleditor2/htmleditor.asp" -->

	<script>
		var htmlContent;
		
		
		function viewImage(sCaption, sFile, iWidth, iHeight) {
			iWndWidth = parseInt(iWidth) + 40;
			iWndHeight = parseInt(iHeight) + 100;
			features = "directories=no,height=" + iWndHeight + ",width=" + iWndWidth + ",location=no,menubar=no,resizeable=no,scrollbars=no,toolbar=no";
			url = "showImage.asp?img=" + escape(sFile) + "&caption=" + escape(sCaption) + "&w=" + iWidth + "&h=" + iHeight;
			window.open(url, "ImageViewer", features);
		}
		
		function deleteImage(sCaption, sFile) {
			if (confirm("Are you sure you want to delete this image: " + sCaption + "?")) 
				window.location.href = "content.asp?page=<%=dicPageBeingEdited("Name")%>&cmd=del&file=" + escape(sFile);
		}
		
		function loadHtmlEditors() {
			htmlContent = new HtmlEditor("content");
			htmlContent.setHtml("<%=HtmlToJSString(sPageContent)%>");
		}
		
		function beforeSubmit(f) {
			f.content.value = htmlContent.getHtml();
		}
		
		function editFile(pCombo) {
			option = pCombo.options[pCombo.selectedIndex].value;
			if (option == "::back::")
				document.location.href = "content.asp";
			else if (option != "")
				document.location.href = "content.asp?page=" + option;
		}
		
		window.onload=loadHtmlEditors;
		
	</script>
	
	<%End If%>
	
	
	<table width=100%>                   
		<tr>
			<td><font face='Arial, Helvetica, serif' size=3 color=<%=sEmphasizeColor%>><b>
			<%=langMgr.GetContentWithParams("CM_PG_TITLE", Array("scurrpage"), Array(langMgr.GetContent(dicPageBeingEdited("Name"), "BackEndMessages", iContentLang)), "BackEndMessages", iInterfaceLang)%>
			</b></font><td>
			<td align=right><font face='Arial, Helvetica, serif' size=2 color=<%=sSublimeColor%>><b><%=langMgr.GetContent("CM_PCM_TITLE", "BackEndMessages", iInterfaceLang)%></b></font></td>
		</tr>
                <tr>
				<td colspan=3>
                                <BR>
                                <!--A HREF="http://infolinkdemos.mapssystem.net/documents/pcm_manual.pdf"><font size="2"><%=langMgr.GetContent("MANUAL_PCM", "BackEndMessages", iInterfaceLang)%></font></A-->
				</td>
		</tr>
	</table>

	<form method="post" onsubmit="return beforeSubmit(this);" action="content.asp?cmd=save&page=<%=dicPageBeingEdited("Name")%>" enctype="multipart/form-data" id=form1 name=form1>
		
		<table align=center width=85% cellspacing=0 cellpadding=0>
			<!-- other pages -->
			<tr bgcolor=<%=sContrast1Color%>><td colspan=3><img src=images/spacer.gif width=1 height=1></td></tr>
			<tr bgcolor=<%=sEmphasizeColor%>>
				<td colspan=3 align=right><font face='Arial, Helvetica, serif' size=3 color=<%=sContrast2Color%>><b><%=langMgr.GetContent("CM_OTHER_PGS", "BackEndMessages", iInterfaceLang)%></b></font></td>
			</tr>
			<tr bgcolor=<%=sContrast1Color%>><td colspan=3><img src=images/spacer.gif width=1 height=1></td></tr>
			<tr><td colspan=3><img src=images/spacer.gif width=1 height=6></td></tr>
			<tr>
				<td><font face='Arial, Helvetica, serif' size=2><font color=<%=sStrongColor%>><b><%=langMgr.GetContent("CM_EDIT_OTHER", "BackEndMessages",iInterfaceLang)%>:</b></font></td>
				<td>
					<select onchange="editFile(this);" name=otherpage>
						<option>-- <%=langMgr.GetContent("CM_SELECT_PG", "BackEndMessages", iInterfaceLang)%> --</option>
						<option value="::back::">[<%=langMgr.GetContent("CM_BACK_CM_LINK", "BackEndMessages", iInterfaceLang)%>]</option>
						<%
						Set rsPCM = conDB.Execute("SELECT DISTINCT PageID FROM PCMPages ORDER BY PageID")
						If Not IsRSEmpty(rsPCM) Then
							While Not rsPCM.EOF
								Response.Write "<option value='" & rsPCM("PageID") & "'>" & langMgr.GetContent(rsPCM("PageID"), "BackEndMessages", iContentLang) & "</option>"
								rsPCM.MoveNext
							Wend
						End If
						%>
					</select>				
				</td>
			</tr>
			<tr><td colspan=3><img src=images/spacer.gif width=1 height=20></td></tr>
			<!-- meta content -->
			<tr bgcolor=<%=sContrast1Color%>><td colspan=3><img src=images/spacer.gif width=1 height=1></td></tr>
			<tr bgcolor=<%=sEmphasizeColor%>>
				<td colspan=3 align=right><font face='Arial, Helvetica, serif' size=3 color=<%=sContrast2Color%>><b><%=langMgr.GetContent("CM_META_DATA", "BackEndMessages", iInterfaceLang)%></b></font></td>
			</tr>
			<tr bgcolor=<%=sContrast1Color%>><td colspan=3><img src=images/spacer.gif width=1 height=1></td></tr>
			<tr><td colspan=3><img src=images/spacer.gif width=1 height=6></td></tr>
			<tr>
				<td><font face='Arial, Helvetica, serif' size=2><font color=<%=sStrongColor%>><b><%=langMgr.GetContent("CM_META_TITLE", "BackEndMessages", iInterfaceLang)%>:</b></font></td>
				<td><input size=80 name="title" value="<%=sPageTitle%>" size=30></td>
			</tr>
			<tr valign=top>
				<td><font face='Arial, Helvetica, serif' size=2><font color=<%=sStrongColor%>><b><%=langMgr.GetContent("CM_META_KEYWORDS", "BackEndMessages", iInterfaceLang)%>:</b></font></td>
				<td><textarea name=keywords cols=60 rows=2><%=sPageKeywords%></textarea></td>
			</tr>
			<tr valign=top>
				<td><font face='Arial, Helvetica, serif' size=2><font color=<%=sStrongColor%>><b><%=langMgr.GetContent("CM_META_DESCRIPTION", "BackEndMessages", iInterfaceLang)%>:</b></font></td>
				<td><textarea name=description cols=60 rows=4><%=sPageDescription%></textarea></td>
			</tr>
			<tr><td colspan=3><img src=images/spacer.gif width=1 height=20></td></tr>
			<!-- page content -->
			<tr bgcolor=<%=sContrast1Color%>><td colspan=3><img src=images/spacer.gif width=1 height=1></td></tr>
			<tr bgcolor=<%=sEmphasizeColor%>>
				<td colspan=3 align=right><font face='Arial, Helvetica, serif' size=3 color=<%=sContrast2Color%>><b><%=langMgr.GetContent("CM_PAGE_CONTENT_EDITOR", "BackEndMessages", iInterfaceLang)%></b></font></td>
			</tr>
			<tr><td colspan=3><img src=images/spacer.gif width=1 height=6></td></tr>
			<tr>
				<td><font face='Arial, Helvetica, serif' size=2><font color=<%=sStrongColor%>><b><%=langMgr.GetContent("CM_PAGE_TITLE", "BackEndMessages", iInterfaceLang)%>:</b></font></td>
				<td><input size=50 name="heading" value="<%=sPageHeading%>"></td>
			</tr>
			<tr><td colspan=3><img src=images/spacer.gif width=1 height=6></td></tr>
			<tr valign=top>
				<td colspan=2><input type=hidden name="content" value="asdf">
				<%'HtmlEdit2 "content", "htmlContent", 300, IMAGE_FOLDER, GenerateImageList(IMAGE_FOLDER, vbNullString)%>
				
					<% 
						If bolDisplayNewEditor Then 
					%>
				
					<script>
					var htmlContent = new InnovaEditor("htmlContent");
					htmlContent.scriptPath="common/htmleditor/scripts/";
					htmlContent.width="100%";					
					htmlContent.CharSet="<%=langMgr.GetCharset(iContentLang)%>"
					htmlContent.btnAssets=true;	
					htmlContent.btnAssetManager=true;
					htmlContent.cmdAssetManager="modalDialogShow('common/htmleditor/assetmanager/assetmanager.asp',680,520)";	
					htmlContent.RENDER();		
					htmlContent.loadHTML("<%=HtmlToJSString(sPageContent)%>");
					</script>
					
					<% Else
					HtmlEdit2 "content", "htmlContent", 300, IMAGE_FOLDER, GenerateImageList(IMAGE_FOLDER, vbNullString)
					%>
					<% End If %>
				</td>
			</tr>
			<tr><td colspan=3><img src=images/spacer.gif width=1 height=6></td></tr>
			<tr><td colspan=3><img src=images/spacer.gif width=1 height=8></td></tr>
			<%If Len(dicPageBeingEdited("ImageCaptions")) > 0 Then%>
			<!-- graphic content -->
			<tr bgcolor=<%=sContrast1Color%>><td colspan=3><img src=images/spacer.gif width=1 height=1></td></tr>
			<tr bgcolor=<%=sEmphasizeColor%>>
				<td colspan=3 align=right><font face='Arial, Helvetica, serif' size=3 color=<%=sContrast2Color%>><b>images</b></font></td>
			</tr>
			<tr bgcolor=<%=sContrast1Color%>><td colspan=3><img src=images/spacer.gif width=1 height=1></td></tr>
			<tr><td colspan=3><img src=images/spacer.gif width=1 height=6></td></tr>
			<%
			asImageCaptions = Split(dicPageBeingEdited("ImageCaptions"), ";")
			asImages = Split(dicPageBeingEdited("ImageFiles"), ";")
			For iItem = LBound(asImageCaptions) To UBound(asImageCaptions)
			%>
			<tr>
				<td><font face='Arial, Helvetica, serif' size=2><font color=<%=sStrongColor%>><b><%=asImageCaptions(iItem)%>:</b></font></td>
				<td>
				<input type=file name="<%=asImageCaptions(iItem)%>">
				<%If FileExists(IMAGE_FOLDER + asImages(iItem)) Then
					gfxSpex Server.MapPath(IMAGE_FOLDER + asImages(iItem)), iImgW, iImgH, iImgDepth, sImgType
				%>
				<input type=button value="View" onclick="javascript:viewImage('<%=asImageCaptions(iItem)%>', '<%=asImages(iItem)%>', '<%=iImgW%>', '<%=iImgH%>')" id=button1 name=button1> 
				<input type=button value="Delete" onclick="javascript:deleteImage('<%=asImageCaptions(iItem)%>', '<%=IMAGE_FOLDER + asImages(iItem)%>')" id=button2 name=button2> 
				<%End If%>
				</td>
			</tr>
			<%	
			Next
			End If
			%>		
			<tr><td colspan=3><img src=images/spacer.gif width=1 height=8></td></tr>
			<tr bgcolor=<%=sContrast1Color%>><td colspan=3><img src=images/spacer.gif width=1 height=1></td></tr>
			<tr><td colspan=3><img src=images/spacer.gif width=1 height=20></td></tr>
			<tr>
				<td colspan=3>
					<input type="submit" value="<%=langMgr.GetContent("CM_BTN_SAVE_CHANGES", "BackEndMessages", iInterfaceLang)%>" id=submit1 name=submit1>
					<input type="reset" value="<%=langMgr.GetContent("CM_BTN_RESET", "BackEndMessages", iInterfaceLang)%>" id=reset1 name=reset1>
					<input type="hidden" name="cmd" value="save">
				</td>
			</tr>


		</table>
	</form>
<%End If%>

<!-- #include file=footer.inc -->