<% RESPONSE.EXPIRES=0 %> <% informazioni="banner/" predefinita="banner/images/predefinito.gif" if Request.QueryString("action")="go" then ' routine di gestione reindirizzamento if len(Session("sponsor_banner"))>0 then sponsor=Split(Session("sponsor_banner"),"|") else dim sponsor(1) sponsor(0)=informazioni sponsor(1)=0 end if Session("sponsor_banner")="" if Len(sponsor(0))>0 then Response.Redirect(sponsor(0)) else Response.Redirect(informazioni) end if elseif Request.QueryString("action")="display" then Session("sponsor_banner")=Null dbfile=Server.MapPath("banner/banner.mdb") Set OBJdbConnection=Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile Set rs=Server.CreateObject("ADODB.Recordset") rs.ActiveConnection=OBJdbConnection rs.CursorType=1 rs.LockType=2 rs.Source="banners" rs.Open Dim url Dim img Dim ids rec_count=Rs.RecordCount ReDim url(rec_count) ReDim img(rec_count) ReDim ids(rec_count) max=0 Do until rs.EOF if rs.Fields(3).Value>0 then max=max+1 ids(max)=rs.Fields(0).Value url(max)=rs.Fields(1).Value img(max)=rs.Fields(2).Value end if rs.MoveNext loop Randomize scelto=Int(Rnd*max)+1 rs.MoveFirst Do until rs.EOF if ids(scelto)=rs.Fields(0).Value then hits=rs.Fields(3).Value-1 rs.Update 3, hits exit do end if rs.MoveNext loop if max=0 then sponsor=informazioni image=predefinita else sponsor=url(scelto) image=img(scelto) end if Session("sponsor_banner")=sponsor&"|"&ids(scelto) ReDim url(0) ReDim img(0) ReDim ids(0) Erase url Erase img Erase ids scelto=Null max=Null sponsor=Null rs.Close OBJdbConnection.Close set rs=Nothing Set OBJdbConnection=Nothing Response.ContentType="image/gif" Response.Redirect(image) ' visualizza il banner else ' routine di intercettazione furboni... ;-) Response.Redirect(informazioni) end if %>