Faq

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

Sök den och du skola finna frid.

Hello,

leta upp raden där det står:

pad = "0"

Ändra till:

pad = " "

cya,
PatrikB

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> "

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... :)

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...

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

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.