Snippet Details

Snippet 23 of 50
Previous | 21 | 22 | 23 | 24 | 25 | Next
« Skip 5 | Skip 5 »

Snippets Exchange Home » ASP » Empty RS

Submitted by :	Wil Dobson
WebSite:	The Pixel Syndicate
Snippet Date:	11 June 2003
Version:	1.0
Total Downloads:	6482
Get it :
Tutorial/Information:	Not Available
Detailed Instructions:	View
Snippet problem?:	Send Report

Description:

Empty your recordset dynamically to prevent errors.

Snippet Start:

<%
Sub rsEmpty()
	sql = "SELECT TOP 1 * FROM tblTABLENAME"

Set rs_actions = Server.CreateObject("ADODB.Recordset") 
	rs_actions.Cursorlocation = 3
	rs_actions.Open sql, objConn, 0,1
     
	Set rs_main = Server.CreateObject("ADODB.Recordset") 
	rs_main.Cursorlocation = 3
     
	For each Field in rs_actions.Fields
		rs_main.Fields.Append Field.Name,Field.Type,Field.DefinedSize,Field.Attributes
	Next
	
	rs_main.Open
	rs_main.AddNew

For each Field in rs_actions.Fields
		'Response.Write "<font size=1>" & Field.Name & " - " & Field.Type & "<br></font>"
		FieldName = Field.Name
	
		If Request(FieldName) <> "" then
			If rs_main(FieldName).Type = 3 then
				rs_main(FieldName) = CInt(Request(FieldName))
				'Type 11 is boolean and if form status is draft then this value is set to true by default and must be included here
				'manually because there is no implicit conversion from a checkbox being "on" to a boolean data type
			ElseIf rs_main(FieldName).Type = 11 then
				rs_main(FieldName) = True
			Else
				rs_main(FieldName) = CStr(Request(FieldName))
			End If
		End If
	Next  
	rs_actions.Close
End Sub 
%>

Snippet End:

::back to top::

Want to submit or track a Snippet?
Need an extension from the store?
Don't have a login?

Register Now!
Why register?

Over 100 Date/Time formats for all your needs. You can even add your own!

::This page last modified 3/29/2013 at 14:12::

Copyright © 2001-2013 DreamweaverFAQ.com All Rights Reserved.
All brands, trademarks, tutorials, extensions, code, and articles are the property of their respective owners.
A production of Site Drive Inc.
Legal Notice | Privacy Policy | Disclaimer & Notice