lösenordsscript.........

hade för mig at jag skrev in här om det igår, men hittade det inte nu så jag får väl skriva om det......

Jag ahr problem med ett script jag gjort. scriptet används för att kolla om en användare är registrerad i databasen och om han är det så ska han loggas in...Felet som jag inte kan lösa är att man bara kan logga in som en användare. det är bara en som fungerar. När jag ska logga in som någon av de andra jag skapat så kommer det upp att namnet är felaktigt......Nån som kan hjälpa mig med det???

Här är koden:

<%
If Session("UserId")="" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/c2/db/craddle.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "SELECT nick FROM users "

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

If RecSet("nick")=Request.Form("username") Then %> <% RecSet.Close
Connect.Close
%> <%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/c2/db/craddle.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "SELECT password, nick, id FROM users WHERE nick= '"&(Request.Form("username"))&"' "

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

If RecSet("nick")=Request.Form("username") AND RecSet("password")=Request.Form("password") Then %>
<% Session("UserId")=RecSet("nick")
Session("idit")=RecSet("id") %> <% RecSet.Close
Connect.Close
%> <%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={MicroSoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/c2/db/craddle.mdb")

Visa = "SELECT online, nick, id FROM users WHERE nick= '"&trim(Request.Form("username"))&"' "

RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
%> <% RecSet("online")= TRUE %> <%
RecSet.Update
RecSet.Close
Connect.Close
%> <a href="ilmainset.asp" target="_parent">hej</a> <%
Else
RecSet.Close
Connect.Close
%>
<script language="javascript">
window.alert("Tyvärr så stämde inte lösenordet...");
</script>
<script language="javascript">
function relogin()
{
window.open('mainset.asp','jellity','toolbar=yes,width=600,height=400');
}
onLoad=relogin()
</script><%
End If

%>
<% Else %>
<% RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing
%>
<script language="javascript">
window.alert("Tyvärr så stämde inte smeknamnet...");
</script>
<script language="javascript">
function relogin()
{
window.open('mainset.asp','jellity','toolbar=yes,width=600,height=400');
}
onLoad=relogin()
</script>
<% End If %><% End If %>

//McMiller

------------------
www.jelly-head.net ---- Din nya nöjesguide!!!

Tog mig friheten att bygga om ditt skript lite. T.ex. räcker det med att du har ett connection-objekt, som du återanvänder.

<%
If Session("UserId")="" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/c2/db/craddle.mdb")

Addera = "SELECT password, nick, id FROM users WHERE nick= '"& Request.Form("username") &"' AND password='"& Request.Form("password") & "'"

set RecSet=Connect.Execute(Addera)

if not RecSet.eof then
Session("UserId")=RecSet("nick") 
Session("idit")=RecSet("id")

Visa = "UPDATE users set online=1 WHERE nick= '" & trim(Request.Form("username")) & "'"

Connect.Execute(Visa) 
%> <a href="ilmainset.asp" target="_parent">hej</a> <%
Else 
%> 
<script language="javascript">
window.alert("Tyvärr så stämde inte användarnamnet/lösenordet...");
</script>
<script language="javascript">
function relogin()
{
window.open('mainset.asp','jellity','toolbar=yes,width=600,height=400');
}
onLoad=relogin()
</script><%
End If
RecSet.Close
Set RecSet = nothing
Connect.Close 
Set Connect = nothing
end if

tack för hjälpen...Nu fungerar det. vad var det för fel jag hade gjort?...Skulle vara bra att veta om man skulle råka stöta på liknande igen...

//McMiller

------------------
www.jelly-head.net ---- Din nya nöjesguide!!!