Kundenummer/Password

her er en færdig løsning....
en password med en underliggende access database, så kan du tilføje så mange brugere du vil

http://www.netcoders.dk/sources.asp?mode=view_source&id=29&tech_id=1

jeg kan lave en til dig når jeg kommer hjem til min egen maskine...

er du stadig intereseret?

SKal du bruge en kode eller en fil?

Jeg skal bruge en kode..

<% mode = request(\"mode\") %>
<% if mode = \"\" then %>
<center><H1>Login</H1></center>
<div align=\"center\">
<center>
<table border=\"0\" width=\"234\" cellspacing=\"0\" cellpadding=\"0\">
<form method=\"post\" action=\"login.asp?mode=login\">
<tr>
<td width=\"85\">Brugernummer:</td>
<td width=\"151\"><input type=\"text\" name=\"brugernavn\" style=\"border: 1 solid #6600cc\"></td>
</tr>
<tr>
<td width=\"85\">Password:</td>
<td width=\"151\"><input type=\"password\" name=\"password\" style=\"border: 1 solid #6600cc\"></td>
</tr>
<tr>
<td width=\"85\"></td>
</center>
<td width=\"151\">
<p align=\"right\"><input type=\"submit\" value=\"Login\"></p>
</td>
</tr>
</table>
</div>
</form>
<% end if %>

<% if mode = \"login\" then %>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"databasen.mdb\")
Conn.Open DSN

strSQL = \"Select * from MAPPE where BRUGERNUMMER = \'\" & Request.form(\"brugernavn\") & \"\'\"
Set rs = Conn.Execute(strSQL)

If rs.BOF Or rs.EOF Then
Response.Redirect(\"login.asp\")
end if

intBrugernavn = rs(\"BRUGERNUMMER\")
intPassword = rs(\"PASSWORD\")


If Request.Form(\"brugernavn\") = intBrugernavn AND Request.Form(\"password\") = intPassword Then
Response.Cookies(\"login\")(\"login\") = \"ja\"
Response.Cookies(\"login\").Expires = Date+1
end if
end if



Conn.Close
Set Conn = Nothing

if Request.Cookies(\"login\")(\"login\") = \"ja\" then
response.write(\"Du er logget ind\")
else
response.redirect \"login.asp\"
%>
<% end if %>

I de filer der skal beskyttes skal der stå:
<% If Request.Cookies(\"login\")(\"login\") = \"ja\" then
else
response.redirect(\"login.asp\")
end if %>


Du ska erstatte MAPPE med navnet på mappen i access-databasen