|
|
| |
|
code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description. |
'**************************************
' Name: Dynamically Pass Form Variables
' through Forms
' Description:This code passes all form
' variables by creating hidden copies of e
' very form variable that was passed to it
' . This is great for gathering informatio
' n over multiples forms (i.e. Order Proce
' ssing).
' By: Chris
'
' Returns:A string representing the hidd
' en form varibles.
'
' Assumes:Active Server Pages (Tested on
' with IIS 4.0)
'
'This code is copyrighted and has ' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/xq/ASP/txtCode
' Id.6467/lngWId.4/qx/vb/scripts/ShowCode.
' htm 'for details. '**************************************
'This is the call here....
'Response.Write PassFormVariables
function PassFormVariables()
Const INPUT_START = "<INPUT type=hidden name="
Const INPUT_MID = " value="
Const INPUT_END = ">" & Chr(13) & Chr(10)
Dim var_name
Dim var_value
PassFormVariables = ""
if len(request.form) > 0 Then
For Each var_name In request.form
var_value = request.form(var_name)
PassFormVariables = PassFormVariables & _
INPUT_START & var_name & INPUT_MID & var_value & INPUT_END
Next
End if
End function
| |
Other 4 submission(s) by this author
|
|
| |
| Report Bad Submission |
|
| |
| Your Vote! |
|
See Voting Log |
| |
| Other User Comments |
2/24/2001 10:10:08 AM:jon
simple, elegant and clever
|
6/7/2001 7:21:43 AM:Sean
Hi, I am not sure if I am missing this
but where should I put this code? I
keep getting this error and I am unsure
of it ...
Microsoft VBScript
compilation error '800a0415'
Expected literal constant
/notify15/quickpage.asp, line 188
Const INPUT_END =
|
|
| Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.
|
|
