Hej jag hittade följande skript, har försökt att göra om den till radbyte efter 4 columner i stället för 2.

Har använt elseif, men det fungerar inte.

Någon som vill hjälpa mig?

MVH
Bo


<table>

<%...%>
<%
HÄMTA VIA SQL
Q = 0 ' för att inte balla ur om vi får 0 rader
WHILE NOT rs.EOF
IF Q <> 2 THEN
Q = 2
%>
<tr>
<td> <%=rs("x")%> </td>

<%...%>
<%
ELSE
Q = 1
%>
<td> <%=rs("x")%> </td>
</tr>

<%...%>
<%
END IF
rs.MoveNext
Wend
rs.Close
If Q = 1 Then
%>
<td>&nbsp;</td></tr>

<%...%>
<%
End If
%>
</table>

Hej!
Är det samma problem som förra inlägget? i så fall håll dig till Johans kodsnutt.
<code>
i = 1
while not rs.EOF
Response.Write "blablabla"
if i mod 4 = 0 then //Ifall resten av 'i' delat på 4 är 0 betyder det att detta är en rad delbar med 4
Response.Write "<br>"
end if
i=i+1
wend
</code>
och lägg in ditt Recorset vid raden "Response.write "blablabla""

//Jocke

Hej, jag har försökt att sätta in detta i mitt skript men jag kan inte få rätt på det. Jag klistrar in så som jag använder till 2 columner. Finns det någon som vill skriva om det, eller peka på var jag ska ändra, för det kvittar hur jag än gör ändå får jag inte ihop det. Tack på förhand. //Bo


RS.PageSize = 10
TotalPages = RS.PageCount
RS.AbsolutePage = RSPage

i=0

Q=0






WHILE NOT RS.EOF and not i= CInt(10)
i=i+1
Namn = RS("Namn")
Datum = RS("Datum")
Hemsidor_ID = RS("Hemsidor_ID")
Bild1 = RS("Bild1")
Tid = RS("Tid")
if Q <> 4 Then
Q=4






%>
<TABLE border=1 cellpadding=0 width=600 cellspacing=0 maxwidth=600>
<tr>
<td width=60><%=rs("Bild1")%> <input type=hidden name="visa" value=1> </td>



<%
else

Q=1
%>
<td width=60><%=rs("Bild1")%><input type=hidden name="visa" value=1> </td>

</tr>



<%
'Count total hits
TotalHits = RS.RecordCount


%><% End if
RS.MoveNext
WEND
%>
<%If Q = 1 Then
%>
<td>&nbsp;</td></tr>


<%
End If
%>


</TABLE>

om du slutar använda tabeller för layout så kommer himlen att uppenbara sig! :)