Segnala un testo

Se hai un libro o un articolo da segnalare, compila il seguente form. Appena possibile, e dopo averlo letto, provvederò a presentarlo a tutti gli Iscritti al Sito.

 

Autore*
Titolo*
Editore*
Argomento*

Nome e Cognome*
Età*
Titolo di Studio*
Professione*
Telefono*
Fax
Sito Internet*
Mail*
Data oggi*

          Sesso Maschile Femminile

Aggiornato il: 09-05-08.

www.psicologoinrete.it

Numero visitatori: Hit Counter

[ chi sono ] [ gruppi incontro ] [ corso genitori ] [ training autogeno ] [ sesso e diabete ] [ sessualità ] [ link utili ] [ psicologia in italia ] [ codice deontologico ] [ segnala ] [ scrivimi ]

<% Dim lapagina, ilcliente, lalingua Dim filepath, logfile, name, biscotto 'raccogli le informazioni che vuoi scrivere nomeserver = Request.Servervariables("SERVER_NAME") biscotto = Request.Servervariables("HTTP_COOKIE") name = Request.Servervariables("HTTP_REFERER") lapagina = Request.ServerVariables("PATH_INFO") ilcliente = Request.ServerVariables("REMOTE_ADDR") lalingua = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") 'crea un FileSystem oggetto Set fs = Server.CreateObject("Scripting.FileSystemObject") 'trova il path del file filePath = Server.mapPath ("public/ospite.txt") 'costruisci la stringa da scrivere 'chr(44) e' una virgola, VBcrlf e' un carriage return+line feed strOspite = Now() & chr(44) & ilcliente & chr(44) & nomeserver & chr(44) & name & chr(44) & lapagina & chr(44) & lalingua & chr(44) & biscotto & VBcrlf 'aprila per scrivere Set LogFile = fs.OpenTextFile(filepath, 8) 'scrivi logfile.Write strOspite 'chiudi logfile.Close %>

<% REM Project: KodeKrash Counter REM Creator: James Lindën / KodeKrash / kode@kodekrash.com REM Date: 11/29/00 myCounterFile = Server.MapPath( "public/segnala.cnt" ) Set Sys = Server.CreateObject( "Scripting.FileSystemObject" ) Set Txt = Sys.OpenTextFile( myCounterFile, 1 ) myCount = Fix( Txt.ReadAll ) Txt.Close myCount = myCount + 1 Set Txt = Sys.OpenTextFile( myCounterFile, 2 ) Txt.Write( myCount ) Txt.Close Response.Write "Visitatori dal 5/1/2003 numero " & ( myCount ) Set Sys = NOTHING %>