| 
 Para anunciarse vaya a la sección del menú ANUNCIARSE. 
      <% 
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_Command = Server.CreateObject ("ADODB.Command")
Ob_Conn.Open "zonesrozas"
Ob_Command.ActiveConnection = Ob_Conn
Ob_Command.CommandType = adCmdText
Sql= "SELECT * FROM anunciosgratis where Tipo='Bingos' order by DNI desc"
Ob_Command.CommandText = Sql
SET Ob_RS = Ob_Command.Execute () %> 
           
            <% DO UNTIL Ob_RS.Eof %>
            
            <%	Ob_RS.MoveNext
LOOP 
Ob_RS.Close
Ob_Conn.Close %>| 
                 
                  | <%= Ob_RS ("Nombre") %>, <%= Ob_RS ("Tipo") %> <%= Ob_RS ("Opciones") %>. 
                       Tel:  <%= Ob_RS ("Telefono") %> 
                       Tel(2):  <%= Ob_RS ("Telefono2") %> 
                      - <%= Ob_RS("Fecha")%> 
                    
                    
                      Dirección: <%= Ob_RS("Direccion") %> 
                      - Mail: <%= Ob_RS ("Mail")%> |   
                  | <%= Ob_RS ("Texto") %> # Ref : 
                      <%= Ob_RS("DNI")%>
 |  |   Cualquier sugerencia para mejorar nuestros servicios será bien recibida, 
        rellene nuestro formulario CONSEJOS,
         para que podamos mejorar. Gracias.  
 
 |