Loggas in bara ibland

Hej!
jag har en sida som får många besökare... och när det är många på sidan så kan man inte logga in ordentligt..
så här ser min kod ut.. iband när det e ingen på sidan så loggas man inte heller in..

<% 
response.buffer="true" 

If Request.form("anv") <>"" And Request.form("losen") <>"" Then
Dim Con
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xxx.mdb") &";pwd=xxx"

SQL ="Select * from medlemmar Where anv='"& Replace(request.form("anv"), "'", "''") &"' And Losen='"& Replace(request.form("losen"), "'", "''") &"'"
Set Recset = Con.Execute(SQL)

If Not Recset.Eof Then
	Session("id") = Recset("id") %>
<% response.redirect "inloggad.asp" %>

<%
Else
Response.write ("Fel Användarnam Eller Lösenord")
End if 

Recset.Close
	Set Recset = Nothing
Con.Close
	Set Con = Nothing
response.redirect "loggain.asp"
End if 

%>