% 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 %>
![]() |
|
NURMELA.CH - Design-Versionen1. Blaues Firmen-Gebäude 2. Rote Häuser - mittig 3. Rote Häuser - rechtsbündig
AllgemeinesFarben Die Farben sind recht ungewöhnlich, kommen aber meiner Ansicht sehr gut (kann man auch gut mit Deinem Unternehmen verbinden: GRÜN = biologische, sauber, reine Arbeit) Texte Sind wie gesagt reine "Blindtexte". Originale müssen wir erarbeiten, wenn die genauen Inhalte kennen. Aber das geht schon recht schnell! "Hinweis-Box" Diese Box (im jeweiligen Bild rechts) ist optional. WOllte hier nur zeigen, wie das aussehen könnte, wenn DU so etwas benötigst. |
|