21 lines
641 B
Plaintext
21 lines
641 B
Plaintext
<%
|
|
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
|
|
%>
|
|
|
|
<tr height="27"><td class="main">
|
|
<table border="0" width="100%" cellspacing="0" cellpadding="1">
|
|
<tr><td width="50"><%=left(dag,len(dag)-5)%>:</td><td><%=data%></td><td width="25" align="right">
|
|
<%if verifieduser<>"R" then%>
|
|
<input type="image" src="./icons/edit32.png" height="20" onclick="EditSinglefield('Douchen <%=dag%>')"/>
|
|
<%end if%>
|
|
</td></tr>
|
|
</table>
|
|
|
|
</tr></td> |