Sidnavigering

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