<% sint=Request.Cookies("Sportivo")("sint") n1=session("nome") Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath(dbpath) & dbname prevedi=cint(session("prevedi")) varADD=DateAdd("D", prevedi, Now()) 'response.write varadd&" "&prevedi sSQL = "SELECT * FROM tavola where [datapubblicazione] <= datevalue('"&varadd&"') ORDER by datapubblicazione DESC" 'if n1<>"" then sSQL = "SELECT * FROM tavola ORDER by num DESC" Set rs = conn.Execute(sSQL) %>
<% count=0 Do While count<10 and NOT rs.EOF num=rs(0) verif=rs(14)&"" if (verif<>"" and left(verif,1)<>"-") or n1<>"" then count=count+1 num=rs(0) dt=rs(7) dt=day(dt)&"/"&month(dt)&"/"&year(dt) 'og=rs(3) 'og=day(og)&"/"&month(og)&"/"&year(og) %> <% end if rs.MoveNext loop rs.Close set rs = Nothing conn.Close set conn = Nothing %>

<%=dt%> <% riservato=ltrim(rtrim(rs(12))) dt=rs(18) ' if datediff("d",dt,date)<=0 then ' response.write "" ' else if riservato="-1" then response.write "" else response.write "Free" end if 'end if %>	<% if n1<>"" and (ltrim(verif)="" or left(ltrim(verif),1)="-") then %><% end if %> <%= rs(3)%>** (<%=rs(6)%>)
	<% if sint<>"on" then%> <%= rs(4)%> <%end if %>

<% if n1<>"" then Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath(dbpath) & dbname sSQL = "SELECT * FROM tavola ORDER by num DESC" rs.open sSQL,conn,3,3 ht= "document.writeln("""")"&vbcrlf count=0 Do While count<8 and NOT rs.EOF count=count+1 num=rs(0) titolo=rs(3) if titolo="" then count=count+1 else titolo=replace(titolo,vbcr,"") titolo=replace(titolo,vblf,"") titolo=replace(titolo,"""","'") ht=ht&"document.writeln("""")"&vbcrlf end if rs.MoveNext loop ht=ht& "document.writeln(""

"")"&vbcrlf rs.Close set rs = Nothing conn.Close set conn = Nothing 'Dim FileObject 'Set FileObject=Server.CreateObject("Scripting.FileSystemObject") 'Set OutStream=FileObject.CreateTextFile(server.MapPath("../public") & "\ilaw.js",true,0) 'Outstream.WriteLine ht 'OutStream.Close 'Set OutStream=Nothing 'Set FileObject=Nothing 'response.write "Creato ultimi" end if %>