hmm..no_doubt.....jeg skulle jo lave det...jeg kan også godt lave det med paging....men den laver en fejl....jeg ved ikke om username er et reserveret ord :(
<html><head> <title>Paging af et recordset</title> </head><body>
<% intPage = Request(\"page\") If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If
Set rs = Server.CreateObject(\"ADODB.RecordSet\") strSQL = \"SELECT Username FROM users\" strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\") rs.Open strSQL, strDSN, 1 If Not (rs.BOF Or rs.EOF) Then rs.PageSize = 10 rs.AbsolutePage = intPage intRecCount = rs.PageSize intPageCount = rs.PageCount Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\" Do While Not rs.EOF And intRecCount > 0 Response.Write rs(\"Username\") & \"<br>\" intRecCount = intRecCount - 1 rs.MoveNext Loop End If rs.Close Set rs = Nothing
Response.Write \"<p>Gå til side \" For intNum = 1 To intPageCount Response.Write \"<a href=paging.asp?page=\" & intNum & \">\" & intNum & \"</a> \" Next
Response.Write \"<p>\" If Clng(intPage) > 1 Then Response.Write \"<a href=paging.asp?page=\" & intPage - 1 & \"><<</a>\" Else Response.Write \"<<\" End If
Response.Write \" \"
If Clng(intPage) < Clng(intPageCount) Then Response.Write \"<a href=paging.asp?page=\" & intPage + 1 & \">>></a> \" Else Response.Write \">>\" End If %>
okay nu ser det sådan ud : <% intPage = Request(\"page\") If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If
Set rs = Server.CreateObject(\"ADODB.RecordSet\") strSQL = \"SELECT Username FROM users\" strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\") rs.Open strSQL, strDSN, 1 If Not (rs.BOF Or rs.EOF) Then rs.PageSize = 10 rs.AbsolutePage = intPage intRecCount = rs.PageSize intPageCount = rs.PageCount Response.Write \"Side \" & intPage & \" af \" & intPageCount & \"<p>\" Do While Not rs.EOF And intRecCount > 0 Response.Write rs(\"Username\") & \"<br>\" intRecCount = intRecCount - 1 rs.MoveNext Loop End If rs.Close Set rs = Nothing
Response.Write \"<p>Gå til side \" For intNum = 1 To intPageCount Response.Write \"<a href=allusers.asp?page=\" & intNum & \">\" & intNum & \"</a> \" Next
Response.Write \"<p>\" If Clng(intPage) > 1 Then Response.Write \"<a href=allusers.asp?page=\" & intPage - 1 & \"><<</a>\" Else Response.Write \"<<\" End If
Response.Write \" \"
If Clng(intPage) < Clng(intPageCount) Then Response.Write \"<a href=allusers.asp?page=\" & intPage + 1 & \">>></a> \" Else Response.Write \">>\" End If %>
Er det lovligt med den tidsfrist han sætter på? ..og så trække points fra ?..
Jeg synes iallefald det strider imod Eksperten\'s concept. Man stiller et spørgsmål, hvor nogen er så FLINKE at svare, man stiller ikke et spørgsmål og FORLANGER det ene og det andet, eller har jeg misforstået det hele?
Nåh, der blev jo ikke trukket point fra. Men selvfølgelig ville det nok have været mere korrekt at sætte spørgsmålet til 65 og så smide ekstra oveni hvis svaret faldt hurtigt.
moonduck> Tja, spørgsmålet er stillet 23:32 i går aftes, og med -15 point pr. kvarter derefter, så går det jo ret hurtigt dernedad.. :-=
kornfreak> Jeg ved det ikke. Umiddelbart står der ikke noget i reglerne om dette, men det kunne måske være en sag for Eksperten at tage op - sådan for princippets skyld...
hh_appel: Nok en god ide, synes det virker lidt lamt det der :(
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.