<html>
<body>
<%
If Request.form("action") <> "" Then
Call haha()
Else
Call heihei()
End If
%>
</body>
</html>
<%
Sub haha()
Response.Write Request.Form("ppp")
End Sub
Sub heihei()
Response.Write "<form method='post' action='" & Request.ServerVariables("SCRIPT_NAME") & "'>"
Response.Write "<input type='text' name='ppp'>"
Response.Write "<input type='hidden' name='action' value='kkk'>"
Response.Write "<inputy type='submit' value='go'>"
Response.Write "</form>"
End Sub
%>