Forum

Ä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...

------------------
<A HREF="http://andiee.cjb.net
"I" TARGET=_blank>http://andiee.cjb.net
"I</A> met my maker, I made him cry"

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

------------------
'*********************
Response.Write("PatrikB")
Response.End
'*********************

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.

------------------
<A HREF="http://andiee.cjb.net
"I" TARGET=_blank>http://andiee.cjb.net
"I</A> met my maker, I made him cry"

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

------------------
<A HREF="http://andiee.cjb.net
"I" TARGET=_blank>http://andiee.cjb.net
"I</A> met my maker, I made him cry"

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