Sidan "tappar" bort sig själv!

NU har jag ett mycket irriterande problem som jävlas med mig. Jag har en index sida och som heter index.asp och på den sidan har jag en inloggning som körs på samma sida den öppnar en access databas och kollar att uppgifterna stämmer. Och det funkar att logga in och man får en session. Jag har en länk på sidan som heter start och den går till index.asp och när jag klickar på den så får jag fram detta felmess. men sätter jag in detta i på sidan "on error resume next" så funkar sidan igen men då är dessa tomma <%=RecSet("client")%>. Så det verkar som om sidan "tappar" bort informationen om den personen som loggar in och visar detta felmess.

ADODB.Field error '80020009' 

Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post. 

/index.asp, line

inloggning

<%
Function SQLText(Value)
    If Len(Value) Then
        SQLText = "'" & Replace(Value, "'", "''") & "'"
    Else
        SQLText = "Null"
    End If
End Function

    Set Con = Server.CreateObject("ADODB.Connection")
    Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("client987.mdb") 

    strSQL = "Select * from tbluppgifter where client = " & SQLText(Request.Form("client")) & " and password = " & SQLText(Request.Form("password")) 

    Set RecSet = Server.CreateObject("ADODB.Recordset")
    RecSet.Open strSQL, Con

    If not recset.eof then
        Session("authentication") = "yes" 
        Session("id") = recset("id")
end if

%>

Kollar att man har en session

<%IF Session("authentication") = "yes" THEN%>
<% IF Request.Querystring("logga") ="ut" THEN
Session.Abandon
Response.Redirect "http://www.medialabs.nu"
END IF %>

Stänger databasen och om man inte har en giltig session så visas en annan del av sidan där inloggningen finns:

<%ELSE%>
<%
RecSet.Close
Set RecSet = nothing
Con.Close
Set Con = nothing
END IF
%>