Password og IPnummer

Fik vist lukket den sidste lidt hurtigt!

check evt. http://www.ab-bille-brahe.dk/login/login_gl.asp

Der sker ikke noget.

---------------
Kode start
---------------
<%
\' Hvis der er blevet trykket på knappen \"Login\"
If Request.Form(\"Action\") = \"Login\" Then
    \' Her forberedes de indtastede værdier til validering
    strUID = Trim(Replace(Request.Form(\"Brugernavn\"),\"\'\",\"\"))
    strPWD = Trim(Replace(Request.Form(\"Adgangskode\"),\"\'\",\"\"))

    If not Len(strUID) < 0 And not Len(strPWD) < 0 Then

        \' DSNLess forbindelse til databasen
        Set myConn = Server.CreateObject(\"ADODB.Connection\")
        myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"protect.mdb\")

        \' Opbygning af SQL streng
        strSQL = \"SELECT * FROM Users\"&_
            \" WHERE (Username = \'\" & strUID & \"\')\"&_
            \" AND (Password = \'\" & strPWD & \"\')\"

        Set rs = myConn.Execute(strSQL)
        If Not (rs.BOF Or rs.EOF) Then
            \' Hvis brugeren fandtes i databasen
            intUID = rs(\"UserID\")
            intTRAN = rs(\"Transfer\")
                     
        Else
    if not session(\"logintry\") = \"\" then
        session(\"logintry\") = Cint(session(\"logintry\")) + Cint(\"1\")
        else
        session(\"logintry\") = \"1\"
    end if

        if not session(\"logintry\") < \"3\" then
   
    \'Dette opretter Log dataen
        Set rs = Server.CreateObject(\"ADODB.RecordSet\")
        strSQL = \"SELECT * FROM [log] WHERE (ID = 0)\"
        rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
        If (rs.BOF Or rs.EOF) Then
        rs.AddNew
        rs(\"ip\") = Request.ServerVariables(\"REMOTE_ADDR\")
        rs(\"dato\") = date
        rs.Update
        rs.Close
        Set rs = Nothing
        End If       
       
        \' Hvis brugeren ikke fandtes i databasen
            strERR = \"Du blev ikke godkendt af systemet\"
        End If

        \' Rydder op i vores connection objekt
        myConn.Close
        Set myConn = Nothing

        If Len(intUID) Then
            Session(\"UserID\") = intUID
            Response.Redirect intTRAN
    Else
        \' Hvis der ikke var angivet brugernavn og adgangskode
        strErr = \"Du skal skrive både brugernavn og adgangskode\"
    End If

    If not Len(strErr) < 0 Then
        \' Her laves fejlmeddelsen om til rød skrift
        strErr = \"<p><font color=red>\" & strErr & \"</font></p>\"
    End If
End If
%>
<%
if not session(\"logintry\") < \"3\" then
%>
<html><head>
<!-- Minus AutoDato -->
<title>Login script</title>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
</head><body>
Du har prøvet at logge ind for mange gange.
<%
else
%>
<html><head>
<title>Login script</title>
</head><body>
<form method=\"POST\" action=\"login.asp\">
  <p><font size=\"4\">Angiv brugernavn og adgangskode</font></p><%=strErr%>
  <table border=\"0\">
    <tr>
      <td width=\"50%\">Brugernavn:</td>
      <td width=\"50%\"><input type=\"text\" name=\"Brugernavn\" size=\"20\"> (test)</td>
    </tr>
    <tr>
      <td width=\"50%\">Adgangskode:</td>
      <td width=\"50%\"><input type=\"password\" name=\"Adgangskode\" size=\"20\">
        (test)</td>
    </tr>
  </table>
  <p><input type=\"submit\" value=\"Login\" name=\"Action\"></p>
</form>
url
</body></html>
<%
end if
end if
end if
Response.End  \'Stop afvikling af script
\'Viser almindelig side
%>