<%
Function ReportFileStatus(DATEINAME, USERNAME)

  Dim fso, msg
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set fs = CreateObject("Scripting.FileSystemObject")
  	
  If (fso.FileExists(DATEINAME)) Then
   
	msg = TRUE
    
    	Set txtdatei = fs.OpenTextFile(DATEINAME)
           	
        Do While txtdatei.AtEndOfLine <> True
        	ZEILE = txtdatei.Readline				
		SEMIKOLONPOS = instr(ZEILE, ";")
		GESAMTLEN = Len(ZEILE)
					
		DATUMLEN = GESAMTLEN - SEMIKOLONPOS
		USERNAMEFILE = Left(ZEILE, SEMIKOLONPOS-1)
		
		BISDATUM = Datevalue(Mid(ZEILE,SEMIKOLONPOS+1, DATUMLEN))
		BISZEIT = Timevalue(Mid(ZEILE,SEMIKOLONPOS+1, DATUMLEN))      
		
		BISDATUM = BISDATUM  +  BISZEIT	              		
			
		If USERNAME <> USERNAMEFILE Then
						
			msg = "Falscher Username" 
							 
		else
								
			If BISDATUM > Now() Then
  	                   					
				msg = "Alles in Ordnung!"
				Session("Username") = USERNAME
				Session("PASSWORT") = PASSWORT
				Session("ZUGANGBIS") = BISDATUM 
				Response.Redirect Session("STARTPAGE")
				
			ELSE

				 msg = "Ihr Zugang ist abgelaufen am " & BISDATUM           
 
			End If

		End If
              
	Loop                
                   
        txtdatei.close  
                  		 	
				  
  Else
   
	msg = "Unbekanntes Konto"
  
  End If

	ReportFileStatus = msg
	
End Function
%>