Forumkod till emission

Hej Emission,
Här kommer koden på forumet... :) :) :)

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

		Sub VisaBarnMeddelanden(Forelder,Niva)

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

			minSidaSize = 20

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

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

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

				'--------------------------------------------------------
				' Fler värden i recordset
				'--------------------------------------------------------
				databas.MoveFirst
				databas.PageSize = minSidaSize

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

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

			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 <> 0 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
		%>

Tack på förhand!! ;)

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