webForumDet fria alternativet

Två kolumner

ASP

1 svar · 200 visningar · startad av skatan

Medlem sedan sep. 200126 inlägg
Frågan#1

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 %>

Medlem sedan apr. 20012 427 inlägg
#2

Avänd en räknarvariabel ("counter" i exempelkoden nedan) och sedan denna if-sats:

If counter mod 2 = 0 Then
259 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)