Hej!

Jag vill loopa ut länkar och vill ha en radbrytning efter VARANNAN
länk som hämtas från databas.

Så att det ser ut som följande:
Länk1 Länk2
Länk3 Länk4

Nån har nån liten lösning för detta lilla bekymmer ??

mvh
Torbjörn

Något åt detta?

j = 1
Do Until tblTemp.EOF
Response.Write(tblTemp("länkar"))
If j MOD 2 = 0 Then Response.Write("<br>")
Loop


/Janne

Nepp det funkade inte...

Bifogar scriptet. Det skriver ut som det skall men radbrytningarna
uteblir..

<%
TopCatID = Request.QueryString("TopCatID")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "data"

SQL1 ="SELECT C.KatID, C.Category, TC.TopCategory
FROM tbCategory C, tbTopCategory TC, connCatTopCat CTC
WHERE CTC.TopCatID = TC.TopCatID
AND CTC.KatID = C.KatID
AND CTC.TopCatID = " & TopCatID & "
ORDER BY Category ASC"

Set RS1 = Conn.Execute(SQL1)
%>

<%=RS1("TopCategory") & "<br>"%>

<%i = 1%>

<% Do Until RS1.EOF %>

<%If i MOD 2 = 0 Then Response.Write("<br>")%>

">
<%=RS1("Category")%>

<%
RS1.MoveNext
Loop
%>

mvh
Torbjörn

<%
Dim TopCatID
Dim Conn
Dim BreakRow

TopCatID = Request.QueryString("TopCatID")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "data"

SQL1 ="SELECT C.KatID, C.Category, TC.TopCategory" & vbCrLf & _
"FROM tbCategory C, tbTopCategory TC, connCatTopCat CTC" & vbCrLf & _
"WHERE CTC.TopCatID = TC.TopCatID AND CTC.KatID = C.KatID AND CTC.TopCatID = " & TopCatID & vbCrLf & _
"ORDER BY Category ASC"

Set RS1 = Conn.Execute(SQL1)
%>

<%=RS1("TopCategory") %><br>

<%Do Until RS1.EOF%>

">
<%=RS1("Category")%>

<%
If BreakRow Then
Response.Write("<br>")
BreakRow = False
Else
BreakRow = True
End If
RS1.MoveNext
Loop
%>

Har du inte glömt att öka J=J+1?

Tackar!

Det funkade