% CRLF = Chr(13) & Chr(10) rem txtDate = Year(now) & "." & Month(now) & "." & Day(now) rem txtTime = Hour(now) & ":" & Minute(now) & ":" & Second(now) Dim HTTP_PARAM(10) HTTP_PARAM(0) = Date & " " & Time HTTP_PARAM(1) = Request.ServerVariables("REMOTE_ADDR") HTTP_PARAM(2) = Request.ServerVariables("REMOTE_HOST") HTTP_PARAM(3) = Request.ServerVariables("URL") txtLog = join(HTTP_PARAM, ";") If Session("LOG_HITS")="" Then Session("LOG_STRING") = txtLog Else Session("LOG_STRING") = Session("LOG_STRING") & CRLF & txtLog End If If Session("LOG_HITS") >= 10 Then Set FSO = CreateObject("Scripting.FileSystemObject") filename = Server.MapPath ("/admin") + "/visitor_log.txt" Set FILE = FSO.OpenTextFile( filename, 1) txtFileAll = FILE.ReadAll FILE.close Set FILE = FSO.CreateTextFile(filename, True) FILE.Write txtFileAll & Session("LOG_STRING") FILE.Write CRLF FILE.close Session("LOG_STRING") = "" Session("LOG_HITS") = 0 tempWrite = "YES" & Session("LOG_STRING") Else Session("LOG_HITS") = Session("LOG_HITS") + 1 tempWrite = "NO" & Session("LOG_STRING") End If %>
![]() |
|
7.Jän.2002 00:45 - 3,73 kg, 53 cm ...da ist es endlich soweit gewesen und ich habe mich entschieden, diese Welt zu betreten!Selbstverständlich ganz zur Freude von meiner Mami und meinem Papi. Eigentlich habe ich mich wirklich bemüht, es meiner Mami nicht zu schwer zu machen; deshalb hat es auch nur wenige Stunden gedauert. Damit es Euch nicht so schwer fällt zu warten, bis Ihr mich endlich sehen könnt, mein erster Film (gedreht am 8.Jän.2002): Und für die armen Leute unter Euch, die diesen Film leider nicht ansehen können, gibts es selbstverständlich auch einige Fotos von mir - wie ich so ganz frisch geschlüpft bin (wie immer unter: "Bilder"). Und weil Mama und Papa mich ganz besonders lieb haben, haben sie mir gleich einen ganz neuen Bereich im Internet eingerichtet. Schau doch am besten gleich vorbei! Maximilian Zone Ciao |
|