Paging — webForum

bluespotMedlem sedan nov. 200093 inlägg

10 nov. 2004 15:01#1

Skulle behöva lite hjälp med paging, koden kommer från dreamweaver.

Om jag är på sidan ett ska det se ut såhär:
1 (2) (3) osv, siffran 1 ska även vara färgad.

<%
Dim Kundreferens__MMColParam
Kundreferens__MMColParam = "1"
If (Request.QueryString("KundId") <> "") Then 
  Kundreferens__MMColParam = Request.QueryString("KundId")
End If
%>
<%
Dim Kundreferens
Dim Kundreferens_numRows

Set Kundreferens = Server.CreateObject("ADODB.Recordset")
Kundreferens.ActiveConnection = MM_fisk_STRING
Kundreferens.Source = "SELECT * FROM Referenser WHERE KundId = '" + Replace(Kundreferens__MMColParam, "'", "''") + "'"
Kundreferens.CursorType = 0
Kundreferens.CursorLocation = 2
Kundreferens.LockType = 1
Kundreferens.Open()

Kundreferens_numRows = 0
%>