<% Dim oConn,strSQL, objRS Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "DSN=andesimportdsn; UID=; PWD=;" strSQL = "SELECT DISTINCT * FROM producto order by producto.categoria, producto.rubro, producto.drubro, producto.subgrupo, producto.dproducto, producto.codigo_2, producto.producto, producto.imagen" Set objRS = oConn.Execute(strSQL) Response.Write("") 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("
BorrarCategoriaGrupoCodigoNombre
">BORRAR
<% =objRS("rubro") %>
<% =objRS("drubro") %>
<% =objRS("dproducto") %>
<% =objRS("producto") %>
") Response.Write("") Response.Write("") oConn.Close set objRS = nothing set oConn = nothing %>