Tjena! Jag håller på med att skapa en länksamling till skolans community... med tiden så kommer alla elever lägga till hundratals länkar... antar jag... det blir ju inte så snyggt om man får flera meters scroll på sajten... däför tänkte jag använda paging funktionen som finns klart på Kurser & artiklar http://www.pellesoft.nu/login/articles/asp/asp_paging.asp

Utan pagingen funkar denna kod... vet inte riktigt hur jag ska göra om denna kod för att den ska synas med Paging!
<code>
If Request.QueryString("del")<> "" Then
deleteSQL = "Delete * From tblAddLink Where ID=" & Request.QueryString("del")
objConn.Execute(deleteSQL)
End If

if request.querystring("kategori") = "" Then
stmSQL = "SELECT tblAddLink.ID, tblAddLink.url, tblAddLink.beskrivning, tblAddLink.counter," & _
" tblAddLink.UserID, tblAddLink.LinkKatID, tblLinkKat.Kategorinamn," & _
" tblUser.UserName FROM (tblAddLink INNER JOIN tblLinkKat ON" & _
" tblAddLink.LinkKatID = tblLinkKat.LinkKatID) INNER JOIN tblUser ON" & _
" tblAddLink.UserID = tblUser.UserID Order By ID Desc"
else
stmSQL = "SELECT tblAddLink.ID, tblAddLink.url, tblAddLink.beskrivning, tblAddLink.counter," & _
" tblAddLink.UserID, tblAddLink.LinkKatID, tblLinkKat.Kategorinamn," & _
" tblUser.UserName FROM (tblAddLink INNER JOIN tblLinkKat ON" & _
" tblAddLink.LinkKatID = tblLinkKat.LinkKatID) INNER JOIN tblUser ON" & _
" tblAddLink.UserID = tblUser.UserID where tblAddLink.LinkKatID=" & request.querystring("kategori") & " ORDER BY id DESC"
End If

Set tblTemp = objConn.Execute(stmSQL)

counter = 0

If tblTemp.EOF Then
Response.Write "<table width=551 cellspacing=0 cellpadding=0><tr><td>Det finns inga <b>" & varKatNamn & " länkar</b> i databasen</td></tr>"

Else
if varBgr = "#d5f3fd" Then varBgr ="#ffffff" else varBgr="#d5f3fd"
%>
<table width="551" cellspacing="0" cellpadding="0">
<tr bgcolor="<%=varBgr%>">
<td>&nbsp;</td>
<td><b>Besökts</b></td>
<td><b>Adress</b></td>
<td><b>Beskrivning</b></td>
<td><b>Namn</b></td>
</tr>
<%
Do Until tblTemp.EOF
varUserID = tblTemp("UserID")
varRakna = tblTemp("counter")
varID = tblTemp("ID")
varUrl = tblTemp("url")
varTitle = Len(varUrl)
varcount = varTitle - 7
varTest = right(varUrl,varcount)
varBeskrivning = tblTemp("beskrivning")
varNamn = tblTemp("UserName")

if varBgr = "#d5f3fd" Then varBgr ="#ffffff" else varBgr="#d5f3fd"
%>
<tr bgcolor="<%=varBgr%>">
<td><%if tblTemp("UserID") = Session("UserID") or Session("Access") = 10 Then%>

title="Radera Adress">
<%Else%>
&nbsp;
<%End If%>
</td>
<td valign="top"><center>(<%=varRakna%>)</center></td>
<td><%=varUrl%></td>
<td><%=varBeskrivning%></td>
<td><%=varNamn%></td>
<%
count = count + 1
tblTemp.MoveNext
Loop

tblTemp.Close
Set tblTemp = Nothing


End If
%>
</code>
Tacksam för svar... har dead line nu på TORSDAG... Lite stressigt

Med vänliga hälsningar ZimBo :O)

Du får börja med att byta ut:
Set tblTemp = objConn.Execute(stmSQL)
till tblTemp.Open .....

Därefter sätter du in de maxvärden och sådant som står i artikeln vilket returnerar ett recordset som inte är fullt utan just så många rader du vill ha och vilken sida som skall visas.

Du måste alltså även se till att skicka runt vilket sidnummer du vill visa för att det skall fungera.

Ta i stället artikeln som grund och peta in din kod så ska du du se att det går lättare..

/Pelle

Tack pelle.... det var just det jag gjorde,,, jag det var nog bara det som var kvar att ändra.... kommer fixa det när jag kommer till plugget...berättar sen hur det gick :)

fAN VA SKÖNTTT... efter en massa labb så fick jag pagigen äntligen att fungera!! Tack pelle för as skön sajt... har lärt mig as mycket här..