Forts. Problem med forum

Tjena,
Nu har jag ändrat runt i scriptet lite, men får det fortfarande inte att funka:

		<%
		'--------------------------------------------------
		' Öppna databasen
		'--------------------------------------------------
		password    = "xxx"
		databas2    = "xxx.mdb"
		DBPath      = Server.Mappath(mid(Request.ServerVariables("PATH_INFO"),1,instrrev(Request.ServerVariables("PATH_INFO"), "\")) & databas2)
		Set MinCon  = Server.CreateObject("ADODB.Connection")
		MinCon.Open   "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DBPath & ";uid=;pwd=" & password & ";"

		'-------------------------------------------------------
		' Kolla vilken sida man befinner sig på
		'-------------------------------------------------------
		minSida = Request.Querystring("vilkenSida")
		If minSida = "" Then
			minSida = 1
		End If

		minSidaSize = 20

		Sub VisaBarnMeddelanden(Forelder,Niva)

			'-------------------------------------------------------
			' Skapa recorsetet
			'-------------------------------------------------------
			Dim databas
			Set databas = Server.CreateObject("ADODB.Recordset")

			'-------------------------------------------------------
			' Ändra några värden i recordset
			'-------------------------------------------------------
			databas.cursorlocation = 3
			databas.cachesize = 1

			'-------------------------------------------------------
			' Öppna sql och recordset
			'-------------------------------------------------------
			SQL = "SELECT * From FORUM WHERE Forelder=" & Forelder & " ORDER BY Datum DESC"
			databas.Open SQL, MinCon, 1, 2

			'--------------------------------------------------------
			' Fler värden i recordset
			'--------------------------------------------------------
			//Rad 111// If Not databas("Forelder") <> 0 Then
				databas.MoveFirst
				databas.PageSize = minSidaSize

				Maxcount = Cint(databas.PageCount)
				databas.AbsolutePage = minSida

				howmanyrecs = 0
				howmanyfields = databas.Fields.Count-1
			End If

			Do While Not databas.EOF And howmanyrecs < databas.pagesize

				Response.Write "<tr>"
				Response.Write "<td>"

				For slinga = 1 to Niva
					Response.Write "&nbsp;&nbsp;"
				Next

				Response.Write "<a href='forum.asp?id=lasa&nr=" & databas("MeddelandeID") & "'>" & databas("Amne") & "</a>"
				Response.Write "</td>"

				Response.Write "<td nowrap>" & databas("Postare") & "</td>"
				Response.Write "<td nowrap>" & FormatDateTime(databas("Datum"),2) & "</td>"
				Response.Write "</tr>"
	

				VisaBarnMeddelanden databas("MeddelandeID"),Niva+1
				databas.MoveNext

				howmanyrecs = howmanyrecs + 1

			Loop

			databas.Close
			Set databas = nothing

		End Sub
		%>

		<table border="0" width="99%" cellpadding="0" cellspacing="0">
		  <tr>
		    <td width="60%"><strong>Meddelanden</strong></td>
		    <td width="20%"><strong>Postat av</strong></td>
		    <td width="20%"><strong>Datum</strong></td>
		  </tr>

		<%
		'--------------------------------------------------
		' Anropa subben
		'--------------------------------------------------
		VisaBarnMeddelanden 0,0
		%>

		</table>

		<%
		'--------------------------------------------------------
		' Skriv ut navigeringsmenyn för vilken sida man e på
		'--------------------------------------------------------
		If MaxCount <> 1 Then
			Response.Write "Du befinner dig på sida <b>" & minSida & "</b> av <b>" & maxcount & "</b> - Till: "
			Pad = "0"
			Scriptname = Request.Servervariables("script_name")

			For Counter = 1 To maxcount
				If Counter => 10 Then
					Pad = ""
				End If

				Ref = "<a href=" & Scriptname & "?vilkenSida=" & Counter & "&pagesize=" & minSidaSize & "&id=main>" & Counter & "</a>"

				If Not cStr(minSida) = cStr(Counter) Then
					Response.Write "<b>" & Ref & "</b> "
				Else
					Response.Write "<b>" & minSida & "</b> "
				End If

				If Counter Mod 10 = 0 Then
					Response.Write "<br>"
				End If

			Next

		End If
		%>

Jag får följande felmeddelande:

fel '80020009' 
Undantag inträffade. 

/rickard/ricki2/forum.asp, rad 111

------------------
Hälsningar Ricki
www.ricki.nu