webForumDet fria alternativet

Sidnavigering

4 svar · 365 visningar · startad av Asa

AsaMedlem sedan dec. 20011 860 inlägg
#1

Hur lägger man in en sidnavigering på denna kod? För MySQL och Access behöver jag det!

<%Function GetDbRows(query)
	If Len("" & query) = 0 Then Exit Function
	Dim rstTemp
	Set rstTemp = CONN.Execute(query)
		If Not rstTemp.EOF Then GetDbRows = rstTemp.GetRows()
		rstTemp.Close
	Set rstTemp = Nothing
End Function

query = "Select falt From tabell Where falt=x Order x"
getField = GetDbRows(query)

If Not IsArray(getField) Then%>
  TOMT
<%Else
  For diaryCount = 0 To ubound(getField,2)%>
    <%=getField(0,diaryCount)%>
  <%Next
End If%>
TravoniMedlem sedan okt. 20041 556 inlägg
#2

Fattar ingenting.

AsaMedlem sedan dec. 20011 860 inlägg
#3

Någon annan som vet?

@ndersMedlem sedan juni 200032 969 inlägg
#4

Skulle tro att Travoni menar att han inte förstår din fråga, och det gör inte jag heller. Om du menar att du vill ha paging för getrows-arrayer?

http://www.webforum.nu/showthread.php?t=76181

AsaMedlem sedan dec. 20011 860 inlägg
#5

Jag menade paging jaa.

123 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
120 ms — hämta tråd, inlägg och bilagor (db)