Ms Access 2003 Connection With Asp

hi everyone,

i have an access file (access 2003) in my root folder. an ASP page where i select the records from the access database table. in this page all are working perfect. my asp code:

ASP Code: Original - ASP Code <%Dim adoConDim rsGuestbookDim strSQLSet adoCon = Server.CreateObject("ADODB.Connection")adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("testdb.mdb")Set rsGuestbook = Server.CreateObject("ADODB.Recordset")strSQL = "SELECT * FROM table_name ORDER by user_id;"rsGuestbook.Open strSQL, adoCon%><table bgcolor="#ffffff"><%Do While not rsGuestbook.EOF%><tr> <td><a href="somepage.asp?user_id=<%Response.Write (rsGuestbook("user_id"))%>"><%Response.Write (rsGuestbook("user_id"))%></a></td> <td><a href="somepage.asp?user_id=<%Response.Write (rsGuestbook("user_id"))%>"><%Response.Write (rsGuestbook("email"))%></a></td> <td><a href="somepage.asp?user_id=<%Response.Write (rsGuestbook("user_id"))%>"><%Response.Write (rsGuestbook("city"))%></a></td></tr><%rsGuestbook.MoveNextLooprsGuestbook.CloseSet rsGuestbook = NothingSet adoCon = Nothing%></table> <%Dim adoConDim rsGuestbookDim strSQL Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("testdb.mdb") Set rsGuestbook = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM table_name ORDER by user_id;" rsGuestbook.Open strSQL, adoCon%> <table bgcolor="#ffffff"><%Do While not rsGuestbook.EOF%><tr>  <td><a href="somepage.asp?user_id=<%Response.Write (rsGuestbook("user_id"))%>"><%Response.Write (rsGuestbook("user_id"))%></a></td>  <td><a href="somepage.asp?user_id=<%Response.Write (rsGuestbook("user_id"))%>"><%Response.Write (rsGuestbook("email"))%></a></td>  <td><a href="somepage.asp?user_id=<%Response.Write (rsGuestbook("user_id"))%>"><%Response.Write (rsGuestbook("city"))%></a></td></tr><%rsGuestbook.MoveNextLooprsGuestbook.CloseSet rsGuestbook = NothingSet adoCon = Nothing%></table>
when i click one of the links to view the details of each record, the page displays this error:
Quote: ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/some_page.asp, line 0

this is the code of my page:
ASP Code: Original - ASP Code <%Dim adoConDim rsGuestbookDim strSQLDim user_iduser_id = CLng(Request.Form("user_id"))Set adoCon = Server.CreateObject("ADODB.Connection")adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("testdb.mdb")Set rsGuestbook = Server.CreateObject("ADODB.Recordset")strSQL = "SELECT * FROM table_name WHERE user_id=" & user_idrsGuestbook.Open strSQL, adoCon%><table width="300"><tr> <td>UserID:</td> <td><%Response.Write (rsGuestbook("user_id"))%></td></tr><tr> <td>E-mail:</td> <td><%Response.Write (rsGuestbook("email"))%></td></tr><tr> <td>Telephone:</td> <td><%Response.Write (rsGuestbook("telephone"))%></td></tr><tr> <td>Fax:</td> <td><%Response.Write (rsGuestbook("fax"))%></td></tr></table> <%Dim adoConDim rsGuestbookDim strSQLDim user_id user_id = CLng(Request.Form("user_id")) Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("testdb.mdb") Set rsGuestbook = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM table_name WHERE user_id=" & user_id rsGuestbook.Open strSQL, adoCon%> <table width="300"><tr> <td>UserID:</td> <td><%Response.Write (rsGuestbook("user_id"))%></td></tr><tr> <td>E-mail:</td> <td><%Response.Write (rsGuestbook("email"))%></td></tr><tr> <td>Telephone:</td> <td><%Response.Write (rsGuestbook("telephone"))%></td></tr><tr> <td>Fax:</td> <td><%Response.Write (rsGuestbook("fax"))%></td></tr></table>

any idea is acceptable.

thanks in advance