webForumDet fria alternativet

Dela upp recordset på flera sidor??

ASP

11 svar · 235 visningar · startad av tapani

Medlem sedan apr. 200093 inlägg
Frågan#1

Har använt mig av den som finns här under FAQ - ASP

får det här felmeddelandet:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/sfsdb/resultat.asp, line 47

If counter > = 10 then
-------------^

Någon??

Tack...

Medlem sedan dec. 19996 721 inlägg
#2

Ta bort mellanslaget mellan > och =

------------------
Gunnar Liljas - webbutvecklare
Leon Reklambyrå AB

Medlem sedan apr. 200093 inlägg
#3

Nu börjar det likna något.

tack..

Medlem sedan apr. 200093 inlägg
#4

Ser sidorna och det verkar som om den räknar efter hur många poster jag har i databasen men den visar ingen info från databasen.. tomt??

Har ändrat sökvägen till databasen och
vilket tabell jag vill ta fram samt
vilka fält..
Är det något mer man måste göra??

Medlem sedan dec. 19996 721 inlägg
#5

Hur ser din kod ut nu?

Medlem sedan apr. 200093 inlägg
#6

Så här ser koden ut:
---------------------


<table>
<%
mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 40

SQL = "Select * From Res Order by Diff, ENamn"

Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("resultat.mdb")
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
If rstemp.EOF then
   Response.write "Inga träffar vid sökning av ordet " & sok
Else
   rstemp.movefirst
   rstemp.pagesize = mypagesize
   maxcount = Cint(rstemp.pagecount)
   rstemp.absolutepage = mypage
   howmanyrecs = 0
   howmanyfields = rstemp.fields.count -1
   Do While Not RStemp.EOF AND howmanyrecs > rstemp.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "CCCC99"
   Else       color = "CCCC66"
   End If
   %>< br>   <tr bgcolor="<%=color%>"><td><%= rstemp("Datum")%></td><td><%= rstemp("Namn") & " " & rstemp("ENamn")%></td><td><%= rstemp("Diff")%></tr>
   <%
   rstemp.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   rstemp.close
   Set rstemp = nothing
   %>
   <tr><td><hr></td></tr>
   <tr><td>
   <%
   If maxcount <> 0 then
   response.write "sida " & mypage & " av " & maxcount & "<br>" & sidor:
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter >= 40 then
      pad = ""
   End If
   ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
   response.write ref & " "
   if counter mod 40 = 0 then
      response.write "<br>"
   End If
   Next
   End If
End If
%>
</td></tr>
</table>
Medlem sedan dec. 19998 577 inlägg
#7

Undrar om det kan vara detta:

Do While Not RStemp.EOF AND howmanyrecs > rstemp.pagesize

Testa och byt ut > mot <...

Skall genast ändra i FAQ:n... ursäkta mig! :l :)

------------------
www.webeye.nu

[Redigerat av Vide den 29 jun 2000]

Medlem sedan apr. 200093 inlägg
#8

Japp det var det Vide.
Tack..

Medlem sedan apr. 200093 inlägg
#9

Kan man enkelt baka in i koden att den
skriver en siffra (nummerföljd) i en kolumn.. ja som en räknare 1-100 typ?

Medlem sedan apr. 200093 inlägg
#10

Upptäckte en annan grej..

Har en lista med tider..
Den är sorterad efter minsta tiden först osv..

när den sedan kommer till:

1.94 så kommer
12.31 och efter det
2.08

????

Varför gör den så?

Medlem sedan mars 20002 836 inlägg
#11

Hello,

vad lagrar du tiderna i för typ av fält?
Text eller datum/tid ?

------------------
=================================
** ZWGdesign **
=================================

Medlem sedan apr. 200093 inlägg
#12

ahhh, text så klart.

tack...

247 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
120 ms — deklarationer (db)
0 ms — hämta statistik (cache)
124 ms — hämta tråd, inlägg och bilagor (db)
120 ms — ändringar (db)