<% font=request("font") if font="" then font="'Times New Roman'" %> <% Dim nomefile, filestream Set objFile = CreateObject("Scripting.FileSystemObject") nomefile = Server.MapPath(".") & "\visite.txt" 'se il file non esiste, crealo if not objFile.FileExists(nomefile) then Set filestream = objFile.OpenTextFile(nomefile, 2, true) filestream.WriteLine("0") end if 'legge il numero attuale di visite Set filestream = objFile.OpenTextFile(nomefile, 1, true) Dim visite visite = filestream.ReadLine() visite = clng(visite) filestream.Close if request("bt")<>"" then 'se non � ancora presente la variabile di sessione 'if Session("visiting")<>1 then ' Session("visiting") = 1 'crea la variabile di sessione visite = visite + 1 'incrementa di uno gli accessi al sito 'end if 'scrive nel file il valore aggiornato di visite Set filestream = objFile.CreateTextFile(nomefile, true) filestream.WriteLine(visite) filestream.Close end if Set filestream = Nothing Set objFile = Nothing 'visualizza sul browser il numero totale di visite 'Response.Write "Numero visite: " & visite lettera=request("l") if lettera="" then lettera="s" if lettera=":" then %> <% end if if font="Webdings" then %> <% end if %>

Gioca con noi e crea il tuo logo in un secondo,
risparmi fino a 200.000 € !!!

inserisci qui la tua iniziale

<%if lettera=":" then%>
riflesso
<%end if%>
Condividi
 
 
<% if lettera=":" then %>
 
<% end if %>
<% x=visite*200000 x=formatnumber(x,0) x=replace(x,",",".") %>
logo
logo

La pagina vuole essere solo un modo scherzoso per condividere una notizia e non intende essere nè offensiva nè denigratoria verso il lavoro altrui

<% if lettera=":" then %> <% end if %>