---
title: "Probelm med forum"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6144-probelm-med-forum"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ricki"
published: "2000-07-28T12:31:00.000Z"
updated: "2000-07-28T18:44:00.000Z"
replies: 5
views: 219
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/6144-probelm-med-forum"
---

# Probelm med forum

## #1 — Ricki, 2000-07-28T12:31Z

Tjena,
Jag har följande kod till ett forum:

```
		<%
		'--------------------------------------------------
		' Ö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 & ";"
		%>

		<script LANGUAGE="vbscript" RUNAT="Server">
		Sub VisaBarnMeddelanden(Forelder,Niva)

			Dim databas
			Set databas = Server.CreateObject("ADODB.Recordset")

			SQL = "SELECT * From FORUM WHERE Forelder=" & Forelder & " ORDER BY Datum DESC"
			databas.Open SQL, MinCon, 1, 2

			Do While Not databas.EOF

				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

			Loop

		End Sub
		</script>

		<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>
```

Jag skulle vilja dela upp sidan så att man bara ser 10 huvudmeddelande på varje sida.

Jag har försökt med scriptet "Dela upp recordset på flera sidor" i ASP FAQ, men har inte fått det att funka...

Kan man inte göra det när det ligger i en sub???

Tack på förhand...

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

## #2 — Vide, 2000-07-28T13:11Z

En sub exekverar bara koden och för ingenting tillbaks till din sida... det du vill använda är en 'function'... den funkerar likadant, bara det att du måste omfamna argumenten med paranteser:

VisaBarnMeddelanden(0,0)

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

## #3 — Ricki, 2000-07-28T14:53Z

Fungerar det att dela upp recordsettet på flera sidor då?

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

## #4 — Ricki, 2000-07-28T15:05Z

Följande kod:

```
		<%
		'--------------------------------------------------
		' Öppna databasen
		'--------------------------------------------------
		password = "xxx"
		databas = "xxx"
		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 & ";"

		Function VisaBarnMeddelanden(Forelder,Niva)

			Dim databas
			Set databas = Server.CreateObject("ADODB.Recordset")

			SQL = "SELECT * From FORUM WHERE Forelder=" & Forelder & " ORDER BY Datum DESC"
			databas.Open SQL, MinCon, 1, 2

			Do While Not databas.EOF

				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

			Loop

		End Function
		%>

		<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>
```

Generera följande felmeddelande:

```
Kompileringsfel i Microsoft VBScript fel '800a0414' 

Det går inte att använda parenteser när en Sub anropas. 

/Rickard/ricki2/forum.asp, rad 103 

VisaBarnMeddelanden(databas("MeddelandeID"),Niva+1)
---------------------------------------------------^
```

Vad är fel???

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

## #5 — emission, 2000-07-28T16:47Z

Självklart kan du använda tekniken från FAQ:n. Visa hur du försökt, så får vi se vad som är fel. 

Annars är verkar det rätt tänkt, även om det är lite konstigt med \<SCRIPT\> mitt i allt. 

Det ska vara en sub, inte en function.

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

## #6 — Ricki, 2000-07-28T18:44Z

Emmission,
Jag ska knåpa ihop ett script så kan du få titta på det... :) :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/6144-probelm-med-forum