Avänd en räknarvariabel ("counter" i exempelkoden nedan) och sedan denna if-sats:
If counter mod 2 = 0 Then
1 svar · 200 visningar · startad av skatan
Tjenare!
Jag hållt på hela dagen för att få en lösning till mitt lilla problem.
Jag vill ha så att datan från min gästboks databas loopas ut så här:
Nicklas 5 Greta 2
Johan 4 Ove 1
Per 3
HTML:
<table>
<tr>
<td>Värde 1</td>
<td>Värde 3</td>
</tr>
<tr>
<td>Värde 2</td>
<td>Värde 4</td>
</tr>
</table>
Jag har en lösning här, fast då radas den itne upp som jag vill ha den.
<%
nextPage = TRIM( Request( "nextPage" ) )
IF nextPage = "" THEN nextPage = 1
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db/gastbok.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.CursorLocation = 3
SQL = "SELECT * FROM skatan_gastbok ORDER BY id desc"
RecSet.Open SQL, Connect
RecSet.PageSize = 10 '<-- Här bestämmer du hur många inlägg det ska finnas på sidan
RecSet.AbsolutePage = nextPage
tmpX = 0
Response.Write "<table>"
Do until RecSet.EOF OR rowCount > RecSet.PageSize
rowCount = rowCount + 1
if tmpX = 0 then
response.Write "<tr>"
end if
Response.Write "<td>" & Recset("name") & " " & Recset("id") & "</td>"
tmpX = tmpX + 1
if tmpX = 2 then
response.Write "</tr>"
tmpX = 0
end if
'Loopa igenom
RecSet.MoveNext
Loop
if tmpX = 1 then
Response.write "</tr>"
end if
Response.write "<table>"
' Börja paging
IF RecSet.PageCount > 1 THEN
FOR a = 1 to RecSet.PageCount
IF a <> cINT( nextPage ) THEN
Response.Write "<a href='gastbok.asp?nextPage="& a &"'>"& a &"</a>"
ELSE
Response.Write " "& a
END IF
NEXT
END IF %>
Avänd en räknarvariabel ("counter" i exempelkoden nedan) och sedan denna if-sats:
If counter mod 2 = 0 Then