<% If (directory.FileExists(subdir+"/Douchen "+dag+".txt"))=true Then Set filepath = directory.GetFile(subdir+"/Douchen "+dag+".txt") Set TextStream = filepath.OpenAsTextStream(1, -2) data=TextStream.ReadLine textstream.close else data=" " end if %>

<%=left(dag,len(dag)-5)%>:

<%=data%>

<%if verifieduser<>"R" then%> <%end if%>