9 svar · 155 visningar · startad av Kent
Hittade under faq för asp hur man delar upp sidan på olika recordset, i koden står det din sökning gav inga träffar på order ?, kan man bara använda detta för sökmotorer,
det jag vill ha är en kod som delar upp gästboken på olika recodrset var 25 inlägg, någon som har en sådan kod.
Koden funkar på alla slags recordset, byt ut texten mot vad du vill att det skall stå om det inte finns några poster på SQL-satsens sökning...
Koden funkar ju inte, får upp felmeddelande
Expected statement
/rec.asp, line 85
=RStemp("namn")></td></tr>
^
Visa lite mer kod, så skall vi se om vi kan lösa problemet...
<table>
<%
mypage = Request("whichpage")
If mypage = "" then
mypage = 1
End If
mypagesize = 10
SQL = "Select * From tabell Order by fält"
Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("path/databas.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
%>
<tr bgcolor="<%=color%>"><td><%=RStemp("namn")></td></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 > = 10 then
pad = ""
End If
ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
response.write ref & " "
if counter mod 10 = 0 then
response.write "<br>"
End If
Next
End If
End If
%>
</td></tr>
</table>
Hur är det med sökvägen till databasen, är den rätt?
Har sökt på rätt fältnamn? man skall nog undvika att använda svenska tecken som fältnamn... (åäö)...
Allting är rätt inställt,
men varför får jag upp fel,
Expected statement
/rec.asp, line 85
=RStemp("namn")></td></tr>
^
det pekar ju på att felet är =
OK nu var det uppklarat, får nu upp fel,
Syntax error
/rec.asp, line 101
If counter > = 10 then
-------------^
ni kanske borde se till att koderna funkar innan dom läggs ut. :e
Byt till:
If counter > 9 then
