<%@Page Language="VB" Debug="true" %>

<script runat="server">
Sub Page_Load()

 Dim oInput As HtmlInputHidden
 Dim sItem As String

 For Each sItem in Request.QueryString
   oInput = New HtmlInputHidden()
   oInput.ID = sItem
   oInput.Value = Server.HtmlEncode(Request.QueryString(sItem))
   phForm.Controls.Add(oInput)
 Next

End Sub
</script>

<!------------------------------------------------------------->

<html>
<head>
<title>Submitting Values...</title>

<script language="JavaScript">
  function submitForm() {
    document.forms[0].submit()
  }
</script>
</head>

<body onload="submitForm()">

<form action="catchrequest.aspx" method="post">

  <asp:PlaceHolder id="phForm" runat="server" />

  <noscript>
    <input type="submit" value="Click to continue" />
  </noscript>

</form>

</body>
</html>