---
title: "Forum"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7440-forum"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Andiee"
published: "2000-12-17T10:49:00.000Z"
updated: "2000-12-18T09:08:00.000Z"
replies: 5
views: 195
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/7440-forum"
---

# Forum

## #1 — Andiee, 2000-12-17T10:49Z

Jag hra fixat till ett litet trädforum nu som egentligen är ganska klumpigt. Jag loopar först alla ämnen. Sen loopar jag alla svar på det. Och sne loopar jag alla svar på det. Jag betsämmer på detta sätt hur många svar det får bli. Nu undrar jag om det fins något enklare sätt än detta klumpiga.

Jag hoppas ni nu förstår vad jag menar...

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

## #2 — Andiee, 2000-12-17T21:20Z

Är kommer lite kod:

```
	<%

	sida = Request( "sida" )
	If sida = "" THEN sida = 1

		Set Connect = Server.CreateObject("ADODB.Connection")
		Connect.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("forum.mdb")

		Set RecSet = Server.CreateObject("ADODB.Recordset") 

	RecSet.CursorType = adOpenStatic

	RecSet.PageSize = 5

		Forum = "SELECT * FROM forum WHERE svarid = 0 ORDER BY id DESC"
		RecSet.Open Forum, Connect, adOpenStatic, adLockOptimistic

	RecSet.AbsolutePage = cINT( sida )
	%><%
	rowCount = 0
		color = "#ffffff"
	WHILE NOT RecSet.EOF and rowCount < RecSet.PageSize
		IF color = "#ffffff" THEN 
			COLOR="#efefef"
		ELSE
			COLOR="#ffffff"
		END IF
	%><tr bgcolor="<% = color %>"><td width="15"><% = Ikon(RecSet("ikon")) %></td><td><font class="text"><a href="visa_forum.asp?id=<% = RecSet("id") %>"><% = RecSet("rubrik") %></a> - av: <% = RecSet("namn") %></font></td><td width="75" align="right"><font class="text"><% If RecSet("datum") = date() Then %>idag<% Elseif RecSet("datum") = date() -1 Then %>igår<% Else %><% = RecSet("datum") %><% End If %></font></td></tr>
	<%

	Post = RecSet("id")

	%><%

		Set RecSet2 = Server.CreateObject("ADODB.Recordset") 

		Forum2 = "SELECT * FROM forum WHERE svarid = " & Post & " ORDER BY id DESC"
		RecSet2.Open Forum2, Connect, adOpenStatic, adLockOptimistic

	%><%	
	WHILE NOT RecSet2.EOF 

	%><tr bgcolor="<% = color %>"><td width="15"></td><td><img src="none" width="10" height="1"><img src="bilder/forum_pil.gif"><font class="text"><a href="visa_forum.asp?id=<% = RecSet("id") %>"><% = RecSet("rubrik") %></a> - av: <% = RecSet("namn") %></font></td><td width="75" align="right"><font class="text"><% If RecSet("datum") = date() Then %>idag<% Elseif RecSet("datum") = date() -1 Then %>igår<% Else %><% = RecSet("datum") %><% End If %></font></td></tr>
	<%
	RecSet2.MoveNext
	WEND
	%>
	<%
	rowCount = rowCount + 1
	RecSet.MoveNext
	WEND
	%>
```

Allt funkar inte så bättrra gärna på det. Just nu gör den grenar men börjar alltid med samma färg och med samma rubrik...

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

## #3 — PatrikB, 2000-12-17T23:51Z

Hello Andiee,

har man detta på sin sida:

> » Har du lust att hjälpa mig med lite ASP-kod?
>
> \- Nja, är du ute efter ASP-kod har du kommit fel, men handlar det om pengar är jag intresserad.

så kan du snart räkna ut vad du kommer att hitta här.....

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

## #4 — Andiee, 2000-12-18T08:16Z

Jo, men jag vill inte ha jobbiga mail. Är det för enkla grejer har jag skiickat dem hit eller till IDGs webstudio. Jag har fått erbjudanden att göra gästbok men skickat dem hit och ladda ner istället.
Det kanske är skrivet lite fel av mig.

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

## #5 — Andiee, 2000-12-18T08:20Z

För er som fortfarande är sugna på att hjälpa mig undrar jag hur man gör så att varannan \<TR\> blir grå?

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

## #6 — Nickemannen, 2000-12-18T09:08Z

\<%
Do Until Rs.Eof
If sBgcolor = "" Then
sBgcolor = "Gray"
Else
sBgcolor= ""
End If
%\>
Kod
\<TR Bgcolor="\<%sBgcolor%\>"\>
\<Td\>Kod.....\</Td\>
\</TR\>
\<%Rs.MoveNext
Loop%\>

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

---

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