<% Dim objDB Dim strSQL Dim objRS Set objDB = Server.CreateObject("ADODB.Connection") objDB.Open "DSN=andesimportdsn; UID=; PWD=;" strSQL = "SELECT cotizacion.* FROM cotizacion" Set objRS = objDB.Execute(strSQL) Response.Write("") Response.Write("") Response.Write("") Response.Write("") %>

 



<% Response.Write("") Response.Write("") Response.Write("") Response.Write("") Do While Not objRS.EOF %> <% objRS.MoveNext Loop Response.Write("
categoriarubroproductocantidad
<% =objRS("rubro") %> ">
<% =objRS("drubro") %> ">
<% =objRS("producto") %> ">
<% =objRS("cantidad") %> ">
") Response.Write("") Response.Write("") objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing %> <% Set objDB = Server.CreateObject("ADODB.Connection") objDB.Open "DSN=zarctecnologydsn; UID=; PWD=;" strSQL = "SELECT cliente.* FROM cliente" Set objRS = objDB.Execute(strSQL) Response.Write("") Response.Write("") Response.Write("") Response.Write("") %>

 

 



Nombre :
<% =objRS("nombre") %> ">
Apellido :
<% =objRS("apellido") %> ">
Teléfono :
<% =objRS("telefono") %> ">
Fax :
<% =objRS("fax") %> ">
Dirección :
<% =objRS("direccion") %> ">
Ciudad :
<% =objRS("ciudad") %> ">
País :
<% =objRS("pais") %> ">
Mail :
<% =objRS("mail") %> ">