Trådstart#1
I min portal så försöker jag att få ut resultat så här:
Förening ett
Första sidan Andra sidan
Förening två
Första sidan
Förening tre
Första sidan Andra sidan
Detta lyckas nu inte helt. Om förening ett har tre sidor så skrivs det ut så här:
Förening ett
Första sidan
Andra sidan Tredje sidan.
Response.Write "<table border=""1"" width=""70%"" cellspacing=0 cellpadding=0 width=""60%""><TR>"
ColEtt=1
Do While NOT Rs.EOF
strForening = RS("Forening")
If strForening1 = strForening Then
Response.Write ""
Else
Response.Write "</ul></TR><TR><TD ALIGN=CENTER colspan=2><P><H4 CLASS=blaText><FONT COLOR =""#FFFFFF"">"&_
strForening &_
"</FONT></H4></TD></TR>"
End If
If ColEtt=1 Then
'Response.Write "första"
ColEtt=2
Response.Write "<TR><TD width=""35%""><B><FONT COLOR =""#0000FF""><ul><li> "&_
"<A HREF=""visanyheter.asp?Id=" & RS("SidId") & """>"&_
RS("rubrik")&_
"</A></B></FONT></TD>"
Else
'Response.Write "andra"
ColEtt=1
Response.Write "<TD width=""35%""><B><FONT COLOR =""#0000FF""><ul><li> "&_
"<A HREF=""visanyheter.asp?Id=" & RS("SidId") & """>"&_
RS("rubrik")&_
"</A></B></FONT></TD></TR>"
End If
strForening1 = strForening
RS.MoveNext
Loop
Response.Write "</TR></TABLE>"
Några förslag till lösning?