30 lines
912 B
Plaintext
30 lines
912 B
Plaintext
|
|
<%
|
|
If (directory.FileExists(subdir+"/cel "+cel+".txt"))=true Then
|
|
Set filepath = directory.GetFile(subdir+"/cel "+cel+".txt")
|
|
Set TextStream = filepath.OpenAsTextStream(1, -2)
|
|
do while textstream.AtEndOfStream = false
|
|
arrestant=TextStream.ReadLine
|
|
afdeling=TextStream.ReadLine
|
|
bijzonderheden=TextStream.ReadLine
|
|
Loop
|
|
textstream.close
|
|
else
|
|
arrestant=""
|
|
afdeling=""
|
|
bijzonderheden=""
|
|
end if
|
|
%>
|
|
|
|
<tr height="54"><td class="main">
|
|
|
|
<table border="0" width="100%" cellspacing="0" cellpadding="1">
|
|
<tr><td class="cel" width="50"><%=cel%></td><td class="visitor"><%=arrestant%></td><td class="cel" rowspan=2 width="25" align="right">
|
|
<%if verifieduser<>"R" then%>
|
|
<input type="image" src="./icons/edit32.png" height="20" onclick="EditCel('Cel <%=cel%>')" />
|
|
<%end if%>
|
|
</td></tr>
|
|
<tr><td class="cell"><%=afdeling%></td><td class="cell"><%=bijzonderheden%></td></tr>
|
|
</table>
|
|
|
|
</tr></td> |