Try this, it uses a dictionary object
Sub Setattributes
' Declare all local varibles.
Dim strFieldName
' Create a Dictionary named attribute.
Set attributes = Server.CreateObject("Scripting.Dictionary")
' Fill the Dictonary with form field names(keys) and form field values(items)
For each strFieldName in Request.Form
attributes.Add strFieldName, Request.Form(strFieldName)
next
' Fill the Dictonary with Query String names(keys) and Query String values(items)
For each strFieldName in Request.QueryString
attributes.Add strFieldName, Request.QueryString(strFieldName)
next
' Sets fuseaction to default if not passed
If Not(attributes.Exists("fuseaction")) Then
attributes.Add "fuseaction", "default"
End If
End Sub
for info on dictionary objects, I suggest -
http://msdn.microsoft.com/scripting/default.htm?/scripting/vbscript/
------Original Message------
From: Jeffrey Marsh <[EMAIL PROTECTED]>
To: Fusebox <[EMAIL PROTECTED]>
Sent: November 19, 2000 2:26:27 AM GMT
Subject: FormURL2Attributes (ASP version)
Does anybody have an ASP version of the FormURL2Attributes.cfm tag? I'm
trying to convert a CF fusebox app to ASP fusebox. I'm a newbie to ASP and
would not like to reinvent the wheel, especially since I'm winging it right
now. If anybody has such a file, I would really appreciate a copy. It might
also be nice to post it at fusebox.org. Thanks.
--
Jeffrey B. Marsh
Amateurs built the Ark.
Professionals built the Titanic.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Structure your ColdFusion code with Fusebox. Get the official book at
http://www.fusionauthority.com/bkinfo.cfm
Archives: http://www.mail-archive.com/[email protected]/
Unsubscribe: http://www.houseoffusion.com/index.cfm?sidebar=lists
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Structure your ColdFusion code with Fusebox. Get the official book at
http://www.fusionauthority.com/bkinfo.cfm
Archives: http://www.mail-archive.com/[email protected]/
Unsubscribe: http://www.houseoffusion.com/index.cfm?sidebar=lists
