Ta bort mellanslaget mellan > och =
------------------
Gunnar Liljas - webbutvecklare
Leon Reklambyrå AB
11 svar · 235 visningar · startad av tapani
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...
Ta bort mellanslaget mellan > och =
------------------
Gunnar Liljas - webbutvecklare
Leon Reklambyrå AB
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??
Hur ser din kod ut nu?
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>
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]
Japp det var det Vide.
Tack..
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?
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å?