<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=" & Server.Mappath("../admin/11133.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" strSQL = "SELECT* FROM promociones ORDER BY remarcada DESC" Set rs = Conn.Execute(strSQL) Do While Not rs.EOF %> <% ' para evitar error no hay registros if rs("nombre") = "noborrar" then %> <% else %> <% if rs("remarcada") = "si" then %> <% else %> <% end if %>

<% if rs("remarcada") = "si" then %> <% else %> <% end if %> Nombre Promoción:	">" width="150">
<%=rs("nombre")%>
Descripción:
<%=rs("peqdescripcion")%>
Dirección:
<%=rs("direccion")%>
">

<% end if %> <% rs.MoveNext Loop Response.Write "
" rs.Close Set rs = Nothing Conn.close %>