Formater udtræk med links ovs.
Jeg har en paging kode som virker fint, men hvor dan får jeg lavet resultater om til links i en tabel ovs.resultater udskrives med
Response.Write aResults(iColLoop , iRowLoop) & " "
hvordan kan jeg få lavet links på på resultaterne, samt bestemme hvilke kolonner jeg vil vise
håber i forstår ??
KODE:
Dim aResults
aResults = RS.GetRows
End If
'/ Close Conn
rs.Close
Set rs = Nothing
Dim iRows, iCols, iRowLoop, iColLoop, iStop,siRows
iRows = UBound(aResults, 2)
iCols = UBound(aResults, 1)
If iRows > (iOffset + iStart) Then
iStop = iOffset + iStart - 1
Else
iStop = iRows
End If
For iRowLoop = iStart to iStop
For iColLoop = 0 to iCols
Response.Write aResults(iColLoop , iRowLoop) & " "
Next
Response.Write "<BR>"
Next
'/ udskriv data
Response.Write "<P>"
if iStart > 0 then
'Show Prev link
Response.Write "<A HREF=""GetRows.asp?Start=" & iStart-iOffset & _
"&Offset=" & iOffset & """><<</a>" & " "
end if
