Jag vill loopa ut så här
Jag har nyheter med olika språk ,
Så nu vill jag loppa ut dom så här

Svenska
headline
headline
headline

Engelska
headline
headline

Finska
headline
headline
headline

hur gör jag ?


<code>
sSQL = "SELECT tbl_News.*, tbl_NewsContent.*" &_
"FROM tbl_News INNER JOIN tbl_NewsContent ON tbl_NewsContent.NewsID = tbl_News.NewsID" &_
" ORDER BY tbl_News.PublishDate DESC"

'Execute SQL-query
set oRS = gRS_Open( sSQL )

'Extract results

Do Until oRS.Eof

< ------------- Här vill jag loppa ---------------------->

oRS.MoveNext
Loop

</code>

Jag löset den , tror att jag fick hjärn släpp ?

<code>
Do Until oRS.Eof
iLangID = oRS("LanguageID")

If LastiLangID <> iLangID Then
If iLangID = "1" Then Language = "Engelska nyheter"
If iLangID = "2" Then Language = "Svenska nyheter"
If iLangID = "3" Then Language = "Finska nyheter"
sHTML = sHTML & "<tr>"
sHTML = sHTML & "<td colspan=""2"">"& Language &"</td>"
sHTML = sHTML & "</tr>"
' Response.Write "<br>" & Language & "<br><br>" & vbCrLf
LastiLangID = iLangID
End If

sHTML = sHTML & "<td width=""150"">"& oRS("PublishDate") &"</td>"
sHTML = sHTML & "<td>"& oRS("Headline") &"</td>"
sHTML = sHTML & "<tr>"
sHTML = sHTML & "</tr>"

oRS.MoveNext
Loop

</code>