<% Set objDB = Server.CreateObject("ADODB.Connection") objDB.Open "DSN=andesimportdsn; UID=; PWD=;" Set objRS = objDB.Execute("SELECT * FROM web ORDER BY web.empresa") Do While Not objRS.EOF %> <% objRS.MoveNext Loop objRS.Close Set objRS = Nothing objDB.Close Set objDB = Nothing %>
EMPRESA
RUBRO
DESCRIPCION
ENLACE
<%= objRS.Fields("empresa").Value %> <%= objRS.Fields("detalle1").Value %> <%= objRS.Fields("detalle2").Value %> "><%= objRS.Fields("URL").Value %>