<script language="VB" runat=server>
Sub Page_Load(Sender as Object, E as EventArgs)
Dim fileName as String = Request.QueryString("filename")Response.Addheader("Content-Disposition", "attachment; filename=" & fileName)
Response.ContentType = "text/whatever"
Response.WriteFile(fileName)End Sub
</script>