Jag undrar om det finns nåot standard-exempel på hur man söker i en databas om man till exmepl utgår från Vides kod för uppdelning av ett recordset:[kod] <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 "Där fanns det ju inget... " & 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
Response.write "<tr bgcolor='" & color & "'><td>" & RStemp("fält") & "</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> [/kod]eftersom detta kommer behövas om databasen består av 14000 poster som min gör (alla Lunds Kommuns företag) och man ibland kan få några hundra poster.
Så om du finns något sätt att söka i denna så skulle det undelätta riktigt mycket
------------------
Mvh Martin Persson
www.Costodia.com, http://www.martinpersson.com, http://www.merinternet.com/ , http://www.sveriges.com/ , http://www.sigill.net/ , www.dress.nu/ , mittinternet.com/
[Redigerat av costodia den 03 maj 2001]
<%
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 "Där fanns det ju inget... " & 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
Response.write "<tr bgcolor='" & color & "'><td>" & RStemp("fält") & "</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> [/kod]eftersom detta kommer behövas om databasen består av 14000 poster som min gör (alla Lunds Kommuns företag) och man ibland kan få några hundra poster.
Så om du finns något sätt att söka i denna så skulle det undelätta riktigt mycket
------------------
Mvh Martin Persson
www.Costodia.com, http://www.martinpersson.com, http://www.merinternet.com/ , http://www.sveriges.com/ , http://www.sigill.net/ , www.dress.nu/ , mittinternet.com/
[Redigerat av costodia den 03 maj 2001]
Comment