<% Sub LogActiveUser Dim strActiveUserList Dim intUserStart, intUserEnd Dim strUser Dim strDate strActiveUserList = Application("ActiveUserList") If Instr(1, strActiveUserList, Session.SessionID) > 0 Then Application.Lock intUserStart = Instr(1, strActiveUserList, Session.SessionID) intUserEnd = Instr(intUserStart, strActiveUserList, "|") strUser = Mid(strActiveUserList, intUserStart, intUserEnd - intUserStart) strActiveUserList = Replace(strActiveUserList, strUser, Session.SessionID & ":" & Now()) Application("ActiveUserList") = strActiveUserList Application.UnLock Else Application.Lock Application("ActiveUsers") = CInt(Application("ActiveUsers")) + 1 Application("ActiveUserList") = Application("ActiveUserList") & Session.SessionID & ":" & Now() & "|" Application.UnLock End If End Sub Sub ActiveUserCleanup Dim ix Dim intUsers Dim strActiveUserList Dim aActiveUsers Dim intActiveUserCleanupTime Dim intActiveUserTimeout intActiveUserCleanupTime = 1 'In minutes, how often should the ActiveUserList be cleaned up. intActiveUserTimeout = 20 'In minutes, how long before a User is considered Inactive and is deleted from ActiveUserList If Application("ActiveUserList") = "" Then Exit Sub If DateDiff("n", Application("ActiveUsersLastCleanup"), Now()) > intActiveUserCleanupTime Then Application.Lock Application("ActiveUsersLastCleanup") = Now() Application.Unlock intUsers = 0 strActiveUserList = Application("ActiveUserList") strActiveUserList = Left(strActiveUserList, Len(strActiveUserList) - 1) aActiveUsers = Split(strActiveUserList, "|") For ix = 0 To UBound(aActiveUsers) If DateDiff("n", Mid(aActiveUsers(ix), Instr(1, aActiveUsers(ix), ":") + 1, Len(aActiveUsers(ix))), Now()) > intActiveUserTimeout Then aActiveUsers(ix) = "XXXX" Else intUsers = intUsers + 1 End If Next strActiveUserList = Join(aActiveUsers, "|") & "|" strActiveUserList = Replace(strActiveUserList, "XXXX|", "") Application.Lock Application("ActiveUserList") = strActiveUserList Application("ActiveUsers") = intUsers Application.UnLock End If End Sub %> Germany comes to you with German News - GERMANY germannews germany GERMANNEWS GERMAN-NEWS Deutschland german-news www.germannews.com www.germannews.de NEWS news www.german-news.de www.german-news.com DEUTSCHLAND BRD brd Bundesrepublik Bundesrepublik-Deutschland Presse Pressedienst newsletter news-letter NEWS-LETTER

HOME

News

Burgenstrasse

Bayern-Report

Hotelführer

German Press

 Reisemagazin
 
Stellenmarkt

Email

 Shop Live Impressum Werbepreise Links
 
   

<% Call LogActiveUser() Call ActiveUserCleanup() Response.Write "" & Application("ActiveUsers") & " User online." %>


Wenn Sie einen Urlaub oder eine Geschäftsreise planen, dann können sie sich auf den LINK Seiten ausführlich informieren.

Ob Flughafen, Bahn oder Auto. Auch den aktuellen Wetterbericht finden Sie hier.

Der Wechselkursrechner hilft Ihnen den aktuellen Umrechnungskurs (auch nachträglich) herauszufinden.

 

 
 

 
     
Suchmaschinen

Medien

Politik

Auswandern

Aktuelles Wetter

 

 

 

 

 

 

Kontakt
Cybernex Mediendienst GmbH
Plinganserstr. 3 
81369 München 
Tel. +49-(0)89-7460105
Fax +49-(0)89-776734

 

 

 German News wird derzeit überarbeitet.
Bitte haben Sie noch etwas Geduld bis wir wieder alle Rubriken aus den früheren Ausgaben freigegeben haben.