Hi,
I am developing a SOE deployment HTA script. I have so far developed:
<html><head><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><title>Company SOE Deploy Tool</title><script language="vbscript"></script><hta:application
applicationname="CompanySOE"
border="dialog"
borderstyle="normal"
caption="Company SOE Deploy Tool"
contextmenu="no"
icon="myicon.ico"
maximizebutton="no"
minimizebutton="yes"
navigable="no"
scroll="no"
selection="no"
showintaskbar="yes"
singleinstance="yes"
sysmenu="yes"
version="1.0"
windowstate="normal"></head><script language="vbscript"><!--
Dim WScript ' Pseudo WScript object is Global to the HTA
Set WScript = new CWScript
Dim machineType
Class CWScript
Public Sub Echo( msg )
MsgBox msg
End Sub
End Class
Sub Window_OnLoad
CenterWindow 550, 350
End Sub
Sub CenterWindow( widthX, heightY )
self.ResizeTo widthX, heightY
self.MoveTo (screen.Width - widthX)/2, (screen.Height - heightY)/2
End Sub
Sub nbkOnClick
machineType="nbk"
SelectBU
End Sub
Sub dtpOnClick
machineType="dtp"
SelectBU
End Sub
Sub SelectBU()
idBody.innerHTML = idSBU.innerHTML
End Sub
Sub BU1Dlg()
'WScript.Echo idBody.innerHTML
idBody.innerHTML = idBusUnit1.innerHTML
End Sub
Sub BU2Dlg()
idBody.innerHTML = idBusUnit2.innerHTML
End Sub
--></script></head><body id="idBody" style="filter:progid:DXImageTransform.Microsoft.Gradient(endColorstr='#C0CFE2', startColorstr='#FFFFFF', gradientType='0');"><table width="520" border="0"><tr><td height="40" align="center"><span align="center" style="font-family:IMPACT;font-size:35px;"><img src="data:image/png;base64,"
width="218" height="29" alt="" /> IT </span><br /><a style="font-family:Century Gothic;color:blue;font-size:18px"><b>SOE Deploy Tool</b></a></td></tr><tr><td width="520" height="170" align="center" valign="top"><br><div align="center" style="font-family:helvetica;">Please select target machine type:</div><br><br /><div align="center"><input type="button" name="nbk" value=" Desktop " onClick="dtpOnClick"><input type="button" name="dtp" value=" Notebook " onClick="nbkOnClick"><br><br><br><br></div></td></tr><tr><td width="520" height="20" align="center" valign="middle"> <input type="button" value="Cancel" onClick="window.close"></td></tr><tr><td width="520" height="15" align="right" valign="bottom"><span align="right" style="color:grey">Developed by <b>Umit Cakar</b></span></td></tr></table><!-- might want to make Umit Cakar red? --><xml id="idSBU"><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml" ><head><title>Business Unit</title><script language="vbscript"><!--
Dim args
Sub window_onload()
'If machineType = "nbk" Then
' set notebook specific items
'End IF
'If machineType = "" Then
' set desktop specific items
'End IF
window.returnValue = "Closed" ' in case it's aborted
End Sub
--></script></head><body id="idBUBody"><table width="520" border="0"><tr><td height="40" align="center"><span align="center" style="font-family:IMPACT;font-size:35px;"><img src="data:image/png;base64,"
width="218" height="29" alt="" /> IT </span><br /><a style="font-family:Century Gothic;color:blue;font-size:18px"><b>SOE Deploy Tool</b></a></td></tr><tr><td width="520" height="170" align="center" valign="top"><span>Please Select Company Business Unit:</span><br /><br /><input type="button" value=" Bus-Unit-1 " onClick="BU1Dlg"><br /><br /><input type="button" value=" Bus-Unit-2 " onClick="BU2Dlg"><br /><br /><input type="button" value=" Bus-Unit-3 " onClick="BU3Dlg"></td></tr><tr><td width="520" height="20" align="center" valign="middle"> <input type="button" value="Cancel" onClick="window.close"></td></tr><tr><td width="520" height="15" align="right" valign="bottom"><span align="right" style="color:grey">Developed by <b>Umit Cakar</b></span></td></tr></table><xml id="idBusUnit2"><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml" ><head><title>Bus-Unit-1 SOE Software</title></head><body><table width="520" border="0"><tr><td height="40" align="center"><span align="center" style="font-family:IMPACT;font-size:35px;"><img src="data:image/png;base64,"
width="218" height="29" alt="" /> IT </span><br /><a style="font-family:Century Gothic;color:blue;font-size:18px"><b>SOE Deploy Tool</b></a></td></tr><tr><td width="520" height="170" align="center" valign="top"><table width="520" border="0"><tr width="520" height="170"><td><span style="font-family:century gothic;"><input type="checkbox" name="cbc"/> Cisco VPN Client <br /><input type="checkbox" name="cbc"/> Company Connect<br /><input type="checkbox" name="cbc"/> Sage Evolution<br /><input type="checkbox" name="cbc"/> Citrix ICA Client<br /><input type="checkbox" name="cbc"/> National Online<br /><input type="checkbox" name="cbc"/> Pronto</span></td><td> </td></tr></table></td></tr><tr><td width="520" height="20" align="center" valign="middle"><input type="button" value="Cancel" onClick="window.close"><input type="button" value=" Go " onClick="BU1Dlg"></td></tr><tr><td width="520" height="15" align="right" valign="bottom"><span align="right" style="color:grey">Developed by <b>Umit Cakar</b></span></td></tr></table></body></html></xml><xml id="idBusUnit1"><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml" ><head><title>Bus-Unit-1 SOE Software</title></head><body><table width="520" border="0"><tr><td height="40" align="center"><span align="center" style="font-family:IMPACT;font-size:35px;"><img src="data:image/png;base64,"
width="218" height="29" alt="" /> IT </span><br /><a style="font-family:Century Gothic;color:blue;font-size:18px"><b>SOE Deploy Tool</b></a></td></tr><tr><td width="520" height="170" align="center" valign="top"><table width="520" border="0"><tr width="520" height="170"><td><span style="font-family:century gothic;"><input type="checkbox" name="cbc"/> Cisco VPN Client <br /><input type="checkbox" name="cbc"/> Company Connect<br /><input type="checkbox" name="cbc"/> ACADLink v7.11<br /><input type="checkbox" name="cbc"/> PBS<br /><input type="checkbox" name="cbc"/> DocWare<br /><input type="checkbox" name="cbc"/> SAP GUI v7</span></td><td> </td></tr></table></td></tr><tr><td width="520" height="20" align="center" valign="middle"><input type="button" value="Cancel" onClick="window.close"><input type="button" value=" Go " onClick="BU2Dlg"></td></tr><tr><td width="520" height="15" align="right" valign="bottom"><span align="right" style="color:grey">Developed by <b>Umit Cakar</b></span></td></tr></table></body></html></xml></body></html></xml></body></html>Apart from the tasks that these script and dialogs wil execute, my main objective is keeping it in a single file.
Because I am using innerHTML to replace the current dialog layout, I have nested data islands containing the successive dialogs in the nested data islands. However, what I have come across is that my second dialog has 3 buttons where it could produce one of three different dialogs. But, in the nested data island HTML, it only recognises the first data island and refuses the see the rest.
What am I missing here? How can I get around it? Please help?
Thank you so much in advance....
