<% 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 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 'RS.Close 'Set RS = Nothing %> <% response.write("

"&cant_registros&" PRODUCTOS DISPONIBLES EN NUESTRO CATÁLOGO

")%> *Seleccione los productos que necesite para su cotización




<% i = 1 Do While Not RS.Eof 'response.write("
") 'response.write(RS("foto")) 'response.write("
DESCRIPCION: "+RS("descripcion")+"---> ") 'response.write("PRECIO: $"&RS("precio")&"") 'response.write("OBSERVACIONES: "+RS("observaciones")+"
") response.write("
") response.write("Nro. Parte. - DESCRIPCION: "+RS("Observaciones")+" - "+RS("descripcion")+"---> PRECIO: $"&RS("precio")&"") ''response.write("DESCRIPCION: "+RS("descripcion")+"---> PRECIO: $"&RS("precio")&"") 'response.write("DESCRIPCION: "+RS("descripcion")+"---> PRECIO : $"&RS("precio")&"") 'response.write("
"&i) RS.MoveNext i= i+1 Loop oConn.Close %>


Copyright©2009 Diseño Informatico Ltda. - Todos los derechos reservados