ASP login script...

login asp

<%
If Request.Form(\"Action\") = \"Login\" Then

strUID = Trim(Replace(Request.Form(\"Brugernavn\"),\"\'\",\"\"))
strPWD = Trim(Replace(Request.Form(\"Adgangskode\"),\"\'\",\"\"))

If Len(strUID) > 0 And Len(strPWD) > 0 Then

Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"user.mdb\")

strSQL = \"SELECT UserID FROM Users WHERE (Username = \'\" & strUID & \"\') AND (Password = \'\" & strPWD & \"\')\"

Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then

intUID = rs(\"UserID\")
Else

strERR = \"Ingen adgang\"
End If


myConn.Close
Set myConn = Nothing

If Len(intUID) Then
session(\"bruger\") = Request.Form(\"Brugernavn\")
Session(\"UserID\") = intUID
Response.Redirect(\"sleevs.asp\")
End If
Else
\' tæl antallet af fejl forsøg op.
Session(\"FejlForsoeg\") = Session(\"FejlForsoeg\") + 1
\' hvis over 4 fejl
if Session(\"FejlForsoeg\") > 4 then
\' send brugeren over til siden error.asp
  response.redirect(\"login.asp?mode=fuckoff\")
end if
strErr = \"Du skal skrive både brugernavn og adgangskode\"
End If

If Len(strErr) > 0 Then

strErr = \"<font color=red>\" & strErr & \"\"

End If
End If
%>
<html><head>
<title>Login</title>

</head>
<body bgcolor=\"#000000\" leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\">

                    <form method=\"POST\" action=\"login.asp\">
                      <font color=\"#FF0000\"><span class=\"almskrift\"> &nbsp;&nbsp;Angiv
                      brugernavn og adgangskode.</span></font>  <span class=\"storskrift\">Brugernavn:</span>
                      <input type=\"text\" name=\"Brugernavn\" size=\"20\" class=\"inputSubmit\">
                      <span class=\"storskrift\"> Adgangskode:</span>
                      <input type=\"password\" name=\"Adgangskode\" size=\"20\" class=\"inputSubmit\">
                      <input type=\"submit\" value=\"Login\" name=\"Action\" class=\"inputBut\">
                    </form>
                 
    <%

select case Request.QueryString(\"mode\")

case \"logout\"

session.contents.remove(\"bruger\")
session.contents.remove(\"UserID\")
Response.Redirect(\"login.asp\")

case \"fuckoff\"
%>
  </p>
  <p><font color=\"#FF0000\" class=\"almskrift\"><span class=\"megetstor\">Ok din spasser
    !!<br>
    Din Ip adresse er <%=Request.ServerVariables(\"REMOTE_HOST\")%>.<br>
    </span></font><span class=\"megetstor\">Datoen for angrebet er <%= FormatDateTime(Date) %> - <%= FormatDateTime(Now, 3)%>.<br>
    Disse oplysninger er sendt til administratoren af dette site. </span>
    <%
end select
%>
  </p>
</div>
<p align=\"center\"><font color=\"#FF0000\" class=\"almskrift\"><%=strErr%></font></p>
</body></html>



protect.inc

<%
If isEmpty(Session(\"UserID\")) Then
    Response.Redirect(\"login.asp\")
End If
%>


database
user.mdb

Tabel = users
UserID
Username
Password


i toppen af de sider der skal beskyttes
skriver du.

<!--#include file=\"protect.inc\"-->

If Not LEN(Request.Form(\"telefon\"))= 8 AND Request.Form(\"password\") = \"phønix\" Then

Keysersoze: Ja, du har fat i noget af det rigtige... men nu logger den bare en ind selvom man ikke har skrevet noget!

Jeg har 3 filer...


default.asp:

<html>
<head>
<title>Ph&oslash;nix-Trykkeriet as</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<style type=\"text/css\">
<!--
.tekst {font-family: Verdana, Arial, Helvetica; font-size: 12px; color: #666666; text-decoration: none}
A:link {color : #666666; text-decoration:none}
A:visited {color : #666666; text-decoration:none}
A:active {color : #E1E1E1; text-decoration:none}
A:hover {color : #FFFFFF; text-decoration:none}
-->
</style>
</head>
<body bgcolor=\"#A3AEC0\">
<table width=\"100%\" border=\"0\" height=\"100%\">
  <tr>
    <td>
      <p align=\"center\" class=\"tekst\"><font color=\"#53627B\"><b>Ph&oslash;nix-Trykkeriet
        as</b></font><br>
        <br>
        <br>
      </p>
      <table width=\"300\" border=\"0\" cellpadding=\"2\" cellspacing=\"1\" height=\"175\" bgcolor=\"#53627B\" align=\"center\">
        <tr>
          <td height=\"20\" class=\"tekst\" bgcolor=\"#7E8DA9\"><font color=\"#D0D7DF\"><b>&nbsp;V&aelig;r
            venlig at logge ind...</b></font></td>
        </tr>
        <tr>
          <td bgcolor=\"#C1C9D5\">
            <table width=\"100%\" border=\"0\" height=\"100%\">
              <tr>
                <td>
                  <form method=\"post\" action=\"login.asp\">
                     
                    <table width=\"100%\" border=\"0\" height=\"100\" align=\"center\">
                      <tr>
                        <td width=\"100\" height=\"15\" class=\"tekst\">&nbsp;</td>
                        <td class=\"tekst\" width=\"150\" height=\"15\">&nbsp;</td>
                        <td width=\"50\" height=\"15\" class=\"tekst\">&nbsp;</td>
                      </tr>
                      <tr>
                        <td width=\"100\" height=\"30\" class=\"tekst\">
                          <div align=\"right\"><font color=\"#53627B\">Telefon nr.</font></div>
                        </td>
                        <td class=\"tekst\" width=\"150\" height=\"30\">
                          <p align=\"right\"><font color=\"#53627B\">
                            <input type=\"text\" name=\"telefon\" size=\"20\" maxlength=\"8\">
                            </font>
                        </td>
                        <td width=\"50\" height=\"30\" class=\"tekst\">&nbsp;</td>
                      </tr>
                      <tr>
                        <td width=\"100\" height=\"30\" class=\"tekst\">
                          <div align=\"right\"><font color=\"#53627B\">Password</font></div>
                        </td>
                        <td class=\"tekst\" width=\"150\" height=\"30\">
                          <p align=\"right\"><font color=\"#53627B\">
                            <input type=\"password\" name=\"password\" size=\"20\">
                            </font>
                        </td>
                        <td width=\"50\" height=\"30\" class=\"tekst\">&nbsp;</td>
                      </tr>
                      <tr>
                        <td width=\"100\" height=\"35\" class=\"tekst\">
                        </td>
                        <td class=\"tekst\" width=\"150\" height=\"35\">
                          <p align=\"right\"> <font color=\"#53627B\">
                            <input type=\"submit\" value=\"Login -&gt;\" name=\"submit\">
                            </font>
                        </td>
                        <td width=\"50\" height=\"35\" class=\"tekst\">&nbsp;</td>
                      </tr>
                    </table>
                  </form>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <table width=\"100%\" border=\"0\" height=\"60\">
        <tr>
          <td>
            <p align=\"center\"><font color=\"#53627B\" size=\"2\" face=\"Verdana, Arial, Helvetica\">
              <% If request(\"invalid\")>0 Then%>
              <b>Forkert telefon nr. eller password, pr&oslash;v igen...</b></font>
              <% End If %>
              <font color=\"#53627B\" size=\"2\" face=\"Verdana, Arial, Helvetica\">
              <% If request(\"timeout\")>0 Then%>
              <b>Tiden er udl&oslash;bet, pr&oslash;v igen...</b></font>
              <% End If %>
            </p>
          </td>
        </tr>
      </table>
      </td>
  </tr>
</table>
</body>
</html>


password.asp

<%
If Not LEN(Request.Form(\"telefon\")) = 8 AND Request.Form(\"password\") = \"phønix\" Then
    response.redirect \"default.asp?invalid=1\"
    else
    session (\"login\")=\"login\"
End If
%>


login.asp

<!-- #include file=\"password.asp\"-->
<html>
<title>Login</title>
<head>
</head>
<body>
Login
</body>
</html>

Hmm... det lader desværre til at ingen kan hjælpe mig! Ellers tak til alle som har svaret.