<%
PageAppelante = Request.ServerVariables("HTTP_REFERER")
If PageAppelante = "" Then
Response.Redirect ("index.htm")
Response.End
End If
If InStr(PageAppelante, "/reportage/janv_99/") <= 0 Then
Response.Redirect ("index.htm")
Response.End
End If
%>
Jouez avec Adriana Wattel
<%
If Request.QueryString("Id") = "x" Then
Dim User(5)
User(0) = Now()
User(1) = CStr(Session.SessionId)
User(2) = "g_00.jpg"
User(3) = "d_00.jpg"
User(4) = Request.ServerVariables("REMOTE_ADDR")
User(5) = 0
Application.Lock
If Not IsEmpty(Application("MaxUser")) Then
Done = False
NewIp = False
If InStr(Application("Ips"), User(4)) <= 0 Then NewIp = True
For i = 1 to (Application("MaxUser"))
StoredUser = Application(CStr(i))
If DateDiff("s", StoredUser(0), Now()) > 1800 Then
If Not Done Then
If NewIp Then
Application("Ips") = Join(Split(Application("Ips"), StoredUser(4), -1, 1), "/")
Application(CStr(i)) = User
Application("Ips") = Application("Ips") & "/" & User(4)
Done = True
Else
If StoredUser(4) = User(4) Then
User(5) = StoredUser(5)
Application(CStr(i)) = User
Done = True
Else
Application("Ips") = Join(Split(Application("Ips"), StoredUser(4), -1, 1), "/")
End If
End If
Else
Application("Ips") = Join(Split(Application("Ips"), StoredUser(4), -1, 1), "/")
End If
Else
If (Not NewIp) And (StoredUser(4) = User(4)) Then
User(5) = StoredUser(5)
Application(CStr(i)) = User
Done = True
End If
End If
Next
If Not Done Then
Application("MaxUser") = Application("MaxUser") + 1
Application(Application("MaxUser")) = User
Application("Ips") = Application("Ips") & "/" & User(4)
End If
Else
Application("MaxUser") = 1
Application("1") = User
Application("Ips") = User(4)
End If
Application.Unlock
Id = User(1)
Img1 = User(2)
Img2 = User(3)
Else
Id = Request.QueryString("Id")
Img1 = Request.QueryString("Img1")
Img2 = Request.QueryString("Img2")
End If
%>