domani me ne mostrerà 2, perché entrambi soddisfano i requisiti.

codice:
sql = "SELECT * FROM video ORDER BY data DESC"
    SET RS = Conn.Execute(sql)
    While Not RS.EOF
    
    adesso = now()
    data = RS("data")
    titolo = RS("titolo")
    video = RS("video")
    
    confronto = adesso - data
    
    If confronto  >= 0 Then
        Response.Write "<section id=""striscia-video-2021"">"
        Response.Write "<div class=""container-fluid"">"
        Response.Write "<div class=""box-video-2021"">"
        Response.Write "<div class=""row"">"
        Response.Write "<div class=""col-xs-12 col-sm-12 col-md-12 col-lg-12 row-gallery-partner col-centered-partners"">"
        Response.Write "<div class=""schede-partners-dettaglio"">"
        Response.Write "<h2 class=""agenda1 text-center"">"
        Response.Write titolo
        Response.Write "</h2>"
        Response.Write "<div class=""embed-responsive embed-responsive-16by9"">"
        Response.Write "<iframe src=""//player.vimeo.com/video/"
        Response.Write video
        Response.Write """ webkitallowfullscreen mozallowfullscreen allowfullscreen></iframe></div>"           
        Response.Write "</div>"
        Response.Write " </div>"
        Response.Write "</div>"
        Response.Write "</div>"
        Response.Write "</div>"
        Response.Write "</section>"
    End If
    
    RS.MoveNext
    Wend