<% on error resume next %>
 

 

<% filtro=weekday(DATE(),2) dim db,rs sql = "select * from orari where giorno="& filtro Set db = Server.CreateObject("ADODB.Connection") db.Open "radioacqui", "DSN radioacqui" Set rs = Server.CreateObject("ADODB.Recordset") rs.open SQL ,db while not rs.eof if rs("ora")