Need urgent help in solving this recordset error

[lxxslay3rxxl]

Let's say I haf 3 project that I wan to list, each project should have 1 value assign to it, but if i remove 1 of the value for 1 of the project, and i tried to list all 3 projects, I get this error:
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

This is my code:

<%
    call OpenDB()
 
    set rs = Server.CreateObject("ADODB.recordset")
    sql="SELECT * FROM project ORDER BY id"
    rs.Open sql, dbConn
 
    Set li = Server.CreateObject("ADODB.Recordset")
    licheck= "SELECT * FROM usergroup WHERE gpname='"& Request.Cookies("UsernameCookie") &"'" 
    li.Open licheck, dbConn
 
    Set lili = Server.CreateObject("ADODB.Recordset")
    licheckproj= "SELECT * FROM project WHERE id="&li("projectid")&"" 
    lili.Open licheckproj, dbConn
 
    If Request.Cookies("UsernameCookie")="" then
    Response.Write("<center>Please Login to check the current project that you are registered with!</center><br>")
 
    do while not rs.EOF 
 
    Response.Write("<div class=""post"">")
    Response.Write("<h2 class=""title""><span>"&rs("pjname")&"</span></h2>")
    Response.Write("<div class=""story"">")
    Response.Write("<table width=""80%""><td>"&rs("pjdesc")&"</td></table>")
    Response.Write("<div class=""meta"">")
    Response.Write("</div>")
    Response.Write("</div>")
    Response.Write("</div>")
 
    rs.MoveNext
    loop
    rs.close
    set rs = nothing
 
    elseif not Request.Cookies("UsernameCookie")="" and Request.Cookies("priv") = "1" then
    Response.Write("<font color=red size=""2""><b>Welcome<font color=black size=""3""> "&li("gpname")&"</font>, you are currently registered under <font color=black size=""3"">"&lili("pjname")&"</font> <br>For more information about your project, click <a href=""index.asp?p=loginprojstatus"">here</a>.<br>To make changes to your group, click <a href=""index.asp?p=changeproject"">here</a>. </b></font></br>")
 
    set rss = Server.CreateObject("ADODB.recordset")
    students="SELECT COUNT(gpname) AS countproject FROM usergroup Where classid = "&li("classid")&" GROUP BY projectid"
    rss.Open students, dbConn
 
    set rsss = Server.CreateObject("ADODB.recordset")
    studentss = "SELECT * from class WHERE "&li("classid")&" = id"
    rsss.Open studentss,dbConn
 
    do while not rs.EOF
 
    Response.Write("<div class=""post"">")
    Response.Write("<h2 class=""title""><span>"&rs("pjname")&"</span></h2>")
    Response.Write("<div class=""story"">")
    Response.Write("<table width=""80%""><td>"&rs("pjdesc")&"</td></table>")
    Response.Write("<div class=""meta"">")
    Response.Write("</div>")
    Response.Write("</div>")
    if not (rss.EOF or rss.BOF) then 
    Response.Write("<br><table width=""80%""><td>Number of Registered Groups from "&rsss("classes")&" : "&rss("countproject")&"</td>    </table>")
    Response.Write("</div>")
    else 
    Response.Write("<br><table width=""80%""><td>Number of Registered Groups from "&rsss("classes")&" : 0</td>    </table>")
    Response.Write("</div>")
    end if
    rss.MoveNext
    rs.MoveNext
    loop
    rss.close
    set rss = nothing
    rs.close
    set rs = nothing
 
 
    else 
 
    Response.Write("<font color=red size=""2""><b>Welcome "&li("gpname")&", <br>You are currently administrator</font></b></br>")
 
    do while not rs.EOF 
 
    Response.Write("<div class=""post"">")
    Response.Write("<h2 class=""title""><span>"&rs("pjname")&"</span></h2>")
    Response.Write("<div class=""story"">")
    Response.Write("<table width=""80%""><td>"&rs("pjdesc")&"</td></table>")
    Response.Write("<div class=""meta"">")
    Response.Write("</div>")
    Response.Write("</div>")
    Response.Write("</div>")
 
    rs.MoveNext
    loop
    rs.close
    set rs = nothing
 
    end if
 
%>

[lxxslay3rxxl]

Nvm...I have solve that stupid error...