Lave Forige ,Næste og tal imellem?

ligesom her på eksperten.dk

Det du skal bruge hedder Pagin. De har på asp.dk en glimrende artikkel om hvordan du laver det,  med en Access database...

Url: http://www.asp.dk/articles.asp?mode=show_article&article_id=50&tech_id=1

mener du paging ?
I så fald er der en drøngod artikel her:
http://activedeveloper.dk/artikler/default.asp?articleid=31

Ok, det var da sindsygt - Vi svarede på samme sekund ;)

ja, rimelig cool  c",)

ja i er gode

Ok, kig på det, og del point ud ;)

jeg får denne fejl når jeg prøver:

ADODB.Recordset error '800a0e78'

Operation is not allowed when the object is closed.

/sogresultat.asp, line 101


<%
OpenDatabase
sql = ""
if Request.Form("textfield") <> "" then
    if sql = "" then
        sql = "where navn like '%"& Request.Form("textfield") &"%' "
    else
        sql = "and navn like '%"& Request.Form("textfield") &"%' "
    end if
end if
sql = ""
if Request.Form("textfield1") <> "" then
    if sql = "" then
        sql = "where in1 like '%"& Request.Form("textfield1") &"%' "
    else
        sql = "and in1 like '%"& Request.Form("textfield1") &"%' "
    end if
end if
if Request.Form("textfield2") <> "" then
    if sql = "" then
        sql = "where tid <= "& Request.Form("textfield2") &" "
    else
        sql = "and tid <= "& Request.Form("textfield2") &" "
    end if
end if
if Request.Form("textfield3") <> "" then
    if Request.Form("checkbox") <> "" then
        if sql = "" then
            sql = "where personer <= "& Request.Form("textfield3") &" "
        else
            sql = "and personer <= "& Request.Form("textfield3") &" "
        end if
    end if
    if Request.Form("checkbox2") <> "" then
        if sql = "" then
            sql = "where personer >= "& Request.Form("textfield3") &" "
        else
            sql = "and personer >= "& Request.Form("textfield3") &" "
        end if
    end if
end if
if Request.Form("checkbox3") <> "" then
    if Request.Form("hojtidIDer") <> "" then
        if sql = "" then
            sql = "where hojtid in ("& Request.Form("hojtidIDer") &") "
        else
            sql = "and hojtid in ("& Request.Form("hojtidIDer") &") "
        end if
    end if
end if
if Request.Form("checkbox4") <> "" then
    if Request.Form("emmeIDer") <> "" then
        if sql = "" then
            sql = "where emme in ("& Request.Form("emmeIDer") &") "
        else
            sql = "and emme in ("& Request.Form("emmeIDer") &") "
        end if
    end if
end if
if Request.Form("checkbox5") <> "" then
    if Request.Form("katIDer") <> "" then
        if sql = "" then
            sql = "where vare in ("& Request.Form("katIDer") &") "
        else
            sql = "and vare in ("& Request.Form("katIDer") &") "
        end if
    end if
end if
if Request.Form("checkbox6") <> "" then
    if Request.Form("maltidIDer") <> "" then
        if sql = "" then
            sql = "where kategoriid in ("& Request.Form("maltidIDer") &") "
        else
            sql = "and kategoriid in ("& Request.Form("maltidIDer") &") "
        end if
    end if
end if
 
  set rs = conn.Execute("select opskrifter.* from opskrifter "& sql)
do while not rs.eof
strNavn = rs("navn")
strLink = "<a href='visopskrift.asp?id=" & rs("id") & "'>" & strNavn & "</a>"

  response.write "<li>" & strLink & "</li><br>"
  response.write "Tilberedningstid: "& rs("tid") & "<br>"
  response.write "Antal personer: "& rs("personer") & "<br>"
  rs.MoveNext
loop


%>
<%Page = Trim(Request("page"))
  If Page = "" Then Page = 1
Sql = "select opskrifter.* from opskrifter "& sql
Set rs = Server.CreateObject("ADODB.Recordset")
  rs.CursorType = adOpenStatic

  ' Hvor mange records vil have på hver side... her er den sat til 10
  rs.PageSize = 10
If Not rs.EOF Then
    rs.AbsolutePage = cINT(Page)
    rowCount = 0
  End If%>

<%
' her laver vi en løkke der henter vores records ud
While Not rs.EOF and rowCount < rs.PageSize

  Response.write rs("Felt_i_databasen")

  Response.write "<br>"
  rowCount = rowCount + 1
  rs.Movenext

Wend

' Hvis der er behov for flere sider for at vise hele recordsettet, så kommer her links...
If rs.PageCount <> 1 Then
  For i = 1 to rs.PageCount
    response.write "<a href='paging.asp?page=" & i & "'>" & i & "</a>"
  Next
End If
CloseDatabase
%>

Du skal sørge for at have din database halløj i starten af dit dokument

okay prøver lige

jeg kan ikke få nogle af dem til at virke

er der ikke en der har en løsning?

Jeg har selv flere gang tidligere brugt den artikkel der ligger på www.asp.dk (som jeg smed link til) - Det virker ganske fint ! Brug det præcis som det står, og leg med det når det virker...

okay. men kan du så ikke lige hjælpen mig.

Jeg bruger conn og åbner min database via OpenDatabase. hvordan får jeg lavet dette om?

Så er der den hvor der kaldes database Sql = "SELECT * FROM tabel" nu skal den gå ind og lave det på en søgning og det fatter jeg ikke lige hvordan jeg gør?

Når jeg prøver melder den om fejl i dette: rs.Open(Sql), Con

Så er der Response.write rs("Felt_i_databasen") men jeg kan ikke lige se hvad det er for et felt der skal udskrives?

jeg takker for de link og kunne nok også kunne kommen igemmen det med den hjælp, så her er nogle point.