---
title: "Forumkod till emission"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6145-forumkod-till-emission"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ricki"
published: "2000-07-28T19:03:00.000Z"
updated: "2000-07-28T20:53:00.000Z"
replies: 8
views: 235
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/6145-forumkod-till-emission"
---

# Forumkod till emission

## #1 — Ricki, 2000-07-28T19:03Z

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!! ;)

Permalänk: https://www.webforum.nu/p/6145

## #2 — Ricki, 2000-07-28T19:07Z

Jag får detta felmeddelande:

ADODB.Recordset fel '800a0bcd' 
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats; åtgärden som programmet begärt kräver en aktuell post. 

/Rickard/ricki2/forum.asp, rad 113

Permalänk: https://www.webforum.nu/p/244831

## #3 — Vide, 2000-07-28T19:23Z

Är rad 113 denna: databas.MoveFirst?

Bädda in detta i:

If NOT databas.EOF then

Permalänk: https://www.webforum.nu/p/244832

## #4 — Ricki, 2000-07-28T19:25Z

Jag tror inte det, men jag ska testa... :)

Permalänk: https://www.webforum.nu/p/244833

## #5 — Vide, 2000-07-28T19:32Z

När nånting är EOF när du kör en .MoveFirst så betyder ju det att det inte finns några poster som matchar din sökning... vad innehåller variabeln foralder???

Permalänk: https://www.webforum.nu/p/244834

## #6 — Ricki, 2000-07-28T19:33Z

Det var den raden, du hade rätt,m :)
Jag testade att lägga den innanför do while not databas.EOF, men funkar ändå ej....

Permalänk: https://www.webforum.nu/p/244835

## #7 — Vide, 2000-07-28T19:40Z

Nje, nej... movefirst gör ju så att markören till recordsettet lägger sig på första posten, och den måste ju ligga före det att du börjar loopa igenom posterna...

Vad innehåller variabeln foralder?

Permalänk: https://www.webforum.nu/p/244836

## #8 — Ricki, 2000-07-28T19:44Z

I loopen gör man ju detta:

VisaBarnMeddelanden databas("MeddelandeID"),Niva+1

Så forelder innehåller ett id, typ 64, 36, 28 mm.

Permalänk: https://www.webforum.nu/p/244837

## #9 — emission, 2000-07-28T20:53Z

1\. Gör om skriptet så att de avancerade "paging"-funktionerna bara aktiveras på 0-nivån, dvs. när det är ett rotmeddelande.

2\. Variabeln "databas" är redan utnyttjad utanför subben. Byt namn på någon av dem.

Permalänk: https://www.webforum.nu/p/244838

---

Tråden på webben: https://www.webforum.nu/amne/asp/6145-forumkod-till-emission