<% option explicit %>
<% dim objFSO, objfile, zeile, laenge, i, zeichen %>
<!DOCTYPE
HTML PUBLIC "-//
W3C//DTD
HTML 4.01 Transitional//EN">
<
html>
<head>
<title>Counter</title>
</head>
<body bgcolor="#000000">
<font face="arial">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<% path = Server.MapPath("/count.txt") %>
<% set objFSO = Server.CreateObject("Scripting.FileSystemObject") %>
<% set objfile = objFSO.OpenTextFile(("path"), 1, true) %>
<% zeile = objfile.readline %>
<% zeile = zeile + 1 %>
<% set objfile = nothing %>
<% set objfile = objFSO.OpenTextFile(("path"), 2, true) %>
<% objfile.writeline(zeile) %>
<% objfile.close %>
<% set objfile = nothing %>
<% set objFSO = nothing %>
<% laenge = len(zeile) %>
<% for i = 1 to laenge %>
<% zeichen = mid(zeile, i, 1) %>
<td>
[img]img/<% = zeichen %>.gif[/img]
</td>
<% next %>
</tr>
</table>
</font>
</body>
</
html>