PK

<!--#include file="includes/openconn.asp" -->

<!--#include file="includes/checkadmin3.asp" -->

<%Response.Buffer = TRUE
Response.CharSet = "ISO-8859-1"
Response.CodePage = 0
Response.ContentType = "application/csv"
Response.AddHeader "Content-Disposition", "attachment; filename=LISTADEPRECIOS_" & year(now()) & "-" & month(now()) & "-" & day(now()) & ".csv"

Server.ScriptTimeout = 1200

rs.open "SELECT * FROM Q_articulos ORDER BY sec_nombre,cat_nombre,art_nombre",conn,3,1
if not rs.eof then
	rs.movefirst%>Id;Seccion;Categoria;Nombre;Presentacion;Precio_compra;Precio_venta;Precio_mayorista;Stock;Venta_unidad;Unidades_caja<%=chr(13)%><%
	dim usuarios,ccode
	usuarios=0
	do until rs.eof%><%=rs("idarticulo")%>;<%=rs("sec_nombre")%>;<%=rs("cat_nombre")%>;<%=rs("art_nombre")%>;<%=rs("art_presentacion")%>;<%=rs("art_precio_compra")%>;<%=rs("art_precio")%>;<%=rs("art_precio_may")%>;<%=rs("art_stock")%>;<%if rs("art_ventaunitaria") then response.Write("SI")%>;<%=rs("art_unidadespc")%><%=chr(13)%><%rs.movenext
		'response.Flush()
	loop
else%>
No hay Articulos
<%end if
rs.close%>		

<!--#include file="includes/closeconn.asp" -->

PK 99