	<!--============================================================================-->
	<!--===========    Copyright Š2003 YAKOM - All rights reserved        ==========-->
	<!--===========    http://www.yakom.it ====== info@yakom.it           ==========-->
	<!--===========    YUDO - The Ultimate ASP Web Desk                   ==========-->
	<!--===========    YUDO Release:2.0Beta                               ==========-->
	<!--===========    Support forums: http://www.freedesk.it             ==========-->
	<!--============================================================================-->

<%
function csv(fields, table, criteria, order, fieldsas)
	dbselect fields, table, criteria, order
	rs.open sql, cn, 1, 3
	csv=""
	tcsv=""
	if fieldsas=0 then
		for each field in rs.fields
			tcsv = tcsv & field.name & ","
		next
	else
		for i=1 to ubound(fieldsas)
			tcsv = tcsv & fieldsas(i) & ","
		next
	end if
	tlargo=len(tcsv)
	tcsv=left(tcsv, tlargo-1)
	if not rs.eof then
		do while not rs.eof
			for i=0 to rs.fields.count-1
				val=rs(i)
				if rs(i)<>"" then
					val=replace(val, "<", "&lt;")
					val=replace(val, ">", "&gt;")
					val=replace(val, ",", "-")
					if rs.fields(i).name="xdate" or rs.fields(i).name="startdate" then val=cFecha(val)
					if rs.fields(i).name="xtime" or rs.fields(i).name="starttime" then val=cHora(val)
				else
					val=" "
				end if
				csv=csv & val & ","
			next
			largo=len(csv)
			csv=left(csv, largo-1)
			if i=rs.recordcount then
				csv=csv
			else
				csv=csv & "-vbcrlf-"
			end if
			rs.movenext
		loop
		csv=mid(csv, 1, len(csv)-8)
		csv=replace(csv, "-vbcrlf-", vbcrlf)
	end if
		csv=tcsv & vbcrlf & csv
end function
%>