Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Konstigt pagin fel

Postades av 2002-05-26 11:08:33 - Fredrik Martinsson, i forum asp - allmänt, Tråden har 2 Kommentarer och lästs av 351 personer

Hejsan...
Jag har stött på ett mycket konstigt problem må jag säga...

<code>
<%
file = Server.MapPath("book.mdb")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM book ORDER BY ID DESC"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

' ####### - PAGIN SCRIPTET STARTAR HÄR - #######

RecSet.pagesize = 1
sida = Request.QueryString("sida")

If sida = "" then sida = 1

if RecSet.EOF then
Response.write "Det finns inga poster att hämta i databasen"
Else

Do until RecSet.EOF or fldcounter = RecSet.pagesize
fldcounter = fldcounter + 1

RecSet.AbsolutePage = sida
totalPages = RecSet.PageCount

%>
<b><%=RecSet("Rubrik")%></b><br>
<%=RecSet("mess")%><br>
<%=RecSet("namn")%>
<%If RecSet("hemsida") = "" then
Response.write " - H"
ElseIf RecSet("hemsida") = "http://" then
response.write " - H"
Else
%>
- " target="_blank">H
<%End If%>
<%If RecSet("mail") = "" then
Response.write " - M"
ElseIf RecSet("mail") = "@" then
response.write " - M"
Else
%>
- "> M
<%End If%>
- <%=RecSet("datum")%> <br>
<br>
<%
RecSet.MoveNext
Loop
End If
%>


</font><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">br>
</font></p>
<p> </p>
</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td><img src="down.gif" width="264" height="6"></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> <img src="top.gif"></td>
</tr>
<tr>
<td background="tb_bg.gif">
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center" height="16">
<tr>
<td><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">

<%
Response.write "Första sidan "

i = 0
For i = 1 to RecSet.PageCount
Response.write ""& i &" "
Next

Response.write "Sista sidan"


RecSet.Close
Set RecSet = Nothing
Connect.close

%>
</code>


Denna koden fungera bra så länge Recset.pagesize är 1 men sätter man det till två t.ex så vissas samma inlägga två gånger och inte två olika, byttar man sida så är det samma där fast med ett nytt inlägg... är det någon som kan hitta vad jag har gjort fel tro?

Mvh


Svara

Sv: Konstigt pagin fel

Postades av 2002-05-26 11:17:08 - Johan Djupmarker

Testa att byt ordning på denna koden till såhär:

RecSet.AbsolutePage = sida
totalPages = RecSet.PageCount

Do until RecSet.EOF or fldcounter = RecSet.pagesize
fldcounter = fldcounter + 1


Jag tror att RS:et skapas på nytt när du anger AbsolutePage, därför ska du inte göra det inne i loopen.

/Johan


Svara

Sv: Konstigt pagin fel

Postades av 2002-05-27 16:14:54 - Fredrik Martinsson

Tacl för det, de var det som var fel fick hjälp av en annan innan men tack för hjälpen i alla fall...

Mvh


Svara

Nyligen

  • 21:21 1xBet Promo Code 2025
  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players
  • 19:38 Rekommendera något intressant

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 899
27 965
271 779
794
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies