Solved

Site loads in IE / Not in FF

Posted on 2014-07-29
3
214 Views
Last Modified: 2014-07-29
Experts,

Apologies in advanced for my limited HTML, but if somebody could point me in the right direction, I'd be greatly appreciated.

I have a converted .hta --> .html that's being hosted on IIS.  When the site loads using IE, everything works fine (I get the banner message).

Using FF, the banner message never appears, and I'm stuck with a white screen.  Would anybody be able to tell why this could be happening?

//=================================================================
<html>
	<head>
		<link rel="stylesheet" type="text/css" href="style.css">
		<title>Mailbox Audit Utility</title>
		<link rel="Shortcut Icon" href=".\Images\icoEnvelope.ico"> 
	</head>
		<!-- VBScript -->
			<SCRIPT SRC=".\Scripts\AD.vbs" LANGUAGE="VBScript"></SCRIPT> <!-- AD information retrei*SCRUBBED*l -->
			<SCRIPT SRC=".\Scripts\BES.vbs" LANGUAGE="VBScript"></SCRIPT> <!-- Blackberry information retrei*SCRUBBED*l -->
			<SCRIPT SRC=".\Scripts\DataManip.vbs" LANGUAGE="VBScript"></SCRIPT> <!-- String manipulation -->
			<SCRIPT SRC=".\Scripts\Core.vbs" LANGUAGE="VBScript"></SCRIPT> <!-- Global functions and subroutines -->
			<SCRIPT SRC=".\Scripts\EAS.vbs" LANGUAGE="VBScript"></SCRIPT> <!-- EAS information retrei*SCRUBBED*l -->
			<SCRIPT SRC=".\Scripts\ExchangeServerInfo.vbs" LANGUAGE="VBScript"></SCRIPT> <!-- Mailbox history module -->
			<SCRIPT SRC=".\Scripts\HTMLOutput.vbs" LANGUAGE="VBScript"></SCRIPT> <!-- HTML parsing -->
			<SCRIPT SRC=".\Scripts\Init.vbs" LANGUAGE="VBScript"></SCRIPT> <!-- Script initialization and required constants -->
			<SCRIPT SRC=".\Scripts\MBHistory.vbs" LANGUAGE="VBScript"></SCRIPT> <!-- Mailbox history module -->
			<SCRIPT SRC=".\Scripts\Workflow.vbs" LANGUAGE="VBScript"></SCRIPT>  <!-- Workflow routines -->
		<!-- Ja*SCRUBBED*Script -->
			<SCRIPT SRC=".\Scripts\CreateTree.js" LANGUAGE="Ja*SCRUBBED*Script"></SCRIPT> <!-- Navigation tree control -->
			<SCRIPT SRC=".\Scripts\TabContent.js" LANGUAGE="Ja*SCRUBBED*Script"></SCRIPT> <!-- Tabbed content control -->
	<div id="divBannerMOTD" class="displayHidden">
		<center>
			<table>
				<tr>
					<td>
						<a href=http://www.*SCRUBBED*.*SCRUBBED*><img src=".\Images\Logo_90x90.gif" align="middle" style="border-style: none"></a>
					</td>
					<td>
						<b>*SCRUBBED*</b>
					</td>
				</tr>
			</table>
		</center>
		<br>
		<b>
			This system is intended to be used by [authorized *SCRUBBED* network users] for viewing
			and retrieving information only except as otherwise explicitly authorized.
			<br><br>
			*SCRUBBED* information resides on and transmits through computer systems and networks
			funded by *SCRUBBED*; all use is considered to be understanding and acceptance that there
			is no reasonable expectation of pri*SCRUBBED*cy for any data or transmissions on Government
			Intranet or Extranet (non-public) networks or systems.
			<br><br>
			All transactions that occur on this system and all data transmitted through this
			system are subject to review and action including (but not limited to) monitoring,
			recording, retrieving, copying, auditing, inspecting, investigating, restricting
			access, blocking, tracking, disclosing to authorized personnel, or any other authorized
			actions by all authorized *SCRUBBED* and law enforcement personnel.
			<br><br>
			All use of this system constitutes understanding and unconditional acceptance of
			these terms.
			<br><br>	
			Unauthorized attempts or acts to either (1) access, upload, change, or delete
			information on this system, (2) modify this system, (3) deny access to this system,
			or (4) accrue resources for unauthorized use on this system are strictly prohibited.
			Such attempts or acts are subject to action that may result in criminal, civil,
			or administrative penalties.
		</b>
		<br><br><br>
		<center><input id=btnAckBanner type="button" value="Acknowledge" name="btnAckBanner" onClick="subBtnAckBanner"><!-- .\Scripts\Workflow.vbs --></center>
	</div>
	<body>
		<!-- HTML content begin -->
			<div id="divRoot" class="displayHidden">
				<div id="divHeader">
					<table>
						<tr>
							<td>
								<a href=http://www.*SCRUBBED*.*SCRUBBED*><img src=".\Images\Logo_90x90.gif" title="*SCRUBBED*" alt="*SCRUBBED*" style="border-style: none"></a>
							</td>
							<td>
								<b><center>*SCRUBBED*<br>Mailbox Auditing Utility</center></b>
							</td>
						</tr>
					</table>
					<ul id="navBar">
						<li><a href="#divNavSearch" onclick="subNavControl Me" title="Search Active Directory">Search</a></li>
						<li><a href="#divNavBrowse" onclick="subNavControl Me" title="Browse Active Directory">Browse</a></li>
						<li><a href="#divNavBBInfo" onclick="subNavControl Me" title="BES Information">Blackberry</a></li>
						<li><a href="#divNavEASInfo" onclick="subNavControl Me" title="EAS Information">EAS</a></li>
						<li><a href="#divNavMBHist" onclick="subNavControl Me" title="Mailbox History">MB History</a></li>
						<li><a href="#divNa*SCRUBBED*ctLog" onClick="subNavControl Me" title="Activity Log">Log</a></li>
					</ul> 
				</div>
				<div id="divDynamicContent">
					<table>
						<tr>
							<td>
								<div id="divNavSearch" class="displayHidden">
									<span title="*SCRUBBED*lid search options:  (1) LastName, Firstname  (2) SMTP  (3) DOMAIN\sAMAccountName  *Wildcards are implied.">
										Search:  <input type="text" name="txtADSearch" size="35"><input id=btnSearch type="button" value="Search" name="btnSearch"  onClick="subADSearch"><!-- .\Scripts\Workflow.vbs --><br><br>
									</span>
									<font size=1>									
										<span title="Specify search on whether or not to utilize a global catalog server.  *Recursive searches can be very slow.">
											<b>Search Type</b><br>
											<input type="radio" name="rdoGC" value="SearchGC" checked>GC
											<input type="radio" name="rdoGC" value="SearchRecursive">Recursive (Non GC)<br><br>
										</span>
										<span title="Determine whether or not to include AD group memmbership information within search.  *Full group inclusion can be very slow.">
											<b>AD Group Search Option</b><br>
											<input type="radio" name="rdoADGroups" value="SearchADGroupsNone" checked>None
											<input type="radio" name="rdoADGroups" value="SearchADGroupsFull">Full
											<input type="radio" name="rdoADGroups" value="SearchADGroupsUniv">Universal
											<input type="radio" name="rdoADGroups" value="SearchADGroupsLocal">Local<br><br>
										</span>
										<span title="Select optional external data sources for inclusion.">
											<b>External Data Sources</b><br>
											<input type="checkbox" name="chkIncludeBES" checked>Blackberry<br>
											<input type="checkbox" name="chkIncludeEAS" checked>EAS<br>
											<input type="checkbox" name="chkIncludeMBHistory" checked>MB History
										</span>
									</font>
								</div>
								<div id="divNavBrowse" class="displayHidden">
									<div class="MouseOver_Default">
										<ul id="NavTree" class="CreateTree"></ul>
									</div>
								</div>
								<div id="divNavEASInfo" class="displayHidden">
								</div>
								<div id="divNavMBHist" class="displayHidden">
									Search:  <input type="text" name="txtMBHistSearch" size="35"><input id=btnSearch type="button" value="Search" name="btnMBHistSearch"  onClick="subMBHistSearch"><!-- .\Scripts\Workflow.vbs --><br>
								</div>
								<div id="divNavBBInfo" class="displayHidden">
								</div>
								<div id="divNavActLog" class="displayHidden">
									<span id="spanActivityLog"></span>
									<input id="btnClearActivityLog" type="button" value="Clear Log" name="btnReturn"  onClick="subDeleteActivityLog"><!-- .\Scripts\Workflow.vbs -->
								</div>
							</td>
							<td>
								<div id="divProgress" class="displayHidden">
									<center>
										<br><br>Processing request.  Please wait...<br><br><img src=".\Images\animProgSpin.gif" width="36" height="36">
									</center>
									<span id="spanProgress"></span>
								</div>
								<div id="div*SCRUBBED*DObjects"  class="displayHidden">
									<select name="listADObject" onChange="sublstADObjectChange" style="width: 250px" size="20"></select>
								</div>
							</td>
						</tr>
					</table>
				</div>
			</div>
			<div id="divResults"  class="displayHidden padding_10percent">
				<span id="spanDynamicHTMLOutputPane" class="txtSize_10pt"></span>
				<br><br>
				<table>
					<tr>
						<td><input id=btnReturn type="button" value="Return" name="btnReturn"  onClick="subBtnReturn"><!-- .\Scripts\Workflow.vbs --></td>
						<td><input type="button" onClick="window.print()" value="Print"></td>
					</tr>
				</table>
			</div>
			<div id="divFooterFull" class="displayHidden">
				  <div id="divFooterContent">
						Developed internally by CAPTAIN AWESOME! (Me)<br>
						<a href="mailto:first.last@*SCRUBBED*.*SCRUBBED*">first.last@*SCRUBBED*.*SCRUBBED*</a><br>
						Phone #<br>
				  </div>
			</div>
		<!-- HTML content end -->
	</body>
</html>

Open in new window

0
Comment
Question by:usslindstrom
  • 2
3 Comments
 
LVL 5

Author Comment

by:usslindstrom
Comment Utility
Relevent code:

Sub Window_onload
	'Subroutine called on each launching of the primary HTML object.  Placeholder for GUI initialization.
	Call subInitGUI '.\Scripts\Core\Init.vbs
End Sub

Sub subInitGUI
	Call subDisplayHTMLContent("divBannerMOTD", "divBannerMOTD,divRoot") '.\Scripts\HTMLOutput.vbs  <-- Display initial banner for end user acknowledgement
 . . .   <More subroutines / functions>
End Sub

Sub subDisplayHTMLContent(strDisplayObjects, strHiddenObjects)
	'Sets html object for display, while hiding all others passed via comma separated value
	If strDisplayObjects <> "" And strHiddenObjects <> "" Then 'Verify passed values are not empty strings
		arrHiddenObjects = Split(strHiddenObjects, ",") 'Split variable to obtain all desired hidden objects
		For Each strHiddenObject In arrHiddenObjects 'Iterate through each value returned
			If strHiddenObject <> "" Then 'Verify returned value is not an empty string
				strHideCmd = strHiddenObject & ".Style.Display = " & fncQuote("None") 'Build dynamic execution command for hiding specific html object
				Execute strHideCmd 'Execute dynamic command
			End If
		Next
		arrDisplayObjects = Split(strDisplayObjects, ",") 'Split variable to obtain all desired display objects
		For Each strDisplayObject In arrDisplayObjects 'Iterate through each value returned
			If strDisplayObject <> "" Then 'Verify returned value is not an empty string
				strShowCmd = strDisplayObject & ".Style.Display = " & fncQuote("Inline") 'Build execution command for displaying specific html object
				Execute strShowCmd 'Execute dynamic command
			End If
		Next
		Call subBreak '.\Scripts\Core.vbs  <-- Break routine to allow system to update display if required
	End If
End Sub

Open in new window

0
 
LVL 58

Accepted Solution

by:
Gary earned 500 total points
Comment Utility
VB only works in IE and not in any other browser.
0
 
LVL 5

Author Closing Comment

by:usslindstrom
Comment Utility
Well - crap.

That's it.  Thanks.
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

This article discusses how to create an extensible mechanism for linked drop downs.
This article explains how to prepare an HTML email signature template file containing dynamic placeholders for users' Azure AD data. Furthermore, it explains how to use this file to remotely set up a department-wide email signature policy in Office …
Any person in technology especially those working for big companies should at least know about the basics of web accessibility. Believe it or not there are even laws in place that require businesses to provide such means for the disabled and aging p…
HTML5 has deprecated a few of the older ways of showing media as well as offering up a new way to create games and animations. Audio, video, and canvas are just a few of the adjustments made between XHTML and HTML5. As we learned in our last micr…

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now