home *** CD-ROM | disk | FTP | other *** search
/ Adephia Powerlink / AdephiaPowerlink-030102.iso / pc / Install / WorkFlow / Bin / SysInfoText.dll / GUI_INFO / 3026 < prev    next >
Encoding:
Text File  |  2002-11-15  |  2.2 KB  |  87 lines
  1. <html>
  2. <head>
  3. <STYLE>
  4. body{
  5.     font-size : medium;
  6.     }
  7. td    {
  8.     font-size : medium;
  9.     }
  10. </STYLE>
  11. </head>
  12.  
  13. <body bgcolor="silver" text="maroon">
  14.  
  15. $MENUITEMS$
  16. <h1><div align="center">$WORKNODENAME$</div></h1><!--<form method="POST"  action="http://">-->
  17. <br>
  18. <h1><div align="center">Drive info</div></h1><!--<form method="POST"  action="http://">-->
  19. <form method="post" name="changeDriveInfo" action="CALLBACKID-ConfigureStuff" onSubmit="return VerifyData();">
  20. <br>
  21. Enter the place in the global dictionary whrere the drive info will be stored:
  22. <input name="drive_info_location" value="" size=50 maxlength=80 >
  23. <!--<p>Path to help file: <input name="fileInputText" style="HEIGHT: 22px; WIDTH: 373px"><input type="button" name="browseButton" value="Browse..." onClick="BrowseClick();"><input type="file" name="HELP_FILE_PATH" style="HEIGHT: 22px; WIDTH: 80px" style='display: none;'></p>-->
  24. <br>
  25. <P>$MENUITEMS$
  26. </P>
  27. <hr>
  28. <table>
  29. <tr><th align="right">
  30. <input type="hidden" name="saveState" value="0">
  31. <input type="hidden" name="WorkingDir">
  32. <input type="button" name="save" value="Save" style="HEIGHT: 28px; WIDTH: 72px" onClick="return SubmitForSave();"> 
  33. </form></th>
  34. <th align="left"><form method="post" name="cancel_config" action="CALLBACKID-CancelConfigure"><INPUT name=cancel type=submit value=Cancel style="HEIGHT: 28px; WIDTH: 72px">
  35. </form>
  36. </th></tr>
  37. </table>
  38. <hr>
  39.  
  40. <BR>
  41.  
  42. <A href="ConfigHelp.html#General" target=_blank>Click here for help</A>
  43. <P> </P>
  44. </body>
  45. </html>
  46.  
  47. <SCRIPT LANGUAGE="JavaScript">
  48. var strDriveInfoLocation="";
  49.  
  50. /*VARS*/
  51.  
  52. /*ENDVARS*/
  53.  
  54. document.forms[0].drive_info_location.value = strDriveInfoLocation;
  55.  
  56. </SCRIPT>
  57.  
  58. <SCRIPT LANGUAGE="VBScript">
  59.  
  60.  
  61. Function SubmitForSave()
  62.     document.forms(0).saveState.value = "1"
  63.     if (VerifyData()) then
  64.         if (document.forms(0).onSubmit()) then
  65.             document.forms(0).submit()
  66.         end if
  67.     end if
  68. End Function
  69.  
  70. Function VerifyData()
  71.     dim strDriveInfoLocation
  72.     dim strFilePath
  73.     dim bReturn
  74.     dim strWorkingDir
  75.  
  76.     bReturn = True
  77.     strDriveInfoLocation = document.forms(0).drive_info_location.value
  78.     
  79.     if (strDriveInfoLocation="") then
  80.         MsgBox("You must enter a path for drive information")
  81.         bReturn = False
  82.     end if
  83.     
  84.     VerifyData = bReturn
  85. end function
  86.  
  87. </SCRIPT>