Eftersom jag inte fick något svar alls(!) på mitt sista inlägg, så gör jag nu ett nytt försök.
Ett antal föreningar kan lägga till presentationssidor, som ligger i databasen.
På den länksidan jag har, så vill jag visa införmationen så här:
Första föreningen
Första sidan
Andra sidan
Andra Föreningen
Första sidan
Tredje Föreningen
Första sidan
Andra....osv
Jag har nu lyckats med att få ihop det där med cellerna ganska så hyfsat, men jag har en bugg i systemet så den visar inte vilkar sidor som tillhör rätt förening, på ett rätt sätt.
Så här ser koden ut:
Set RS = Server.CreateObject("ADODB.Recordset")
sql = "select SidId, Forening,Rubrik from t_hemsida Order By Forening,SidId"
Set Rs=Connection.Execute(SQL)
Numcols=2
If NOT Rs.EOF Then
Response.Write "<table border=""0"" width=""70%"" cellspacing=0 cellpadding=0>"
Do While NOT Rs.EOF
strForening = RS("Forening")
If strForening1 = strForening Then
Response.Write ""
Else
Response.Write "<TR><TD ALIGN=CENTER colspan=2><P><H4 CLASS=blaText><FONT COLOR =""#FFFFFF"">"&_
strForening &_
"</FONT></H4></TD></TR>"
End If
Response.Write "<TR>"
For i=1 to Numcols
Response.Write "<TD>"
If RS.EOF THEN
Response.Write " "
Else
Response.Write "<B><FONT COLOR =""#0000FF""><ul><li> "&_
"<A HREF=""visanyheter.asp?Id=" & RS("SidId") & """>"&_
RS("rubrik") & "</A></B></FONT>"
RS.MoveNext
End If
Response.Write "</TD>"
NEXT
Response.Write "</TR>"
strForening1 = strForening
Loop
Response.Write "</TABLE>"
End If
Eftersom jag har suttit och plitat ganska så många dagar nu med det här, utan att hitta en lösning, så vore jag tacksam om någon skulle vilja försöka.
sql = "select SidId, Forening,Rubrik from t_hemsida Order By Forening,SidId"
Set Rs=Connection.Execute(SQL)
columns = 0
If NOT Rs.EOF Then
Response.Write "<table border=""0"" width=""70%"" cellspacing=0 cellpadding=0>"
strForening1 = ""
Do While NOT Rs.EOF
strForening = RS("Forening")
If strForening1 <> strForening Then
if columns > 0 then
columns = 0
response.write "</TR>"
end if
Response.Write "<TR><TD ALIGN=CENTER colspan=2><P><H4 CLASS=blaText><FONT COLOR =""#FFFFFF"">"&_
strForening &_
"</FONT></H4></TD></TR>"
strForening1 = strForening
End If
if columns = 0 then
Response.Write "<TR>"
end if
Response.Write "<TD>"
Response.Write "<B><FONT COLOR =""#0000FF""><ul><li> "&_
"<A HREF=""visanyheter.asp?Id=" & RS("SidId") & """>"&_
RS("rubrik") & "</A></B></FONT>" ' ? hur är det med ordningen ?
Response.Write "</TD>"
columns = columns + 1
if columns = 2 then
Response.Write "</TR>"
columns = 0
end if
rs.movenext
Loop
Response.Write "</TABLE>"
End If
------------------ essentitia preter non sans multiplicandum
