ich habe jetzt das ganze script umgeschrieben:
<%
if Request.Form("login")="" Then
response.write "<form name=""frmSend"" method=""POST"" action=""admin.asp"" >"
response.write "<B>Admin Login</B><br>"
response.write "<table>"
response.write "<tr>"
response.write "<td>Login :</td>"
response.write "<td><input name=""login"" type=""text"" size=20></td><br>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>Password:</td>"
response.write "<td><input type=""password"" name=""passwort"" size=20></td><br>"
response.write "</tr>"
response.write "<tr>"
response.write "<td><input type=submit name=""Login"" value=""Login""</td>"
response.write "</tr>"
response.write "</table>"
response.write "</form>"
else
login=Request.Form("login")
pass=Request.Form("passwort")
if login="Admin" Then
if pass="test" Then
response.write menue()
else
response.write "failed<br>"
login=nothing
pass=nothing
end if
else
response.write "failed<br>"
login=nothing
pass=nothing
end if
end if
function menue()
set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("c:\inetpub\wwwroot\Konvert\besetzt.txt") Then
besetzt="besetzt.txt: Yes"
else
besetzt="besetzt.txt: No"
end if
If fso.FileExists("c:\inetpub\wwwroot\Konvert\config.txt") Then
config="config.txt: Yes"
else
config="config.txt: No"
end if
response.write besetzt
response.write "<br>"
response.write config
response.write "<br><br><br>"
response.write "<td><a href=""logfile.txt"" target=""_blank"">Logfile ansehen</a></td><br>"
response.write "<td><a href=""\rabmed98\c$\inetpub\wwwroot\konvert"" target=""_blank"">Zugriff aufs Dateisystem</a></td><br>"
end function
%>
das funktioniert jedoch auch nicht....