<% 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 %> GHEM.COM - Jus: Intro
GHEM.COM - Logo

GHEM.com Site
Home
Login
 
JUS Site
Home
Bibliothek
 

Juridicum Wien

Homepage: www.juridicum.at

UE Strafrecht

Donnerstag, 17:00 - 18:00, U22

UE Einführung

Mittwoch, 16:30 - 18:00, Sem.10

Nächster Prüfungs-Termin
Einführung - 28.Jän.2001

Geplante Reihenfolge:

  • Einführung (Jän.2002)
  • Rechts-Geschichte (März 2002)
  • Römisches Recht (Juni 2002)
  • Strafrecht (Okt.2002