<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit Response.Buffer=1 %> <% Dim Conn Set Conn = ConexionAbre Dim listado,cuan set listado = Server.CreateObject("ADODB.Recordset") listado.ActiveConnection = Conn listado.Source = sql_anuns listado.CursorType = 0 listado.CursorLocation = 2 listado.LockType = 3 listado.Open %> Búsqueda de Tiendas
 
  Enlaces  
 
<% if listado.EOF then %>

No hay enlaces

<% else %> <% While (NOT listado.EOF) %> <% listado.MoveNext() Wend %>
<% = listado("nombre")%> " class="negro3" target="_blank"><% = listado("url")%>
<% end if %>
 
                 
<% listado.Close Set listado = Nothing Conn.Close Set Conn=Nothing %>