<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=now
end sub
--->
</script>
<!------ end of client side script --->
</head>
<body onLoad="show_pass_in_span">
This is a pass counter
<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>
</body>
</html>