|
|
|
<%
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")%>
|
|
<% Do While Not RS.Eof
response.write("| "+RS("foto")+" | DESCRIPCION : "+RS("descripcion")+"
PRECIO : $"&RS("Precio")&" | ")
RS.MoveNext
Loop
oConn.Close
%>
|
 |
|
|
Copyright©2009 Diseño Informatico Ltda. - Todos los derechos reservados |
|
