Hjælp...

Eks:
Side: << 1 2 3 4 5 6 >>

Er der ingen der ved noget ?

Et øjeblik

http://activedeveloper.dk/locator.asp?guid=001000000031
virker godt..
rs.PageSize = 10
er hvor mange pr. side altså 10

<%   
'navigationssystemet

max = 0
currentPage = request.queryString ("id")
If currentPage = "" then 
    currentPage = "1" 
End If 

pageSize = 20

Records = rec.RecordCount       

if NOT (Records = 0) then     
    rec.pageSize = pageSize
    rec.AbsolutePage = currentPage     
End If

pageNext = currentPage + 1
pagePrev = currentPage - 1
Pages = Records \ pageSize 
if Records mod pageSize then
Pages = Pages + 1
End If

%>

<p><font  class='normtxt'><% if NOT pagePrev < 1 then %><a href=download.asp?id=<% = pagePrev %>> class='kat-link'>Forrige</a> <% else %> Forrige <% End If %> | <%  While NOT (pageNumber = Pages or max = 10) pageNumber = pageNumber + 1  %><%  max = max + 1  %>  <% if CInt (pageNumber) = CInt (currentPage)  then %>  <% = pageNumber %> |  <% else %>  <a href=download.asp?id=<% = pageNumber %> class='kat-link'> <% = pageNumber %> </a> |  <% End If %>  <% Wend %>  <% if NOT pages < pageNext then %> <a href=download.asp?id=<% = pageNext %> class='kat-link'>Næste</a> <% else %> Næste <% End If %></font></p>

___________________________________

"rec" er din connection variabel

Okay, men hvordan får jeg det sådan, at mine downloads sider automatisk deler sig med 10-20 på hver side ?

Er i gået ?

Min kilde ser således ud:
<%
Response.Buffer = True

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("demo.mdb")

If Request.QueryString("id") <> "" Then
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM Banner WHERE (ID = " & Request.QueryString("id") & ")"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then
        rs("Klik") = rs("Klik") + 1
        strURL = rs("Url")
        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
        Response.Clear
        Response.Redirect(strURL)
    End If
End If
%>

<html><head>
<title>Top Link LIst</title>
</head><body>
<p>Most Visited</p>

<%
strSQL = "SELECT * FROM Banner ORDER BY Klik DESC"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    Do While Not rs.EOF
Response.Write "<TABLE WIDTH=400 BORDER=1>"
Response.Write "<TR>"
Response.Write "<TD WIDTH=200><B><a href=Clickcount.asp?id=" & rs("ID") & ">" & rs("Navn") & "</a></B></TD>"
Response.Write "<TD WIDTH=100>Hits: " & rs("Klik") & "</TD>"
Response.Write "<TD ALIGN=right WIDTH=100><U>" & rs("Stor") & "</U></TD>"
Response.Write "</TR>"
Response.Write "<TR>"
Response.Write "<TD COLSPAN=3 WIDTH=400>" & rs("Beskrivelse") & "</TD>"
Response.Write "</TR>"
Response.Write "</TABLE>"
Response.Write "<BR>"
        rs.Movenext
    Loop   
End If
myConn.Close
Set myConn = Nothing
%>

Hvordan får jeg det sådan, at mine downloads sider automatisk deler sig med 10-20 på hver side ?

Jeg kan ikke helt få det til at virke...

Hallo,
Er i gået ?

Hvis I skal have point, skal i altså lige hjælpe....

Er i begge logget af ?

Er der ikke andre der kan hjælpe så..............?

Jeg skulle lige spise

Okai,

Jeg har lige oprettet et sp., der giver en lidt bedre forklaring:
http://www.eksperten.dk/spm/198567

<%
Response.Buffer = True

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("demo.mdb")

If Request.QueryString("id") <> "" Then
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM Banner WHERE (ID = " & Request.QueryString("id") & ")"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then
        rs("Klik") = rs("Klik") + 1
        strURL = rs("Url")
        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
        Response.Clear
        Response.Redirect(strURL)
    End If
End If
%>

<html><head>
<title>Top Link LIst</title>
</head><body>
<p>Most Visited</p>


<%
strSQL = "SELECT * FROM Banner ORDER BY Klik DESC"
Set rs = myConn.Execute(strSQL)

'navigationssystemet

max = 0
currentPage = request.queryString ("id")
If currentPage = "" then 
    currentPage = "1" 
End If 

pageSize = 20

Records = rs.RecordCount       

if NOT (Records = 0) then     
    rs.pageSize = pageSize
    rs.AbsolutePage = currentPage     
End If

pageNext = currentPage + 1
pagePrev = currentPage - 1
Pages = Records \ pageSize 
if Records mod pageSize then
Pages = Pages + 1
End If

If Not (rs.BOF Or rs.EOF) Then
%>
<p><font  class='normtxt'><% if NOT pagePrev < 1 then %><a href=download.asp?id=<% = pagePrev %>> class='kat-link'>Forrige</a> <% else %> Forrige <% End If %> | <%  While NOT (pageNumber = Pages or max = 10) pageNumber = pageNumber + 1  %><%  max = max + 1  %>  <% if CInt (pageNumber) = CInt (currentPage)  then %>  <% = pageNumber %> |  <% else %>  <a href=download.asp?id=<% = pageNumber %> class='kat-link'> <% = pageNumber %> </a> |  <% End If %>  <% Wend %>  <% if NOT pages < pageNext then %> <a href=download.asp?id=<% = pageNext %> class='kat-link'>Næste</a> <% else %> Næste <% End If %></font></p>

<%
Do While (Not rs.EOF) and (currentRecords < pageSize)
currentRecords = currentRecords + 1

Response.Write "<TABLE WIDTH=400 BORDER=1>"
Response.Write "<TR>"
Response.Write "<TD WIDTH=200><B><a href=Clickcount.asp?id=" & rs("ID") & ">" & rs("Navn") & "</a></B></TD>"
Response.Write "<TD WIDTH=100>Hits: " & rs("Klik") & "</TD>"
Response.Write "<TD ALIGN=right WIDTH=100><U>" & rs("Stor") & "</U></TD>"
Response.Write "</TR>"
Response.Write "<TR>"
Response.Write "<TD COLSPAN=3 WIDTH=400>" & rs("Beskrivelse") & "</TD>"
Response.Write "</TR>"
Response.Write "</TABLE>"
Response.Write "<BR>"
        rs.Movenext
    Loop   
End If
myConn.Close
Set myConn = Nothing
%>




Jeg har ikke testet, men det skulle vist være noget lignende

Nope, det virker ikke....

Hvad skriver den?

Most Visited

ADODB.Recordset fejl '800a0cb3'

Den handling, programmet anmodede om, understøttes ikke af provideren.

/poll/clickcount.asp, linje 49

Tjaa... jeg er blank. Jeg kan desværre ikke hjælpe dig mere.

Jeg ved ikke om det gør nogen forskel, men prøv at lave:

Set rs = myConn.Execute(strSQL)

om til:

Set rs = myConn.Execute(strSQL), 1, 3

Så skriver den bare det samme.

Nå, men ellers tak for hjælpen. Så må jeg prøve at spørge igen en anden dag ;)

Hyg dig..........

Tak for point da :-)