Trådstart#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
%>