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