Skal bruge <br> efter side 30

Glemte koden:
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from users ORDER BY user"
rs.open sql, conn, 1, 3

%>

HTML KODE................................

<%If Not (rs.BOF Or rs.EOF) Then

  rs.PageSize = 30
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount


Do While Not rs.EOF And intRecCount > 0
i = i + 1%>

HTML KODE................................

<%intRecCount = intRecCount - 1
rs.MoveNext
Loop
end if
Response.Write("<tr><td colspan='3'><span class='ContentTd'>Du er på side: <strong>"& Request.Querystring("page") &"</strong></span><br>")
For intnum = 1 To intPageCount
  Response.Write "<a class='KarakterL' href='user.asp?mode=ShowUsersList&amp;page=" & intNum & "'>" & intNum & "&nbsp;&nbsp;</a>"
Next
%>

Og det er "intnum" der skal skilles ved 30.

Ahh...
Fandt selv ud af det.
For intnum = 1 To 30
  Response.Write "" & intNum & "'>" & intNum & "&nbsp;&nbsp;</a>"
Next
Response.Write("<br>")
For intnum = 30 To intPageCount
  Response.Write ""& intNum & "'>" & intNum & "&nbsp;&nbsp;</a>"

Lukket

Lidt kortere kunne du:

For intnum = 30 To intPageCount
  Response.Write ""& intNum & "'>" & intNum & "&nbsp;&nbsp;</a>"
  If intnum Mod 30 = 0 Then Response.Write("<br />")
Next

Takker.. Den var faktisk lidt bedre. Skal jeg oprette et nyt spm, så du kan få lidt point.?

Det er lige meget ;-) Godt du kunne bruge det.