ASD PONTASSIEVE CALCIO ASSOCIAZIONE SPORTIVA DILETTANTISTICA GIOCO CALCIO CAMPIONATO NAZIONALE ITALIANO DILETTANTI SCUOLA CALCIO VALDISIEVE GIOCATORE GIOCATORI CALENDARIO CALENDARI PARTITE CLASSIFICHE NOTIZIE NEWS CALCIO STAGIONE PRIMA SQUADRA GIOVANILI SCUOLA CALCIO ITALIA TOSCANA FIRENZE VALDISIEVE VALDARNO MUGELLO PONTASSIEVE SIEVEONLINE NETWORK  

<% Set cona = Server.CreateObject("ADODB.Connection") Set ra = Server.CreateObject("ADODB.Recordset") cona.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("inclusioni/menu/admin/mdb/database/catalogo.mdb") ra.Open "select * from notizie where scadenza > Date() order by ordine;",cona,3,3 if not ra.eof then do while not ra.eof img=ra("immagine") %>     " href="<%=ra("url")%>"><%=ra("titolo")%> <% ra.movenext loop end if ra.close cona.close %>

<% Set connw = Server.CreateObject("ADODB.Connection") Set rnw= Server.CreateObject("ADODB.Recordset") Set rnw2= Server.CreateObject("ADODB.Recordset") connw.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("news/admin/mdb/database/catalogo.mdb") rnw2.Open "select * from argomenti ORDER BY ordine",connw if not rnw2.eof then stringa="" do while not rnw2.eof ''''''''''rnw.Open "delete * FROM Notizie where scadenza < date() ;",connw rnw.Open "select top 1 * from notizie where idnome="&rnw2("idnome")&" ORDER BY idnotizia desc ",connw if not rnw.eof then do while not rnw.eof stringa =stringa & "" & "" & rnw.fields("titolo") & "       " stringa = Replace ( stringa, "'", "“" ) rnw.movenext loop end if rnw.close rnw2.movenext loop end if rnw2.close connw.close %><%=stringa%>

<%'@ Language="VBSCRIPT" %><% session.LCID =1040 'dim dbpath, BannConn, alltakenid, allexpiredid, bannpathbig, bannpathsmall dim BannConn, alltakenid, allexpiredid, bannpathbig, bannpathlarge ,bannpathsmall,expdata,doneid,expiredid,numero,maxnumber,intrandom,taken,banner ' --PERCORSO FILES bannpathbig = "bannerbox/admin/mdb/banners/" bannpathsmall = "bannerbox/admin/mdb/banners/" bannpathlarge = "bannerbox/admin/mdb/banners/" ' --PERCORSO DATABASE dbpath = Server.MapPath("bannerbox/admin/mdb/database/banner.mdb") ' ------------------------------------------------------------------- ' PERCORSI STORICI ' --PERCORSO FILES ' bannpathbig = "http://www.sieveonline.net/bannerbox/_hiper/big/" ' bannpathsmall = "http://www.sieveonline.net/bannerbox/_hiper/sml/" ' bannpathlarge = "http://www.sieveonline.net/bannerbox/_hiper/large/" ' bannpathbig = "c:\inetpub\sieveonline.net\bannerbox\_hiper\big\" ' bannpathsmall = "c:\inetpub\sieveonline.net\bannerbox\_hiper\sml\" ' bannpathlarge = "c:\inetpub\sieveonline.net\bannerbox\_hiper\large\" ' --PERCORSO DATABASE 'dbpath = "c:\inetpub\sieveonline.net\bannerbox\bannermdb\banner.mdb" ' -- Sub ConnBannerDB() Set BannConn = Server.CreateObject("ADODB.Connection") BannConn.ConnectionTimeout = 1 BannConn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & dbpath BannConn.Open If Err.number <> 0 Then ArchiviaErrore(Err) Response.End End If End Sub Sub DiscBannerDB() BannConn.close Set BannConn = Nothing If Err.Number <> 0 Then ArchiviaErrore(Err) Response.End End If End Sub ' Esegue una query al DB con risultato Function getRss(sql) Dim tmpRs Set tmpRs = CreateObject("ADODB.RecordSet") With tmpRs .CursorLocation = 2 .CursorType = 3 set .ActiveConnection = BannConn .Source = sql .Open End With If Err.number = 0 Then Set getRss = tmpRs Else Set getRss = Nothing End If End Function ' Esegue una query al DB Function RunSQL(sql) On Error Resume Next BannConn.Execute(sql) if err.number = 0 Then RunSQL = True else Response.Write sql Session("Error") = err.Description Session("ErrNumber") = err.number RunSQL = False end if End Function Function getBanner(classe, dimensione) ConnBannerDB() sql = "SELECT bannerid, scadenza FROM banners WHERE classe =" & classe & " AND dimensione = '" & dimensione & "'" Set expdata = getRss(sql) allexpiredid="" with expdata do while not .Eof if DateDiff("d", Now, .Fields("scadenza").Value) < 0 then allexpiredid = allexpiredid & .Fields("bannerid").Value & ";" end if .MoveNext Loop end with sql = "SELECT bannerid FROM banners WHERE classe =" & classe & " AND dimensione = '" & dimensione & "'" doneid = split(alltakenid, ";") for i = 0 to (ubound(doneid) - 1) sql = sql & " AND bannerid <> " & doneid(i) next expiredid = split(allexpiredid, ";") for i = 0 to (ubound(expiredid) - 1) sql = sql & " AND bannerid <> " & expiredid(i) next Set numero = getRss(sql) if (numero.RecordCount = 0) then exit function end if MaxNumber = (numero.RecordCount) 'numero di quelli ancora da poter scegliere Randomize 'To make sure its random intrandom = Int(MaxNumber * Rnd) + 1 i = 0 with numero do while not .Eof i = i + 1 if (i = intrandom) then taken = .Fields("bannerid").Value end if .MoveNext Loop end with sql = "SELECT file, link, alt, target FROM banners WHERE bannerid = " & taken & " AND classe =" & classe & " AND dimensione ='" & dimensione & "'" for i = 0 to (ubound(doneid) - 1) sql = sql & " AND bannerid <> " & doneid(i) next Set banner = getRss(sql) if (dimensione = "big") then response.write "" else if (dimensione = "small") then response.write "" else if (dimensione = "large") then response.write "" end if end if end if alltakenid = alltakenid & taken & ";" DiscBannerDB() End Function ' --STRINGA DA INSERIRE NEL TESTO PER L'INSERIMENTO DEL BANNER ' Call getBanner("0","small") ' -- dim rsz, conndx,contas,contab Set conndx = Server.CreateObject("ADODB.Connection") conndx.ConnectionTimeout = 10 conndx.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & dbpath conndx.Open Set rsz = Server.CreateObject("ADODB.Recordset") 'rsz.open "Select * from banners where scadenza>Date()",Conndx rsz.open "Select * from banners",Conndx contas=0 contab=0 if not rsz.eof then do while not rsz.eof if DateDiff("d", Date(), rsz("scadenza")) > 0 then if rsz("dimensione")="small" then contas=Cint(contas)+1 end if if rsz("dimensione")="big" then contab=Cint(contab)+1 end if end if rsz.movenext loop end if rsz.close conndx.close %>
 
<% Set cona = Server.CreateObject("ADODB.Connection") Set ra = Server.CreateObject("ADODB.Recordset") cona.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("inclusioni/primo_piano/admin/mdb/database/catalogo.mdb") ra.Open "select * from notizie where scadenza > Date() order by ordine;",cona,3,3 if not ra.eof then do while not ra.eof img=ra("immagine") url=ra("url") %> <% ra.movenext loop end if ra.close cona.close %>

<% if img="" or isnull(img)=true then%><%if url="" or isnull(url)=true then %><%=ra("titolo")%><%else%>" class="primopiano" href="<%=ra("url")%>"><%=ra("titolo")%><%end if%><%else%><%if url="" or isnull(url)=true then %>" hspace="0" border="0" alt="<%=ra("titolo")%>"><%else%>" target="<%=ra("target")%>">" hspace="0" border="0" alt="<%=ra("titolo")%>"><%end if%><%end if%>

<% idcat=request("idcat") idarticolo=request("idarticolo") dim i,cone,ra,rp Dim objRecordset Dim strSQL Set cone = Server.CreateObject("ADODB.Connection") Set ra = Server.CreateObject("ADODB.Recordset") Set rp = Server.CreateObject("ADODB.Recordset") cone.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("inclusioni/banners/admin/mdb/database/catalogo.mdb") Function getRS(sql) Dim tmpRs Set tmpRs = CreateObject("ADODB.RecordSet") With tmpRs .CursorLocation = 2 .CursorType = 3 set .ActiveConnection = cone .Source = sql .Open End With If Err.number = 0 Then Set getRs = tmpRs Else Set getRs = Nothing End If End Function Function RunSQL(sql) On Error Resume Next cone.Execute(sql) if err.number = 0 Then RunSQL = True else Response.Write sql Session("Error") = err.Description Session("ErrNumber") = err.number RunSQL = False end if End Function %> <% rp.Open "select * from articoli WHERE idcateg=1 order by ordine ;",cone,3,3 if not rp.eof then %> <% else %> <% end if rp.close %>
<% do while not rp.eof img=rp("immagine") idarticolo=rp("idarticolo") desart=rp("desc01") link=rp("link") target=rp("target") count=cint(count)+1 if cint(count)=1 then %> <% end if if cint(count)<4 then ''''''''''''''''''''''''' 'IMMAGINE MINIATURA INIZIO '''''''''''''''''''''''''' %> <% ''''''''''''''''''''''''' 'IMMAGINE MINIATURA FINE ''''''''''''''''''''''''' end if if cint(count)=3 then count=0 %> <% end if rp.movenext loop %>
<% if cint(count)<3 then end if %>

La sezione č in allestimento.