PK

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

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

<%Response.Buffer = TRUE
Response.CharSet = "ISO-8859-1"
Response.CodePage = 0
Response.ContentType = "text/csv"
Response.AddHeader "Content-Disposition", "attachment; filename=clientes_web.csv"

Server.ScriptTimeout = 1200%>

<%dim csv_srt0,csv_srt

csv_srt0 = "nombre,,,,,,,,,,,,,,,,,,,,,,,,,,,,email,,,,telefono"
csv_srt = ""
         
rs.open "SELECT * FROM Clientes ORDER BY idcliente",conn,3,1
if not rs.EOF then
	rs.movefirst
	 do until rs.EOF
		 csv_srt= csv_srt0
	 	csv_srt = replace(csv_srt,"nombre",rs("cli_nombre") & "")
		csv_srt = replace(csv_srt,"email",rs("cli_email") & "")
		csv_srt = replace(csv_srt,"telefono",rs("cli_telefono") & "")
		response.Write(csv_srt + vbCrLf)
	 rs.movenext
	  loop
end if
rs.close

rs.open "SELECT * FROM Pedidos ORDER BY idpedido DESC",conn,3,1
if not rs.EOF then
	rs.movefirst
	 do until rs.EOF
		 csv_srt= csv_srt0
	 	csv_srt = replace(csv_srt,"nombre",rs("ped_nombre") & "")
		csv_srt = replace(csv_srt,"email",rs("ped_email") & "")
		csv_srt = replace(csv_srt,"telefono",rs("ped_telefono") & "")
		response.Write(csv_srt + vbCrLf)
	 rs.movenext
	  loop
end if
rs.close%>

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

PK 99