PK

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

<%''Response.Buffer = TRUE
Response.CharSet = "ISO-8859-1"
Response.CodePage = 0
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=Fe-cort_" & year(now()) & "-" & month(now()) & "-" & day(now()) & ".xls"

Server.ScriptTimeout = 1200%>

<html>
<meta http-equiv="Content-Type" content="charset=ISO-8859-1" />

<body name="Precios" id="Precios">

<%dim sqlstr
			  sqlstr = "SELECT * FROM Q_articulos ORDER BY sec_nombre,cat_nombre,art_nombre"
			  
			  if sqlstr <> "" then%>
      
	          <%rs.open sqlstr,conn,3,1
			if not rs.eof then
				rs.movefirst%>

				  <table cellpadding="0" cellspacing="0" name="Precios" id="Precios">
				  <tr>
					<th bgcolor="#CCCCCC">Id</th>
					<th bgcolor="#CCCCCC">Seccion</th>
					<th bgcolor="#CCCCCC">Categoria</th>                    
					<th bgcolor="#CCCCCC">Marca</th>                    
					<th bgcolor="#CCCCCC">Nombre</th>                    
					<th bgcolor="#CCCCCC">Presentacion</th>                    
					<th bgcolor="#CCCCCC">UnidadesPC</th>                    
                    <th bgcolor="#CCCCCC">Precio</th>                    
					<th bgcolor="#CCCCCC">Stock</th>    
					<th bgcolor="#CCCCCC">Agotado</th>                                     
					<th bgcolor="#CCCCCC">Minimo</th>                    
					<th bgcolor="#CCCCCC">VentaUnitaria</th>                    
					<th bgcolor="#CCCCCC">A pedido</th>                    
					<th bgcolor="#CCCCCC">Publicado</th>                    
					<th bgcolor="#CCCCCC">Oferta</th>                    
					<th bgcolor="#CCCCCC">Novedad</th>                    
					<th bgcolor="#CCCCCC">Quitar</th>                    
				</tr>
				<%dim usuarios,ccode
				usuarios=0
				do until rs.eof%>
				  <tr>
					<td><%=rs("idarticulo")%></td>
					<td><%=rs("sec_nombre")%></td>
					<td><%=rs("cat_nombre")%></td>
					<td><%=rs("mar_nombre")%></td>
					<td><%=rs("art_nombre")%></td>
					<td><%=rs("art_presentacion")%></td>
					<td><%=rs("art_unidadespc")%></td>
					<td><%=rs("art_precio")%></td>
					<td><%=rs("art_stock")%></td>
   					<td><%if rs("art_agotado") then response.Write("SI")%></td>
                    <td><%=rs("art_stock_minimo")%></td>
					<td><%if rs("art_ventaunitaria") then response.Write("SI")%></td>
					<td><%if rs("art_apedido") then response.Write("SI")%></td>
					<td><%if rs("art_publicado") then response.Write("SI")%></td>
					<td><%if rs("art_oferta") then response.Write("SI")%></td>
					<td><%if rs("art_novedad") then response.Write("SI")%></td>
					<td bgcolor="#FFDDDD"></td>
					</tr>
					<%rs.movenext
					response.Flush()
				loop%>

			  </table>
				
				<%else%>
<table cellpadding="0" cellspacing="0">
					<tr>
					  <td><font color="#E7038C">No hay Articulos</font></td>
				  </tr>
			  </table>
			  <%end if
				rs.close%>
		
		<%end if%>		

</body>
</html>

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

PK 99