<% response.write "" response.write "

Legislazione

" if session("prevedi")="-" then response.write "Utente ancora non abilitato. Inviare via fax la ricevuta di pagamento, grazie (a IusOnDemand)

" else prevedi=cint(session("prevedi")) end if varADD=DateAdd("D", prevedi, Now()) Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.MapPath(dbpath) & dbname sSQL = "SELECT * FROM tavola where [datapubblicazione] <= datevalue('"&varadd&"') AND [TIPO] LIKE '%legg%' ORDER by datapubblicazione DESC" Set rs = conn.Execute(sSQL) count=0 response.write "" Do While count<10 and NOT rs.EOF count=count+1 dt=rs("datapubblicazione") dt=day(dt)&"/"&month(dt)&"/"&year(dt) response.write "" response.write "" rs.MoveNext loop response.write "
"&dt&"" riservato=ltrim(rtrim(rs(12))) dt=rs(18) if riservato="-1" then response.write "" else response.write "Free" end if response.write " "&rs(3)&"
"&rs(4)&"
" rs.Close set rs = Nothing conn.Close set conn = Nothing %>