<%
Select Case left(Request.ServerVariables("REMOTE_ADDR"),11)

Case "62.159.133.", "195.185.208", "62.153.217.", "88.208.190."

USERNAME = Request("USER")
PASSWORT = Request("PASS")
BISINSEK = Request("BIS")


set FS = Server.CreateObject("Scripting.FileSystemObject")
DATEINAME = PFADMEMBERDATEIEN & PASSWORT & ".txt"


	Select Case Request("ACTION")

		Case "add"
			
			Set txtdatei = FS.CreateTextFile(DATEINAME, True)	
			txtdatei.writeline USERNAME & ";" & DateAdd("s", BISINSEK, now())
			txtdatei.close

		case "del"
			If FS.FileExists(DATEINAME) = True then
				FS.DeleteFile(DATEINAME)
			End If	
			
		case "reorg"
				
			set folder = FS.GetFolder(PFADMEMBERDATEIEN)

			for each item in folder.Files

   				If Right(item.name,4) = ".txt" Then
 
       					txtdateiname = PFADMEMBERDATEIEN & item.name
       	               			
					Set txtdatei = fs.OpenTextFile(txtdateiname)
                    	        	Do While txtdatei.AtEndOfLine <> True
                     				ZEILE = txtdatei.Readline				
						SEMIKOLONPOS = instr(ZEILE, ";")
						GESAMTLEN = Len(ZEILE)
						DATUMLEN = GESAMTLEN - SEMIKOLONPOS
						BISDATUM = Datevalue(Mid(ZEILE,SEMIKOLONPOS+1, DATUMLEN))   
  	                   				
               					If BISDATUM > Now() Then
	
							FILEDEL = False			
						
						ELSE

							FILEDEL = True              

       						End If

               				Loop                
                  
                  		 	txtdatei.close  

					IF FILEDEL = True Then
						FS.DeleteFile(txtdateiname)
					END IF 
				
				End If
				
		
			Next

	End Select

set FS = Nothing
End Select
%>