Dynamic Form Field Capture

This code will caputre all fields in an HTML form and create a template for a VBScript function that passes the fields to a stored procedure.

Original Author: Scott King

Assumptions

To use this file: Set the action on your form to point to this file.
You will then get a formatted list to process your form in VBScript and
a matching SQL Stored Procedure field list. Ex: action="get_fields.asp" target=_blank

Warning: You should have your form fields named the same as your database
fields or this script won't really work for you... Have Fun!

Code

<%@Language="VBScript"%> Dynamic Form Field Creation To use this file: Set the action on your form to point to this file. You will then get a formatted list to process your form in VBScript and a matching SQL Stored Procedure field list. Ex: action="get_fields.asp" target=_blank Warning: You should have your form fields named the same as your database fields or this script won't really work for you... Have Fun!










 
	VBScript Form Fields.....
	<br/>	<%<br/>	For i = 1 to Request.Form.Count<br/>	  fieldName = Request.Form.Key(i)<br/>	  fieldValue = Request.Form.Item(i) <br/>	  If i Mod 3 = 0 then<br/>			Response.Write(" Request.Form(""& fieldName& "") & "','" & _ "&vbCrLf)<br/>	  Else<br/>			Response.Write(" Request.Form(""& fieldName& "") & "','" &")<br/>		End If<br/>	Next<br/>	%><br/>	
 
 
	SQL Stored Procedure Fields.....
	<br/>	<%<br/>	For ix = 1 to Request.Form.Count<br/>	  fieldName = Request.Form.Key(ix)<br/>	  fieldValue = Request.Form.Item(ix) <br/>	  Response.Write("@"&fieldName&" varchar(50),"&vbCrLf)<br/>	Next<br/>	%><br/>	
  
	SQL Stored Procedure Update Fields.....
	<br/>		<%<br/>		For ix = 1 to Request.Form.Count<br/>		  fieldName = Request.Form.Key(ix)<br/>		  fieldValue = Request.Form.Item(ix) <br/>		  Response.Write(fieldname & " = @"&fieldName&","&vbCrLf)<br/>		Next<br/>		%><br/>

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 127 times

Comments

No comments have been added for this post.

You must be logged in to make a comment.

VBScript Form Fields..... <br/> <%<br/> For i = 1 to Request.Form.Count<br/> fieldName = Request.Form.Key(i)<br/> fieldValue = Request.Form.Item(i) <br/> If i Mod 3 = 0 then<br/> Response.Write(" Request.Form(""& fieldName& "") & "','" & _ "&vbCrLf)<br/> Else<br/> Response.Write(" Request.Form(""& fieldName& "") & "','" &")<br/> End If<br/> Next<br/> %><br/>
SQL Stored Procedure Fields..... <br/> <%<br/> For ix = 1 to Request.Form.Count<br/> fieldName = Request.Form.Key(ix)<br/> fieldValue = Request.Form.Item(ix) <br/> Response.Write("@"&fieldName&" varchar(50),"&vbCrLf)<br/> Next<br/> %><br/>	SQL Stored Procedure Update Fields..... <br/> <%<br/> For ix = 1 to Request.Form.Count<br/> fieldName = Request.Form.Key(ix)<br/> fieldValue = Request.Form.Item(ix) <br/> Response.Write(fieldname & " = @"&fieldName&","&vbCrLf)<br/> Next<br/> %><br/>