Faq

Använder mig av koden från FAQ för ASP/VBScript för att dela upp recordseten på olika sidor, som det ser ut nu,
01 02 03 04 05 osv
hur gör man för att ta bort nollorna så det blir
sida 1 2 3 4 5 5 osv.

Ledtråd: En variabel vid namn pad är lösningen på din gåta.

Sök den och du skola finna frid.

------------------
° 4711 - the number of the geek °

Hello,

leta upp raden där det står:

pad = "0"

Ändra till:

pad = " "

cya,
PatrikB

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

Får upp fel,
Object required: 'rstemp'

/rec.asp, line 52

Jag vet inte vad ni skulle gjort men jag skulle tagit bort alla pad som fanns i koden och i denna rad.

ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" (bort)& pad (slut) & counter & "</a> "

------------------
- Swey
Bäst, vackrast, styggast...

[Redigerat av Swey den 28 aug 2000]

Jo men det var ju inte direkt svaret på min fråga.
Varför får jag upp,
Object required: 'rstemp'
/rec.asp, line 52
på rad 52 ligger,

rstemp.cursorlocation = 3

Ingen som vet vad det är för fel.

Det betyder att objektet rstemp inte är initierat... men lägg ut koden så kan man lättare se vad som är fel... :)

------------------
PC-älskare prasslar i säven, och har malt i ryggen
www.webeye.nu
Är du med i facket?

Oki här kommer den,

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

SQL = "select * from Rec order by Datum desc"
Set RS = Databas.Execute(SQL)

rstemp.cursorlocation = 3
rstemp.cachesize = 5
If rs.EOF then
   Response.write "Inga träffar.! " & 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 < rs.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "COCOCO"
   Else
      color = "C0C0C0"
   End If 
%> 

<%=RS("tabell")%>

   <%
   rstemp.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   rs.close
   Set rstemp = nothing
   %>
   <tr><td><hr></td></tr>
   <tr><td>
   <%
   If maxcount <> 0 then
   response.write "sida " & mypage & " av " & maxcount & "<br>" & sidor:
   pad = " "
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter > 9 then
      pad = ""
   End If
   ref = " <a href='" & scriptname & "?sida=" & counter & "&persida=" & mypagesize & "'>" & pad & counter & "</a> "
   response.write ref & " "
   if counter mod 10 = 0 then
      response.write "<br>"
   End If
   Next
   End If
End If
%>

Oki, vad jag ser är att du har missat en hel del kod före ditt error... kolla i FAQn och plocka ut det du behöver...

------------------
PC-älskare prasslar i säven, och har malt i ryggen
www.webeye.nu
Är du med i facket?

Har gått igenom den ett flertal gånger, hittar inget fel.

Du får bestämma dig för om recordsetet ska heta rstemp eller rs. Liksom. :)

Hallo, har även försökt med rs men får iallafall upp samma fel på samma rad. :l

har du testat med:

Set RS = Server.CreateObject("ADODB.Recordset")

Istället för:

Set RS = Databas.Execute(SQL)

PatrikB

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

Vad jag menar är att du skapar recordsetet RS, men jobbar med ett recordset som heter rstemp, som aldrig skapas. Du måste fixa det. Byt namn på alla rs till rstemp.

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