timmy: html formular an asp übertragen

Beitrag lesen

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....