Untitled

	function run_proc(byref cmd, proc_name, exec_type)
		dim bool, member, param
		
		bool = true
		cmd.parameters.refresh
		
		for member in cmd.parameters
			param = cmd.parameters(member)
			if not isempty( request( replace("@", "", member) ) ) then
				cmd.parameters(member) = request( replace("@", "", member) )
			end if
		next
		
		cmd.execute , , exec_type
		
		run_proc = bool
	end function

	dim proc_success
	
	proc_success = run_proc(adoCmd, "sp_myProc", adExecuteNoRecords)