Salve a tutti. Ho trovato girovagando sui Internet la vecchia board bellina o0mbbs che sono riuscito ad usare con la versione 0.6 mettendola a posto. Ora vorrei mettere a posto anche la 0.9 ma da degli errori strani; a proposito se qualcuno avesse la 0.8 sarei felice se me la inviasse e si riuscisse a migliorarla; uno degli errori è questo, mi da assenza di record in ViewForum.asp

ADODB.Field error '800a0bcd'

Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.

/o0mbbs/ViewForum.asp, riga 22

ecco il codice, non capisco perchè un forum vada bene e quello creato da me no

<%
If forum <> "New" then 'get all posts
if not intUID = 0 then oConn.Execute("UPDATE [Users] SET [LastActivePlace] = 'ViewForum.asp?Forum=" & forum & "', [LastForum] = " & forum & ", [LastLoggedIn]= now(), [IP] = '" & GetIP & "' WHERE [uID]=" & intUID)

Set rsForums = oConn.Execute("SELECT General.*, PER_TEMPLATE.* From [General] INNER JOIN PER_TEMPLATE ON General.PER" & intGroup & " = PER_TEMPLATE.TEMPLATE_ID WHERE TopicID =" & forum )
blnModMove = rsForums("MOD_MOVE")
blnModLock = rsForums("MOD_LOCK")
blnModDelete = rsForums("MOD_DELETE")
blnModEdit = rsForums("MOD_EDIT")
blnModSplit = rsForums("MOD_SPLIT")
blnModPollEdit = rsForums("MOD_POLL_EDIT")
blnModPollDelete = rsForums("MOD_POLL_DEL")

rsTotalCount = rsTotalCount + 1
ShowAmount = Request("ShowAmount")
If ShowAmount = "" Then 'if nothing
ShowAmount = Request.Cookies(Application("COOKIE_NAME"))("ShowA mount")
If ShowAmount = "" then ShowAmount = 30
else
Response.Cookies(Application("COOKIE_NAME"))("Show Amount") = ShowAmount
end if

Set rsBBS = Server.CreateObject("ADODB.RecordSet")
rsBBS.PageSize = Application("TOPICS_PAGE")

strSQL = "SELECT BBS.*, Users.uID, Users.uName From BBS INNER JOIN Users ON BBS.LastPostBy = Users.uID WHERE BBS.ParentForum=" & int(Request("Forum"))
If ShowAmount <> "ALL" then strSQL = strSQL & " AND ThreadPostTime > #" & now() - ShowAmount & "#"
strSQL = strSQL & " AND Announcement = false ORDER BY STICKY ASC, BBS.ThreadPostTime DESC"
rsBBS.Open strSQL, oConn, adOpenStatic
rsTotalCount = rsTotalCount + 1


Else 'user has requested to see all the new posts since his last visit
Set rsBBS = Server.CreateObject("ADODB.RecordSet")
rsBBS.PageSize = Application("TOPICS_PAGE")
rsBBS.Open "SELECT BBS.*, Users.uID, Users.uName From BBS INNER JOIN Users ON BBS.LastPostBy = Users.uID WHERE ThreadPostTime > #" & dtmLastHere & "# AND LastPostBy <> " & intUID & " AND Announcement = false ORDER BY STICKY ASC, BBS.ThreadPostTime DESC", oConn, adOpenStatic
rsTotalCount = rsTotalCount + 1
End If

curPage = Request("Page")
if curPage = "" then curPage = 1
if not rsBBS.EOF then '## for forums with no topics yet
rsBBS.AbsolutePage = curPage
fAbsolutePage = rsBBS.AbsolutePage
fPageCount = rsBBS.PageCount
end if
%>