<%
GununTarihi = Date()

Set Rs = Server.CreateObject("Adodb.Recordset")
    SQLs = ("SELECT * FROM tbl_videolar WHERE GosterimTarihi='" & GununTarihi & "';")
Rs.Open (SQLs)
%>

Video tablosunda GosterimTarihi olarak bir sütun açarsın , videoları eklerken hagi tarihte gösterilmesini istiyorsan girersin, o tarih geldiğinde Günün videosu görünür.

Anladınız umarım