Page counter.

du skal kikke på paging:

http://activedeveloper.dk/aspdigital/kapitel2/paging.asp

/nute

Hvor og hvordan skal jeg sætte mit kode ind i det andet ???

du er tydeligvis ikke mye for  å kode noe selv...dovent...

<%

intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If


Set Query1 = Server.CreateObject(\"ADODB.RecordSet\")
emne = Request.QueryString (\"emne\")
sp = Request.QueryString (\"emne2\")
SQL = \"SELECT * From spsv Where emne = \'\" & emne & \"\' and emne2 = \'\" & sp & \"\' order by id desc \"

Query1.open SQL, Conn, 1

%>
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"90%\">
<tr class=\"visnyestesp\" bgcolor=\"e4e3e3\">
<td width=\"40%\" height=\"20\">Spørgsmål</td><td width=\"25%\" align=\"center\">Dato</td><td align=\"center\">Indsendt af</td><td width=\"5%\" align=\"center\">Antal svar</td>
</tr>
<tr height=\"10\"></tr>
<%
If Not (Query1.BOF Or Query1.EOF) Then
   
    Query1.PageSize = 10
  Query1.AbsolutePage = intPage
  intRecCount = Query1.PageSize
  intPageCount = Query1.PageCount
 
    Do until Query1.EOF AND intPageCounter < 10
       
        bgc = \"bgcolor=\"
        if bgc <> bgc2 Then
        bgc2 = \"bgcolor=\"
        else
        bgc2 = \"bgcolor=#e4e3e3\"
        end if
       
        ssqlCountReplies = \"SELECT Count(thread) as sreplies FROM spsv where thread = \" & Query1(\"id\")
      Set srsCount = conn.Execute(ssqlCountReplies)
        %>
        <tr height=\"18\" class=\"visnyestesp\" <%=bgc2%>>
        <td width=\"40%\"><a href=\"index.asp?link=vis_spsv&id=<%=Query1(\"id\")%>\">
        <%=left(Replace(Replace(Replace(Query1(\"overskrift\"),\"<\",\"&lt;\"),\">\",\"&gt;\"),vbcrlf,\"<br>\" & \" \"),30)%></a></td>
        <td width=\"25%\" align=\"center\"><%=day(Query1(\"datoen\"))&\"-\"&month(Query1(\"datoen\"))&\"-\"&year(Query1(\"datoen\"))%></td>
        <td align=\"center\"><%=Replace(Replace(Replace(Query1(\"fra\"),\"<\",\"&lt;\"),\">\",\"&gt;\"),vbcrlf,\"<br>\" & \" \")%></td>
        <td align=\"center\" width=\"5%\" class=\"visnyestesp\"><%=srsCount(\"sreplies\")%></td>
       
        </tr>
      <%
        intRecCount = intRecCount - 1
        Query1.MoveNext
    loop
end if

Response.Write \"<p>\"
If Clng(intPage) > 1 Then
    Response.Write \"<a href=dinside.asp?page=\" & intPage - 1 & \"&emne=\" & emne & \"&emne2=\" & sp & \">&lt;&lt;</a>\"
Else
    Response.Write \"&lt;&lt;\"
End If

For intNum = 1 To intPageCount
    Response.Write \"<a href=paging.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write \"<a href=paging.asp?page=\" & intPage + 1 & \"&emne=\" & emne & \"&emne2=\" & sp & \">&gt;&gt;</a> \"
Else
    Response.Write \"&gt;&gt;\"
End If
%>
</table>

/nute

Jeg er ikke så god til det der asp værk.. :-(

Jeg her prøvet med det her men den bare alle <tr> ind på samme side, den kan godt finde ud af at der skal være 7 sider, men sætter altså alle sammen på en side.. kan du hjælpe. ??

<%

intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If


Set Query1 = Server.CreateObject(\"ADODB.RecordSet\")
emne = Request.QueryString (\"emne\")
sp = Request.QueryString (\"emne2\")
SQL = \"SELECT * From spsv Where emne = \'\" & emne & \"\' and emne2 = \'\" & sp & \"\' order by id desc \"

Query1.open SQL, Conn, 1

%>
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"90%\">
<tr class=\"visnyestesp\" bgcolor=\"e4e3e3\">
<td width=\"40%\" height=\"20\">Spørgsmål</td><td width=\"25%\" align=\"center\">Dato</td><td align=\"center\">Indsendt af</td><td width=\"5%\" align=\"center\">Antal svar</td>
</tr>
<tr height=\"10\"></tr>
<%
If Not (Query1.BOF Or Query1.EOF) Then
   
    Query1.PageSize = 10
  Query1.AbsolutePage = intPage
  intRecCount = Query1.PageSize
  intPageCount = Query1.PageCount
 
    Do until Query1.EOF AND intPageCounter < 10
       
        bgc = \"bgcolor=\"
        if bgc <> bgc2 Then
        bgc2 = \"bgcolor=\"
        else
        bgc2 = \"bgcolor=#e4e3e3\"
        end if
       
        ssqlCountReplies = \"SELECT Count(thread) as sreplies FROM spsv where thread = \" & Query1(\"id\")
      Set srsCount = conn.Execute(ssqlCountReplies)
        %>
        <tr height=\"18\" class=\"visnyestesp\" <%=bgc2%>>
        <td width=\"40%\"><a href=\"index.asp?link=vis_spsv&id=<%=Query1(\"id\")%>\">
        <%=left(Replace(Replace(Replace(Query1(\"overskrift\"),\"<\",\"&lt;\"),\">\",\"&gt;\"),vbcrlf,\"<br>\" & \" \"),30)%></a></td>
        <td width=\"25%\" align=\"center\"><%=day(Query1(\"datoen\"))&\"-\"&month(Query1(\"datoen\"))&\"-\"&year(Query1(\"datoen\"))%></td>
        <td align=\"center\"><%=Replace(Replace(Replace(Query1(\"fra\"),\"<\",\"&lt;\"),\">\",\"&gt;\"),vbcrlf,\"<br>\" & \" \")%></td>
        <td align=\"center\" width=\"5%\" class=\"visnyestesp\"><%=srsCount(\"sreplies\")%></td>
       
        </tr>
        <tr><td colspan=\"5\" align=\"center\">
      <%
        intRecCount = intRecCount - 1
        Query1.MoveNext
    loop
end if

Response.Write \"<p>\"
If Clng(intPage) > 1 Then
    Response.Write \"<a href=index.asp?link=vis_emnesp1&page=\" & intPage - 1 & \"&emne=\" & emne & \"&emne2=\" & sp & \">&lt;&lt;</a>\"
Else
    Response.Write \"&lt;&lt;\"
End If

For intNum = 1 To intPageCount
    Response.Write \"<a href=index.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write \"<a href=index.asp?link=vis_emnesp1&page=\" & intPage + 1 & \"&emne=\" & emne & \"&emne2=\" & sp & \">&gt;&gt;</a> \"
Else
    Response.Write \"&gt;&gt;\"
End If
%>
</td></tr>
</table>

hvis du ikke er så god til ASP så er vel det et signal på at du kanskje skal lære de banale ting før du begir deg ut i denne type script ??

bytt ut denne linje:

Do until Query1.EOF AND intPageCounter < 10
       
med denne

Do until Query1.EOF AND intRecCount < 10
       
       

Hej det har du nok ret i....  :-)

Men  det ville jo være fedt hvis det virker.

Jeg har prøvet at skifte den linje ud, men det virker desværre ikke :-(

hov...unnskyld....igjen, bytt denne linje:

Do until Query1.EOF AND intRecCount < 10

ut med:

Do until Query1.EOF AND intRecCount > 0

Det er bare helt ok.

Jeg prøvede som du sagde, on den viser udtrækende, men viser denne fejl :

error \'80020009\'
Exception occurred.

/www.web2.dk/vis_emnesp1.asp, line 70

Der hvor << 1 2 3 4 5 6 7 >> står.

hva ligger i linje 70 i \'vis_emnesp1.asp\' ?

        ssqlCountReplies = \"SELECT Count(thread) as sreplies FROM spsv where thread = \" & Query1(\"id\")

det lyder ikke logisk at det skal oppstå en feil i den linje, og ihvertfall ikke den feil du får...men du kan jo prøve å bytte denne linje:

Do until Query1.EOF AND intRecCount > 0

med denne:

Do while NOT Query1.EOF AND intRecCount > 0

Så er der der da noget der virker, du er bare god nute.....

Men jeg har vist lavet noget ged i links\'ne til de næste sider, de viser ikke noget. jeg har skrevet linket sådan her.. :

<a href=index.asp?link=vis_emnesp1&page=\" & intPage - 1 & \"&emne=\" & emne & \"&emne2=\" & sp & \">&lt;&lt;</a>

jeg har kaldt siden som koderne er på for \"vis_emnesp1\" og kalder den ind på index siden, med en include file.

Hvad har jeg gjort galt ???

nei, du har ikke gjort noe galt. *jeg* skrev linksene på den måte. siden skal linke til seg selv, så du skal bytte ut \'index.asp\' med \'vis_emnesp1.asp\'

/nute

Jeg har prøvet dette, men det virker ikke.

<a href=vis_emnesp1.asp?page=\" & intPage + 1 & \"&emne=\" & emne & \"&emne2=\" & sp & \">&gt;&gt;</a>

hva er det som \"ikke virker\" ??

Den kan ikke vise den side den linker til...

som jeg forstår, så inkluderes denne \'vis_emnesp1.asp\' fra index.asp ? korrekt? ligger disse filer i samme folder ?

ja.

Jeg inklidere ´vis_emnesp.asp sådan her :

<% if link = \"asp\" or emne = \"asp\" or emne2 = \"sp\" then
%>
<!--#include file=\"vis_emnesp1.asp\" -->
<%end if%>

oki, så skal iallefall linkene dine gå til \'index.asp\' og ikke \'vis_emnesp1.asp\'

ok det retter jeg lige tilbage igen, men kan det være page=\" & intPage + 1 & \"& der er noget rod ???

det virker desværre ikke.... :-(

jeg kan ikke hjelpe hvis du kun skriver \"det virker ikke\" !!! gi meg en link eller noe som gjør at jeg kan *se* hva som skjer. jeg har ikke behov for koden for den har jeg selv postet. gi meg en link !!

\"det virker ikke\" er som å skrive \"let etter den grønne dør\" til en blind mann...rimelig nytteløst...

Ja det kan jeg da godt se... undskyld.

Mit link i koden ser sådan her ud :

Response.Write \"<a href=index.asp?link=vis_emnesp1?emne=\" & emne & \"&emne2=\" & sp & \"&page=\" & intPage + 1 & \">&gt;&gt;</a> \"

index siden kommed frem, men der er ikke lavet noget udtræk, linken i adr, baren ser sådan her ud:

index.asp?link=vis_emnesp1?emne=asp&emne2=sp&page=2

blir siden inkludert ?

hvis du skriver:

<% if link = \"asp\" or emne = \"asp\" or emne2 = \"sp\" then
response.write \"HURRAA\"
%>
<!--#include file=\"vis_emnesp1.asp\" -->
<%end if%> 

skriver den så ut \"HURRAA\" i din browser ?

jeg har skrevet sådan her :

<% if link = \"asp\" or emne = \"asp\" or emne2 = \"sp\" then response.write \"HURRAA\"
%>
<!--#include file=\"vis_emnesp1.asp\" -->
<%end if%>

den viser denne fejl:


Microsoft VBScript compilation error \'800a0400\'

Expected statement

/www.web2.dk/index.asp, line 102

end if
^

jeg håper du nå kan forstå hva jeg mente med at du skulle lære deg banal ASP før du begir deg i kast med litt mer kompliserte script som dette. Gjerne ikke fordi det ikke kommer til å fungere, men fordi du simpelthen ikke aner å kommunikere dine problemer eller fordi du ikke kan tolke en feilmelding.

får du vist din første side ? får du vist en side hvor du har muligheten til å bla til neste side ?

Ja du har fuldstendig ret... Det er sku\' svært det her.....

Først får jeg det hele frem, 10 udtræk og menuen
<< 1 2 3 4 5 6 7 >>


Når jeg klikker på enten >> eller et af tallene, får jeg får vist index siden men der kommer hværken udtræk eller mulighed for at skifte side, ved hjælp af << 1 2 3 4 5 6 7 >> dette bliver slet ikke vist på side 2.

Du har allerede ærligt fortjænt dine poing... :-)

det gir ingen mening...har du ikke en link så jeg kan få *se* problemet med mine egne øyne, for jeg får ingenting ut av dine kommentarer...

http://www.sevel.dk/www.web2.dk/index.asp?link=asp&emne=asp&emne2=sp

det fungerer når jeg ser på det...kan ikke se noe galt...

Så virker det,,, jeg skulle jo lave et udtræk, så det passede til link=emne, altså et udtræk af enme.... er det foreståligt.. ?

Linket ser sådan her ud..:
<a href=index.asp?link=\" & emne & \"&emne=\" & emne & \"&emne2=\" & sp & \"&page=\" & intPage + 1 & \">&gt;&gt;</a>

1000 tak for hjælpen du er den bedste, du fortjæner helt helt klart alle poingene... :-)

selv takk...