Contents of template.asp:
<html> <head> <!--- Client side scripts go here (VBScript or Javascript)---> <script language="VBScript"> <!--- sub show_pass_in_span temp=document.passform.pn.value passnum.innerHtml=temp td.innerHtml=cstr(now) end sub ---> </script> <!------ end of client side script ---> </head> <body onLoad="show_pass_in_span"> <Table border="1"> <tr> <td valign='middle' bgcolor='#999999'> <img src="captsm.gif"> </td> <td valign='middle' bgcolor='#999999'> <center> <font color="#ffffff"> <font face="Comic Sans MS"> <br> <b>A Structural Template for *.asp</b> <br> This example is a pass counter <br> </td> </tr> </table> <p> <form name="passform" method="GET" action="template.asp"> Current pass is: <b><SPAN id="passnum"></SPAN></b> <p> Time-Date is: <SPAN id="td"></SPAN> <% dim get_pass sub pass1 response.write "<input type='hidden' name='pn' value='1'>" end sub sub pass2 response.write "<input type='hidden' name='pn' value='2'>" end sub sub pass3 response.write "<input type='hidden' name='pn' value='3'>" end sub sub pass4 response.write "<input type='hidden' name='pn' value='4'>" end sub sub pass5_or_more get_pass=cint(get_pass)+1 response.write "<input type='hidden' name='pn' value='" response.write cstr(get_pass) response.write "'>" end sub ' '*** Top of Main ' get_pass=Request.Querystring("pn") select case get_pass case "" call pass1 case "1" call pass2 case "2" call pass3 case "3" call pass4 case else call pass5_or_more end select %> <p> <input type="submit"> </form> <hr> <% response.write "<b>Normal Termination -- " response.write cstr(now) %> </body> </html>
***** end of file *** printed: 90 lines on: 11/23/2009 6:00:33 AM