Vill ha en adminsida där flera medlemmar kan editera bla gästbok, det vill inte funka. RecSet till databasen och sånt är rätt, bifogar kod.

login.asp
<code>
<form name="Admin" method="post" action="admin.asp?confirm=yes">
<div align="center">
<input type="text" name="user" class="textruta" value="Username">
<input type="password" name="pass" class="textruta" value="Password">
<BR>
<input type="submit" name="Submit" value="Submit" class="textruta">
</div>
</form>
</code>

admin.asp
<code>
If Request.QueryString("confirm") = "yes" Then


Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../Databas/databas.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")

SQL = "Select * From users"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

Do Until RecSet.EOF
IF RecSet("User") = Request.Form("user") AND RecSet("Pass") = Request.Form("pass") Then
Session("behorig") = "YES"
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.Redirect "admin.asp?main=yes"
End If

RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.Redirect "login.asp?login=no"

End If
</code>

Problemet är att man inte kan komma in även om man skriver in rätt lösen och användarnam. Man skickas tillbaka till login.asp!

Problemet för dig här är att du hämtar alla poster och försöker jämföra med det data du skrivit. Detta fungerar endast om det är den första posten i din tabell.

SQL = "Select * From users"

Du måste istället konstruera sql-satsen så den letar efter en unik post istället för alla.

<code>
sql = "select * from users where user = '" & Request.Form("user") & "' and pass = '" & Request.Form("pass") & "'"

set rst=con.execute(sql)
if not rst.eof then
' ok
else
' kontot finns inte
end if
</code>

Hälsningar
/Pelle