<html><head>
<title>Master COBOL Webler Certification</title>
<!--
***************************************************
**** This javascript subroutine is called when
**** the form's "Certify" button is clicked. It
**** calls two subroutines, writeToFile & Launch.
**** Launch is delayed 1 second to make sure that
**** the file has had time to be written and closed.
**** Finally the window is closed
***************************************************
-->
<script type="text/javascript">
function process(data) {
writeToFile(data);
timer=setTimeout('launch()',1000)
timer=setTimeout('self.close()',1000)
}
</script>
<!--
***************************************************
**** writeToFile
**** This VBscript subroutine is called to write
**** the contents of the input text to a file.
**** In this case the file is name CERTIFY.TXT
***************************************************
-->
<script type="text/vbscript">
sub writeToFile(data)
set oFS = createobject("scripting.filesystemobject")
set oFile = oFS.opentextfile("CERTIFY.TXT", 2, true)
oFile.writeline(data)
oFile.close()
set oFile = nothing
set oFS = nothing
end sub
</script>
<!--
***************************************************
**** launch
**** This VBscript subroutine will call the COBOL
**** program CERTIFY.EXE.
***************************************************
-->
<script type="text/vbscript">
sub launch()
Dim MyObj
Set MyObj=CreateObject("WScript.Shell")
MyObj.Run "CERTIFY.EXE"
end sub
</script>
</head>
<!--
***************************************************
***** This is the HTML for the Cerification form
***************************************************
-->
<body style="background:yellow">
<h2>Master COBOL Webler Certification</h2>
ENTER Candidate's Name:<br />
<form name="formC">
<input name="candidate" type="text" size="40" maxsize="72" />
<br /><br />
<input type="button" value="Certify"
onclick="process(document.formC.candidate.value)" />
</form>
<script type="text/javascript">
document.formC.candidate.focus()
</script>
</body></html>
