Hej jag har en sökning på en sida som söker i databasen och ger ett antal resultat som visas på en annan sida, dessa är uppdelade med paging med 10 resultat per sida. Jag skulle vilja ha ett <br> efter var femte träff på sökningen så att det ser ut nåt sånt här.

resultat1
resultat2
resultat3
resultat4
resultat5

resultat6
resultat7
resultat8
resultat9
resultat10

<< 1, 2, 3, 4 >>

min kod ser ut så här:

<code>
<%

Dim artsok, sokord, SQL, RS, RS2, intRecCount, intPageCount, intPage, intNum

artsok = Request("artsok")
sokord = UCASE(Request("sokord"))

If Request("artsok") = "Artikelnummer" Then

intPage = Request.QueryString("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = 10
RS.CursorLocation = adUseClient
RS.Open "SELECT Upper(""DE_CHSArtikelkod"") DE_CHSARTIKELKOD, Upper(F_LEFT(""DE_Beskrivning"",35)) DE_BESKRIVNING, Upper(""DE_Vikt"") DE_VIKT, Upper(""DE_CHSHuvudprislista"") DE_CHSHUVUDPRISLISTA, Upper(""DE_CHSListpris"") DE_CHSLISTPRIS, Upper(""DE_CHSRabattkod"") DE_CHSRABATTKOD FROM ""ARTIKELREGISTER"" WHERE ""DE_CHSHuvudprislista"" ='Y' AND ""DE_CHSArtikelkod"" LIKE '%" & sokord & "%'", Conn, adOpenStatic, adLockOptimistic


' Kollar om sökningen finns i databasen annars skriver den ut Response.Write
If RS.EOF Then

Response.Write "<center><div>Sökningen på <b>" & sokord & "</b> gav inga träffar.</center>"
Elseif not (RS.BOF Or RS.EOF) Then

RS.AbsolutePage = intPage
intRecCount = RS.PageSize
intPageCount = RS.PageCount

Response.Write "<div>Sida " & intPage & " av " & intPageCount
%>
<table border="0" width="780">
<%

'Visa sökresultat


Do While Not RS.EOF And intRecCount > 0

Response.Write "<tr><td width=180><div>" & RS("DE_CHSARTIKELKOD") & "</td><td width=350><div>" & RS("DE_BESKRIVNING") & "</td><td width=70><div>" & RS("DE_CHSLISTPRIS") & "</td><td width=45><div>-</td><td width=70><div>-</td><td width=65><div>" & DatePart("yyyy",Now) & DatePart("ww",Now) & "5</td>"

intRecCount = intRecCount - 1

RS.MoveNext
Loop

End If
RS.Close
Set RS = Nothing

%>

</table>
<center><br>
<%
If CLng(intPage) > 1 Then

Response.Write "<<"
Else
Response.Write "<<"
End If
Response.Write "   "
For intNum = 1 To intPageCount
Response.Write "" & intNum & " "
Next
Response.Write "   "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write ">> "
Else
Response.Write ">>"
End If
</code>

Du kan göra något sånt här:
<code>
Dim Rad
Rad = 1
Do Until RS.EOF
If Rad = 5 Then
Response.Write "<BR>"
Rad = 1
Else
Rad = Rad + 1
End If
RS.MoveNext
Loop

</code>

Nått sånt här kanske....fast Andreas var ungefär 25 ggr snyggare :=)
<%
x=1
%>


<%
if x=5 then
%>


<br>


<%
x=0
end if
x=x+1
%>

hmm, var i koden ska det in, jag får inte rätt på det

Prova så här, kanske funkar

<code>


<%

'Visa sökresultat
Dim Rad
Rad=1


Do While Not RS.EOF And intRecCount > 0

Response.Write "<tr><td width=180><div>" & RS("DE_CHSARTIKELKOD") & "</td><td width=350><div>" & RS("DE_BESKRIVNING") & "</td><td width=70><div>" & RS("DE_CHSLISTPRIS") & "</td><td width=45><div>-</td><td width=70><div>-</td><td width=65><div>" & DatePart("yyyy",Now) & DatePart("ww",Now) & "5</td>"

If Rad=5 Then
Response.Write "<BR>"
Rad=1
else
Rad=Rad+1
End if

intRecCount = intRecCount - 1

RS.MoveNext
Loop

End If
RS.Close
Set RS = Nothing

%>

det har jag testat och då får jag radbrytningen före resultat1

Var kommer nästa radbrtning? Vilken rad?

/Krister

den kommer på sida två på samma ställe ser det ut som

där kommer nog förresten 2 <br> överst på varje sida

jag bytte ut response.write <br> mot
Response.Write "<td colspan=7>&nbsp;<br><br></td>"

eftersom det ligger i en tabell så kan man ju inte sätta <br> var som helst men nu får jag mellanrum
mellan rad 4 och 5
mellan rad 5 och 6
mellan rad 9 och 10

samma på varje söksida

KAn du inte bara göra en ny rad i tabellen utan ngn text i.. t.ex. Response.Write("<tr></tr>") Det borde fungera i stället för radbrytning

Jag hade ju glömt <tr> överhuvudtaget så nu fungerar det