Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Need Help with loading objects dynamicaly and controlling them through

Status
Not open for further replies.

Phalanx1

Programmer
Jul 21, 2003
128
US
I Hope This clears up a lot of peoples questions, but here is the complete code, minus build.htm that is loaded manually by the user. that is at the bottom.
<?xml version=&quot;1.0&quot; ?><!DOCTYPE html
PUBLIC &quot;-//W3C//DTD XHTML 1.0 Transitional//EN&quot;
&quot;<html xmlns=&quot; xml:lang=&quot;en&quot;>
<head id=&quot;Header&quot;>
<TITLE>Phantom HTML 4.01 Build version 1.01a</TITLE>
<meta name=vs_targetSchema content=&quot;HTML 4.0&quot;>
<script type=&quot;text/javascript&quot;>
//This is the build area displayer called with only you or from the RPSPC build.htm
function BuildArea(){
document.all.htmlArea.style.display =('block')
}
</script>
<meta name=&quot;vs_defaultClientScript&quot; content=&quot;JavaScript&quot;>
<META NAME=&quot;save&quot; CONTENT=&quot;snapshot&quot;>
<STYLE>
.saveSnapshot {behavior:url(#default#savesnapshot);}
.inviso {width:0px;height:0px;border:0px}
.show {dispay:block}
.hide {display:none}
</STYLE> <!--Core Functionality-->
</head>
<BODY id=&quot;Bel&quot; class=&quot;saveSnapshot&quot; bgcolor=&quot;#000000&quot; text=&quot;#ff0000&quot;

onload=&quot;handleResponse();&quot;><p align=&quot;center&quot;>
<br>You must write perfect html if you plan for the<br> build button to work for you. for

building ideas and howto's visit <br>Microsofts developers network web work shop section<br><a

href=&quot; TO

MSDN</a><br>For More References Goto My links page to find some excellent reading material...<a

href=&quot;refs.htm&quot;>Go to my links page</a>
</p>
<p align=&quot;center&quot;>This is the beginning interface for PhantomXHTML Live

v1.0b<br>this web page is almost entirely content editable<br>if you know how to access the

proper elements and functions.</p>
<!--Invisible Div until Something is inserted into it(html&Text) for the Top of

the Body-->
<div id=&quot;TopHtm&quot;></div>
<br>
<script>
TopHtm.style.display =('none');
</script>
The Best you tool:(again:)<input id=&quot;GB&quot; type=&quot;button&quot; value=&quot;Go&quot;

onclick=&quot;navigate()&quot;>
<input type=&quot;text&quot; value='http:\\ id=&quot;TheAddress&quot; size=&quot;25&quot;>
<span id=&quot;WebWin&quot; style=&quot;DISPLAY:none&quot;>
<iframe src=&quot;&quot; id=&quot;TheFrame&quot; style=&quot;WIDTH:550px;HEIGHT:550px&quot; frameborder=&quot;0&quot;></iframe><button

type=&quot;button&quot; onclick=&quot;RBT()&quot;>Remove onsite website</button>
<script language=&quot;vbscript&quot;>
'navigate the internet 1 line + 1 style set
function navigate()
document.all.TheFrame.src = TheAddress.value
document.all.WebWin.style.display =(&quot;block&quot;)
end function
function RBT()
document.all.TheFrame.src =(&quot;about:blank&quot;)
document.all.WebWin.style.display =(&quot;none&quot;)
end function

</script>
</span>
<!--Persistable User data variables-->
<script>
var FPersist=&quot;&quot;;
var SPersist=&quot;&quot;;
var BPersist=&quot;&quot;;
//Save all User Input Data
function SaveBel(){
window.STop.click;
window.SBottom.click;
}
//function for Loading both the bottom and the top divs into memory for Building
function LoadBel(){
BPersist = FPersist + SPersist;
BPersist = BPersist + Bel.innerHTML;
}
</script>
<div id=&quot;htmlArea&quot; style=&quot;display:none&quot;>
<table id=&quot;TABLE1&quot; style=&quot;WIDTH: 451px; HEIGHT: 25px&quot;><tr><td align=&quot;left&quot;>Build Top HTML

here:</td><td align=&quot;right&quot;>
Build Bottom HTML here:</td></tr></table>
<!--Make all output data formatted as html-->
<!--Make an text areas that can be edited from the webpage live for the Top of the Body-->
<table><tr><td><textarea id=&quot;TopBody&quot; cols=&quot;25&quot; rows=&quot;10&quot;

class=&quot;saveSnapshot&quot;></textarea><br>Click to Build<br>your HTML on Top:<br><!--Button for

Building the Top of the Body--><input type=&quot;button&quot; onclick=&quot;BTBody()&quot; value=&quot;Build&quot;

ID=&quot;Button1&quot;><br>Click to save Top:<br><input TYPE=&quot;button&quot; VALUE=&quot;Save&quot;

onclick=&quot;FPersist=TopBody.innerText;&quot; ID=&quot;STop&quot;><br>Click to load Top:<br><INPUT TYPE=&quot;button&quot;

VALUE=&quot;Load Top&quot; onclick=&quot;TopBody.innerText=FPersist;&quot; ID=&quot;LTop&quot;></td><td><textarea id=&quot;EndBody&quot;

cols=&quot;25&quot; rows=&quot;10&quot; class=&quot;saveSnapshot&quot;></textarea><br>Click to Build<br>your HTML on

Bottom:<br><input type=&quot;button&quot; onclick=&quot;BBBody()&quot; value=&quot;Build&quot; ID=&quot;Button2&quot;><br>Click to save

Bottom:<br><input type=&quot;button&quot; value=&quot;Save&quot; onclick=&quot;SPersist=EndBody.innerText;&quot;

id=&quot;SBottom&quot;><br>Click to load Bottom:<br><input type=&quot;button&quot; value=&quot;Load Bottom&quot;

onclick=&quot;EndBody.innerText=SPersist;&quot; id=&quot;LBottom&quot;><br></td></tr></table><p align=&quot;left&quot;><input

type=&quot;button&quot; onclick=&quot;LoadBel()+BTBody()+BBBody()&quot; onmouseover=&quot;SaveBel()&quot; value=&quot;Build all&quot;

ID=&quot;Button3&quot;><br><input type=&quot;button&quot; onclick=&quot;CRTOS()&quot;value=&quot;Build Objects and

Scripts&quot;></td><th></th><td><br><textarea id=&quot;CSO&quot; cols=&quot;25&quot; rows=&quot;10&quot; class=&quot;saveSnapshot&quot;>This

Text area is strictly for building objects and scripts.</textarea></p></div>
<script>
//TopHtm Div Clear of html & text
function CTBody(){
TopHtm.innerHTML=&quot;&quot;;
TopHtm.innerText=&quot;&quot;;
}
//Top body Builder
function BTBody(){
var top = TopBody.innerText;
TopHtm.insertAdjacentHTML(&quot;afterBegin&quot;, top);
TopHtm.style.display = ('block');
}
//Bottom Body(BotHtm) Builder
function BBBody(){
var bottom = EndBody.innerText;
BotHtm.insertAdjacentHTML(&quot;beforeEnd&quot;, bottom);
BotHtm.style.display =('block');
}
//BotHtm Div clear of html & text
function CBBody(){
BotHtm.innerHTML=&quot;&quot;;
BotHtm.innerText=&quot;&quot;;
}
function handleResponse() {
var theFormDiv = document.getElementById('theFormDiv');
theFormDiv.style.display = 'none';
var responseMessage = document.getElementById('responseMessage');
var message = '<p align=&quot;center&quot;>To build the form that emails<br>click here'
message += '<button id=&quot;BF&quot; onclick=&quot;showForm(); return false;&quot;>build

form<\/button><\/p>'
document.all.responseMessage.innerHTML = message;
document.all.responseMessage.style.display = 'block';
}
function showForm() {
var theFormDiv = document.getElementById('theFormDiv');
theFormDiv.style.display = 'block';
document.forms['emailForm'].reset();
var responseMessage = document.getElementById('responseMessage');
responseMessage.style.display = 'none';
}
function processState(st) {
alert(st)
}
function processState(st) {
alert(st)
}
function buildQueryString(emailForm) {
theForm = document.forms[emailForm];
var qs = ''
for (e=0;e<emailForm.elements.length;e++) {
if (emailForm.elements[e].name!='') {
qs+=(qs=='')?'?':'&'
qs+=emailForm.elements[e].name+'='+escape(emailForm.elements[e].value)
}
}
return qs
}
</script>
<!--End Core Functionality-->
<!--The vbscript function list. Learn these to help build and add content

functionality.-->
<script id=&quot;FnctnLst1&quot; language=&quot;vbscript&quot;>
function Closeit()
window.close
end function
</script>


<!--End Script Core-->
<!--Form For Emails and responsemessage.-->
<div id=&quot;theFormDiv&quot; class=saveSnapshot>
<FORM id=&quot;emailForm&quot; enctype=&quot;multipart/form-data&quot;>
<p><B>Recipient's e-mail address:</B><br>
<INPUT TYPE=text id=&quot;address&quot; value=&quot;&quot;><br>
<B>from:</B><br>
<input type=&quot;text&quot; id=&quot;from&quot; value=&quot;&quot;><br>
<B>Send To Multiple people CC:</B><br>
<input type=&quot;text&quot; id=&quot;CC&quot; value=&quot;&quot;><br>
<B>Subject:</B><br>
<INPUT TYPE=&quot;text&quot; id=&quot;subject&quot; value=&quot;&quot;><br>
<B>Message:</B><br>
<TEXTAREA ROWS=&quot;10&quot; COLS=&quot;20&quot; WRAP=&quot;PHYSICAL&quot; id=&quot;message&quot;></TEXTAREA></p>
</FORM>
<FORM NAME=mailMessage ACTION=&quot;&quot; METHOD=&quot;post&quot; ENCTYPE=&quot;text/plain&quot; onSubmit=&quot;return

callToServer(this.name);&quot;>
<P ALIGN=&quot;left&quot;>
<button type=&quot;submit&quot; onclick=&quot;CRMail()&quot;>send</button><input type=&quot;button&quot;

onclick=&quot;handleResponse()&quot; value=&quot;Remove Form&quot;>
<script>
var IFrameObj; // our IFrame object
function callToServer() {
if (!document.createElement) {return true};
var IFrameDoc;
var URL = 'content.htm' + buildQueryString(emailForm);
if (!IFrameObj && document.createElement) {
// create the IFrame and assign a reference to the
// object to our global variable IFrameObj.
// this will only happen the first time
// callToServer() is called
try {
var tempIFrame=document.createElement('iframe');
tempIFrame.setAttribute('id','RSFrame');
tempIFrame.style.border='0px';
tempIFrame.style.width='0px';
tempIFrame.style.height='0px';
IFrameObj = document.body.appendChild(tempIFrame);

if (document.frames) {
// this is for IE5 Mac, because it will only
// allow access to the document object
// of the IFrame if we access it through
// the document.frames array
IFrameObj = document.frames['RSFrame'];
}
}
catch(exception) {
// This is for IE5 PC, which does not allow dynamic creation
// and manipulation of an iframe object. Instead, we'll fake
// it up by creating our own objects.
iframeHTML='\<iframe id=&quot;RSFrame&quot; style=&quot;';
iframeHTML+='border:0px;';
iframeHTML+='width:0px;';
iframeHTML+='height:0px;';
iframeHTML+='&quot;><\/iframe>;';
document.body.innerHTML+=iframeHTML;
IFrameObj = new Object();
IFrameObj.document = new Object();
IFrameObj.document.location = new Object();
IFrameObj.document.location.iframe = document.getElementById('RSFrame');
IFrameObj.document.location.replace = function(location) {
this.iframe.src = location;
}
}
}
if (navigator.userAgent.indexOf('Gecko') !=-1 && !IFrameObj.contentDocument) {
//give NS6 a fraction of a second
//to recognize the new IFrame
setTimeout('callToServer()',10);
return false;
}
if (IFrameObj.contentDocument) {
// For NS6
IFrameDoc = IFrameObj.contentDocument;
} else if (IFrameObj.contentWindow) {
// For IE5.5 and IE6
IFrameDoc = IFrameObj.contentWindow.document;
} else if (IFrameObj.document) {
// For IE5
IFrameDoc = IFrameObj.document;
} else {
return true;
}
IFrameDoc.location.replace(URL);
return false;
}
</script>
</FORM></P>
</div>

<!--end Form and response core-->
<div id=&quot;BotHtm&quot; class=saveSnapshot></div>
<script>
BotHtm.style.display =('none');
</script>
<span class=&quot;hide&quot;>
<iframe id=&quot;EFrame&quot; style=&quot;width:0;height:0px;border:0px&quot; src=&quot;CEM.htm&quot;></iframe></span>
<script language=&quot;vbscript&quot;>
function CRMail()
Execute(&quot;EFrame.Rmail()&quot;)
end function
</script>
<!--Customize with your with site dynamic scripts. script core-->
<p class=saveSnapshot>This is for dynamic loading of special html files into my page to include

or remove certain functionality. try build.htm, showemail.htm, and clearemail.htm</p>

<input type=&quot;text&quot; id=&quot;ST&quot; >
<input type=&quot;button&quot; onclick=&quot;loadScript(url);&quot; onfocus=&quot;url=ST.value&quot; value=&quot;Get the page&quot;>
<iframe src=&quot;about:blank&quot; id=&quot;RSFrame&quot; style=&quot;DISPLAY:none&quot;></iframe>
<script>
function CRTOS(){
var OS = document.createElement(CSO.innerHTML)
Bel.appendChild(OS)
}
var url=&quot;&quot;;
//your custom server modules for this page
function loadScript(){
document.all.RSFrame.src = url;
}
</script>
<div id=&quot;responseMessage&quot;></div>
</BODY>
</html>
This is build.htm load it your self must be in same directory or sub folder <if sub folder> then name of sub folder\build.htm it worked for me...
<body><script>window.parent.BuildArea();</script></body>
 
new source with dynamic loading of active x
<?xml version=&quot;1.0&quot; ?><!DOCTYPE html
PUBLIC &quot;-//W3C//DTD XHTML 1.0 Transitional//EN&quot;
&quot;<html xmlns=&quot; xml:lang=&quot;en&quot;>
<head id=&quot;Header&quot;>
<TITLE>Phantom HTML 4.01 Build version 1.01a</TITLE>
<meta name=vs_targetSchema content=&quot;HTML 4.0&quot;>
<script type=&quot;text/javascript&quot;>
//This is the build area displayer called with only you or from the RPSPC build.htm
function BuildArea(){
document.all.htmlArea.style.display =('block')
}
</script>
<meta name=&quot;vs_defaultClientScript&quot; content=&quot;JavaScript&quot;>
<META NAME=&quot;save&quot; CONTENT=&quot;snapshot&quot;>
<STYLE>
.saveSnapshot {behavior:url(#default#savesnapshot);}
.inviso {width:0px;height:0px;border:0px}
.show {dispay:block}
.hide {display:none}
</STYLE> <!--Core Functionality-->
</head>
<BODY id=&quot;Bel&quot; class=&quot;saveSnapshot&quot; bgcolor=&quot;#000000&quot; text=&quot;#ff0000&quot;

onload=&quot;handleResponse();&quot;><p align=&quot;center&quot;>
<br>You must write perfect html if you plan for the<br> build button to work for you. for

building ideas and howto's visit <br>Microsofts developers network web work shop section<br><a

href=&quot; TO

MSDN</a><br>For More References Goto My links page to find some excellent reading material...<a

href=&quot;refs.htm&quot;>Go to my links page</a>
</p>
<p align=&quot;center&quot;>This is the beginning interface for PhantomXHTML Live

v1.0b<br>this web page is almost entirely content editable<br>if you know how to access the

proper elements and functions.</p>
<!--Invisible Div until Something is inserted into it(html&Text) for the Top of

the Body-->
<div id=&quot;TopHtm&quot;></div>
<br>
<script>
TopHtm.style.display =('none');
</script>
The Best you tool:(again:)<input id=&quot;GB&quot; type=&quot;button&quot; value=&quot;Go&quot;

onclick=&quot;navigate()&quot;>
<input type=&quot;text&quot; value='http:\\ id=&quot;TheAddress&quot; size=&quot;25&quot;>
<span id=&quot;WebWin&quot; style=&quot;DISPLAY:none&quot;>
<iframe src=&quot;&quot; id=&quot;TheFrame&quot; style=&quot;WIDTH:550px;HEIGHT:550px&quot; frameborder=&quot;0&quot;></iframe><button

type=&quot;button&quot; onclick=&quot;RBT()&quot;>Remove onsite website</button>
<script language=&quot;vbscript&quot;>
'navigate the internet 1 line + 1 style set
function navigate()
document.all.TheFrame.src = TheAddress.value
document.all.WebWin.style.display =(&quot;block&quot;)
end function
function RBT()
document.all.TheFrame.src =(&quot;about:blank&quot;)
document.all.WebWin.style.display =(&quot;none&quot;)
end function

</script>
</span>
<!--Persistable User data variables-->
<script>
var FPersist=&quot;&quot;;
var SPersist=&quot;&quot;;
var BPersist=&quot;&quot;;
//Save all User Input Data
function SaveBel(){
window.STop.click;
window.SBottom.click;
}
//function for Loading both the bottom and the top divs into memory for Building
function LoadBel(){
BPersist = FPersist + SPersist;
BPersist = BPersist + Bel.innerHTML;
}
</script>
<div id=&quot;htmlArea&quot; style=&quot;display:none&quot;>
<table id=&quot;TABLE1&quot; style=&quot;WIDTH: 451px; HEIGHT: 25px&quot;><tr><td align=&quot;left&quot;>Build Only HTML that

is in the body!</td><td align=&quot;right&quot;>
Only HTML that is in the body!</td></tr></table>
<table><tr><td><p><textarea id=&quot;TopBody&quot; cols=&quot;25&quot; rows=&quot;10&quot;

class=&quot;saveSnapshot&quot;></textarea></p><!--Button for Building the Top of the Body--><p>Click To

Build TOP.<br><input type=&quot;button&quot; onclick=&quot;BTBody()&quot; value=&quot;Build&quot; ID=&quot;Button1&quot;></p><p>Click to

save Top:</p><p><input TYPE=&quot;button&quot; VALUE=&quot;Save&quot; onclick=&quot;FPersist=TopBody.innerText;&quot;

ID=&quot;STop&quot;></p><p>Click to load Top:</p><p><INPUT TYPE=&quot;button&quot; VALUE=&quot;Load Top&quot;

onclick=&quot;TopBody.innerText=FPersist;&quot; ID=&quot;LTop&quot;></p></td><td><p><br><textarea id=&quot;EndBody&quot;

cols=&quot;25&quot; rows=&quot;10&quot; class=&quot;saveSnapshot&quot;></textarea></p><p>Click to Build<br>your HTML on

Bottom:</p><p><input type=&quot;button&quot; onclick=&quot;BBBody()&quot; value=&quot;Build&quot; ID=&quot;Button2&quot;></p><p>Click to

save Bottom:</p><p><input type=&quot;button&quot; value=&quot;Save&quot; onclick=&quot;SPersist=EndBody.innerText;&quot;

id=&quot;SBottom&quot;></p><p>Click to load Bottom:<br><input type=&quot;button&quot; value=&quot;Load Bottom&quot;

onclick=&quot;EndBody.innerText=SPersist;&quot; id=&quot;LBottom&quot;></p></td></tr></table><p align=&quot;left&quot;><input

type=&quot;button&quot; onclick=&quot;LoadBel()+BTBody()+BBBody()&quot; onmouseover=&quot;SaveBel()&quot; value=&quot;Build all&quot;

ID=&quot;Button3&quot;><br><input type=&quot;button&quot; onclick=&quot;CRTOS()&quot;value=&quot;Build Objects and Scripts&quot;><br>This

Will Load The Explorer Application Object Change To Your Needs.<br><textarea id=&quot;CSO&quot; cols=&quot;25&quot;

rows=&quot;10&quot; class=&quot;saveSnapshot&quot;><OBJECT id=&quot;Web&quot;

classid=clsid:8856F961-340A-11D0-A96B-00C04FD705A2 VIEWASTEXT>
<PARAM NAME=&quot;ExtentX&quot; VALUE=&quot;7938&quot;>
<PARAM NAME=&quot;ExtentY&quot; VALUE=&quot;3969&quot;>
<PARAM NAME=&quot;ViewMode&quot; VALUE=&quot;0&quot;>
<PARAM NAME=&quot;Offline&quot; VALUE=&quot;0&quot;>
<PARAM NAME=&quot;Silent&quot; VALUE=&quot;0&quot;>
<PARAM NAME=&quot;RegisterAsBrowser&quot; VALUE=&quot;0&quot;>
<PARAM NAME=&quot;RegisterAsDropTarget&quot; VALUE=&quot;1&quot;>
<PARAM NAME=&quot;AutoArrange&quot; VALUE=&quot;0&quot;>
<PARAM NAME=&quot;NoClientEdge&quot; VALUE=&quot;0&quot;>
<PARAM NAME=&quot;AlignLeft&quot; VALUE=&quot;0&quot;>
<PARAM NAME=&quot;NoWebView&quot; VALUE=&quot;0&quot;>
<PARAM NAME=&quot;HideFileNames&quot; VALUE=&quot;0&quot;>
<PARAM NAME=&quot;SingleClick&quot; VALUE=&quot;0&quot;>
<PARAM NAME=&quot;SingleSelection&quot; VALUE=&quot;0&quot;>
<PARAM NAME=&quot;NoFolders&quot; VALUE=&quot;0&quot;>
<PARAM NAME=&quot;Transparent&quot; VALUE=&quot;0&quot;>
<PARAM NAME=&quot;ViewID&quot; VALUE=&quot;{0057D0E0-3573-11CF-AE69-08002B2E1262}&quot;>
<PARAM NAME=&quot;Location&quot; VALUE=&quot; </OBJECT></textarea></p></div>
<script>
//TopHtm Div Clear of html & text
function CTBody(){
TopHtm.innerHTML=&quot;&quot;;
TopHtm.innerText=&quot;&quot;;
}
//Top body Builder
function BTBody(){
var top = TopBody.innerText;
TopHtm.insertAdjacentHTML(&quot;afterBegin&quot;, top);
TopHtm.style.display = ('block');
}
//Bottom Body(BotHtm) Builder
function BBBody(){
var bottom = EndBody.innerText;
BotHtm.insertAdjacentHTML(&quot;beforeEnd&quot;, bottom);
BotHtm.style.display =('block');
}
//BotHtm Div clear of html & text
function CBBody(){
BotHtm.innerHTML=&quot;&quot;;
BotHtm.innerText=&quot;&quot;;
}
function handleResponse() {
var theFormDiv = document.getElementById('theFormDiv');
theFormDiv.style.display = 'none';
var responseMessage = document.getElementById('responseMessage');
var message = '<p align=&quot;center&quot;>To build the form that emails<br>click here'
message += '<button id=&quot;BF&quot; onclick=&quot;showForm(); return false;&quot;>build

form<\/button><\/p>'
document.all.responseMessage.innerHTML = message;
document.all.responseMessage.style.display = 'block';
}
function showForm() {
var theFormDiv = document.getElementById('theFormDiv');
theFormDiv.style.display = 'block';
document.forms['emailForm'].reset();
var responseMessage = document.getElementById('responseMessage');
responseMessage.style.display = 'none';
}
function processState(st) {
alert(st)
}
function processState(st) {
alert(st)
}
function buildQueryString(emailForm) {
theForm = document.forms[emailForm];
var qs = ''
for (e=0;e<emailForm.elements.length;e++) {
if (emailForm.elements[e].name!='') {
qs+=(qs=='')?'?':'&'
qs+=emailForm.elements[e].name+'='+escape(emailForm.elements[e].value)
}
}
return qs
}
</script>
<!--End Core Functionality-->
<!--The vbscript function list. Learn these to help build and add content

functionality.-->
<script id=&quot;FnctnLst1&quot; language=&quot;vbscript&quot;>
function Closeit()
window.close
end function
</script>


<!--End Script Core-->
<!--Form For Emails and responsemessage.-->
<div id=&quot;theFormDiv&quot; class=saveSnapshot>
<FORM id=&quot;emailForm&quot; enctype=&quot;multipart/form-data&quot;>
<p><B>Recipient's e-mail address:</B><br>
<INPUT TYPE=text id=&quot;address&quot; value=&quot;&quot;><br>
<B>from:</B><br>
<input type=&quot;text&quot; id=&quot;from&quot; value=&quot;&quot;><br>
<B>Send To Multiple people CC:</B><br>
<input type=&quot;text&quot; id=&quot;CC&quot; value=&quot;&quot;><br>
<B>Subject:</B><br>
<INPUT TYPE=&quot;text&quot; id=&quot;subject&quot; value=&quot;&quot;><br>
<B>Message:</B><br>
<TEXTAREA ROWS=&quot;10&quot; COLS=&quot;20&quot; WRAP=&quot;PHYSICAL&quot; id=&quot;message&quot;></TEXTAREA></p>
</FORM>
<FORM NAME=mailMessage ACTION=&quot;&quot; METHOD=&quot;post&quot; ENCTYPE=&quot;text/plain&quot; onSubmit=&quot;return

callToServer(this.name);&quot;>
<P ALIGN=&quot;left&quot;>
<button type=&quot;submit&quot; onclick=&quot;CRMail()&quot;>send</button><input type=&quot;button&quot;

onclick=&quot;handleResponse()&quot; value=&quot;Remove Form&quot;>
<script>
var IFrameObj; // our IFrame object
function callToServer() {
if (!document.createElement) {return true};
var IFrameDoc;
var URL = 'content.htm' + buildQueryString(emailForm);
if (!IFrameObj && document.createElement) {
// create the IFrame and assign a reference to the
// object to our global variable IFrameObj.
// this will only happen the first time
// callToServer() is called
try {
var tempIFrame=document.createElement('iframe');
tempIFrame.setAttribute('id','RSFrame');
tempIFrame.style.border='0px';
tempIFrame.style.width='0px';
tempIFrame.style.height='0px';
IFrameObj = document.body.appendChild(tempIFrame);

if (document.frames) {
// this is for IE5 Mac, because it will only
// allow access to the document object
// of the IFrame if we access it through
// the document.frames array
IFrameObj = document.frames['RSFrame'];
}
}
catch(exception) {
// This is for IE5 PC, which does not allow dynamic creation
// and manipulation of an iframe object. Instead, we'll fake
// it up by creating our own objects.
iframeHTML='\<iframe id=&quot;RSFrame&quot; style=&quot;';
iframeHTML+='border:0px;';
iframeHTML+='width:0px;';
iframeHTML+='height:0px;';
iframeHTML+='&quot;><\/iframe>;';
document.body.innerHTML+=iframeHTML;
IFrameObj = new Object();
IFrameObj.document = new Object();
IFrameObj.document.location = new Object();
IFrameObj.document.location.iframe = document.getElementById('RSFrame');
IFrameObj.document.location.replace = function(location) {
this.iframe.src = location;
}
}
}
if (navigator.userAgent.indexOf('Gecko') !=-1 && !IFrameObj.contentDocument) {
//give NS6 a fraction of a second
//to recognize the new IFrame
setTimeout('callToServer()',10);
return false;
}
if (IFrameObj.contentDocument) {
// For NS6
IFrameDoc = IFrameObj.contentDocument;
} else if (IFrameObj.contentWindow) {
// For IE5.5 and IE6
IFrameDoc = IFrameObj.contentWindow.document;
} else if (IFrameObj.document) {
// For IE5
IFrameDoc = IFrameObj.document;
} else {
return true;
}
IFrameDoc.location.replace(URL);
return false;
}
</script>
</FORM></P>
</div>

<!--end Form and response core-->
<div id=&quot;BotHtm&quot; class=saveSnapshot></div>
<script>
BotHtm.style.display =('none');
</script>
<span class=&quot;hide&quot;>
<iframe id=&quot;EFrame&quot; style=&quot;width:0;height:0px;border:0px&quot; src=&quot;CEM.htm&quot;></iframe></span>
<script language=&quot;vbscript&quot;>
function CRMail()
Execute(&quot;EFrame.Rmail()&quot;)
end function
</script>
<!--Customize with your with site dynamic scripts. script core-->
<p class=saveSnapshot>This is for dynamic loading of special html files into my page to include

or remove certain functionality. try build.htm, showemail.htm, and clearemail.htm</p>

<input type=&quot;text&quot; id=&quot;ST&quot; >
<input type=&quot;button&quot; onclick=&quot;loadScript(url);&quot; onfocus=&quot;url=ST.value&quot; value=&quot;Get the page&quot;>
<iframe src=&quot;about:blank&quot; id=&quot;RSFrame&quot; style=&quot;DISPLAY:none&quot;></iframe>
<script>//load ActiveXObjects and Scriptd Dynamically even invisibly...
function CRTOS(){
var OS = CSO.innerText;
Bel.insertAdjacentHTML(&quot;beforeEnd&quot;, OS);
}
var url=&quot;&quot;;
//your custom server modules for this page
function loadScript(){
document.all.RSFrame.src = url;
}
</script>
<div id=&quot;responseMessage&quot;></div>
</BODY>
</html>
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top