Vem kan hitta felet?

Är det nån som hetter nåt fel balnd dessa koder:

nick = Session("nick")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DBpath
SQL = "SELECT * FROM Medlemmar WHERE f_Nick='"&nick&"'"
Set RS= Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Connect
%>
<% =header %> Hej <% =RS("f_Nick") %> <% =header_end %>
<% =basefont %>
<img src="<% =RS("f_bild") %>">
<% RS.Close
Set RS=nothing
Connect.Close
Set Connect=nothing
%>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DBpath
SQL = "SELECT TOP 1 * FROM Medlemmar ORDER BY f_Nick;"
Set RS= Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Connect
%>
<font size="2" face="verdana">

Våran senaste medlem: 
<% if Session("access") = "" Then %>
<% =RS("f_Nick") %>
<% Else%>
<a href="sidan.asp?sida=egna&nick=<% =RS7("f_Nick") %>"><% =RS("f_Nick") %></a>&nbsp;
<% End If %>
</td>
<% RS.Close
Set RS=nothing
Connect.Close
Set Connect=nothing
%>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DBpath
SQL = "select count(*) AS count_member from Medlemmar"
Set RS_count_members = Connect2.Execute(SQL)

Randomize
vilkenlank = Int(rnd*RS_count_members("count_member")) +1
SQL = "Select * from Medlemmar"

Set RSdbase = Server.CreateObject("ADODB.Recordset")
RSdbase.open SQL, "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DBpath
RSdbase.Move vilkenlank
%>
<% =basefont %>
<table cellpadding="0" cellspacing="0" width="200">
<tr>
<td>
<img src="<%= RSdbase("f_Bild") %>">
</td>
<td valign="top"><% =basefont %>
<b>Namn:</b> <% =RSdbase("f_Nick") %><br>
<b>Ålder:</b><% =RSdbase("f_Alder") %><br>
<b>Bor:</b><% =RSdbase("f_Bor") %><br>
<a href="sidan.asp?sida=egna&nick=<%=RSdbase("f_Nick") %>">Besök <%=RSdbase("f_Nick") %>'s sida</a>
<%
Connect.close
Set Connect=nothing
%>

det är nämligen så att jag har alla dess på samma sida och får felet:

Feltyp:
ADODB.Field (0x80020009)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.
/Community/default.asp