<!--#include virtual="/includes/topofpage.asp"-->

<% ' EWEBEDIT START' %>
		<%
		' Place this block at the top of eweb pages..
		If Not Request("page") = "inpage" Then
		%>
<% ' EWEBEDIT END' %>


<HTML>
<STYLE>
BODY {SCROLLBAR-FACE-COLOR: #5e5ebe; SCROLLBAR-HIGHLIGHT-COLOR: #5e5ebe; SCROLLBAR-SHADOW-COLOR: #5e5ebe; SCROLLBAR-3DLIGHT-COLOR: #5e5ebe; SCROLLBAR-ARROW-COLOR:  #6666CC; SCROLLBAR-TRACK-COLOR: #E3E3E3; SCROLLBAR-DARKSHADOW-COLOR: #666666; }
</STYLE>
<head>
</HEAD>
<BODY>
<form action="" name="ewebedit" id="ewebedit" method="post">


        <% ' Start of Eweb code chunk
			
			' Variables, modify
			Content =	"ewebedit1"		'Edit Contents
			Title	=	"Title here"	'Edit Title
			FName	=	"framename"		'Frame Object Name
			TName	=	"ewebedit1"		'Input Object Name
			FHeight	=	"200"			'Frame Height
			FWidth	=	"450"			'Frame Width
			FBorder	=	"0"				'Frame Border
			FScroll	=	"no"			'Frame Scrollbar
			
					' Don't modify, start
						From	=	"http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
						URL		=	"http://www.emagineering.com/eweb/inpage.asp"
						ObjName =	TName 
						Content =	Trim(Replace(Replace(Replace(Replace(Content, Chr(13), ""), Chr(10), ""), """", "&quot;"), "'", "&squot;"))
					' Don't modify, end

			%>
			<iframe name="<%=FName%>" id="<%=FName%>" width="<%=FWidth%>" height="<%=FHeight%>" frameborder="<%=FBorder%>" scrolling="<%=FScroll%>" application="yes" src="<%=URL%>?URL=<%=URL%>&ObjName=<%=ObjName%>&Content=<%=Content%>&From=<%=From%>&Title=<%=Title%>" overflow="clip"></iframe>
			<input type="hidden" name="<%=TName%>" id="<%=TName%>" value="<%=Content%>">
	
		<% ' End of Eweb code chunk %>
		

<a onclick="alert(ewebedit.ewebedit1.value);">Click here</a>
</form>
</BODY>
</HTML>

<% ' EWEBEDIT START'

		' Place this at the bottom of eweb pages...
		 Else %>
		<% 
		Content = Trim(Replace(Replace(Replace(Replace(Request("Content"), Chr(13), ""), Chr(10), ""), """", "&quot;"), "'", "&squot;"))
		New_Content = Trim(Replace(Replace(Replace(Replace(Request("New_Content"), Chr(13), ""), Chr(10), ""), """", "&quot;"), "'", "&squot;"))
		Content_Enter = Trim(Replace(Replace(Replace(Request("New_Content"), Chr(13), ""), Chr(10), ""), "'", "\'"))
		%>
		<HTML>
		<STYLE>
BODY {SCROLLBAR-FACE-COLOR: #5e5ebe; SCROLLBAR-HIGHLIGHT-COLOR: #5e5ebe; SCROLLBAR-SHADOW-COLOR: #5e5ebe; SCROLLBAR-3DLIGHT-COLOR: #5e5ebe; SCROLLBAR-ARROW-COLOR:  #6666CC; SCROLLBAR-TRACK-COLOR: #E3E3E3; SCROLLBAR-DARKSHADOW-COLOR: #666666; }
</STYLE>
<head>
		</script>
		</HEAD>
		<BODY>
		<form method="POST" action="<%=Request("URL")%>" name="ewebpost">
		<input type="hidden" name="page" value="inpage">
		<input type="hidden" name="URL" value="<%=Request("URL")%>">
		<input type="hidden" name="New_Content" value="<%=New_Content%>">
		<input type="hidden" name="Content" value="<%=Content%>">
		<input type="hidden" name="Posted" value="True">
		<input type="hidden" name="From" value="<%=Request("From")%>">
		<input type="hidden" name="Title" value="<%=Request("Title")%>">
		<input type="hidden" name="objname" value="<%=Request("objname")%>">
		<script language="javascript">
		var obj = document.getElementById("<%=Request("objname")%>");
		obj.value='<%=Content_Enter%>';
		document.ewebpost.submit();
		</script>
		<% For each item in Request.Form %>
			<%=Item%>:'<%=Request(item)%>'<br>
		<% next %>
		</form>
		</body>
		</html>
		<% End If %>

<% ' EWEBEDIT END' %>