<% Dim oConn, RS Set oConn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") oConn.Open "Data Source=" & Server.Mappath("./miguel.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" sql = "select * from lista where serial >=400 and tipo=53 order by serial" RS.Open sql, oConn, 3, 3 If Not RS.Eof Then matriz_registros = RS.getrows cant_registros = UBound(matriz_registros,2) + 1 set RS = oConn.Execute(sql) End If %>

<%response.write("

"&cant_registros&" PARTES Y PORTATILES EN NUESTRO INVENTARIO

")%>

ASUS TABLET 10" 2GB. 3200GB.HD

$999.000.00

ASUS TABLET 10"
<% Do While Not RS.Eof response.write("") RS.MoveNext Loop oConn.Close %>
"+RS("foto")+"DESCRIPCION : "+RS("descripcion")+"
PRECIO : $"&RS("Precio")&"


Copyright©2010 Diseño Informatico S.A.S. - Todos los derechos reservados/span>