<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strsQL = "SELECT * FROM byggda ORDER BY ID DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../databas/news.mdb")
rs.Open strsQL, strDSN, 1
numcols=4
if not rs.eof then
response.write "
Sida nr: " & intPage & " av " & intPageCount & " " ' Do While Not rs.EOF And intRecCount > 0 %>"><%=projbild(enter(rs("p9")))%> <%=rs("p1")%> |
 
|
||||
| <% ' intRecCount = intRecCount - 1 'rs.MoveNext ' Loop 'End If 'rs.Close 'Set rs = Nothing %> | <% Response.Write " Sid " For intNum = 1 To intPageCount Response.Write "" & intNum & " " Next 'Response.Write " " If Clng(intPage) > 1 Then ' Response.Write "<<" Else ' Response.Write "<<" End If Response.Write " " If Clng(intPage) < Clng(intPageCount) Then ' Response.Write ">> " Else ' Response.Write ">>" End If %> |
``` Permalänk: https://www.webforum.nu/p/1696822 ## #6 — emission, 2005-10-30T10:45Z Du är på rätt väg. Stoppa tillbaka själva paging-koden nu (pagesize osv.) och som sagt, "ställen där rs.eof kollas måste även kolla att intRecCount \> 0" Permalänk: https://www.webforum.nu/p/1696920 ## #7 — jlee, 2005-10-31T09:32Z Där finns fel i sidan och jag hittar inte var det är? Vet inte om jag har gjort exakt som du sa emission? ``` <% intPage = Request("page") If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If Set rs = Server.CreateObject("ADODB.RecordSet") strsQL = "SELECT * FROM byggda ORDER BY ID DESC" strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../databas/news.mdb") rs.Open strsQL, strDSN, 1 numcols=4 if not rs.eof then response.write "
| "
if rs.eof
intRecCount > 0 then
response.write " "
else
response.write ""
next
response.write"<%=projbild(enter(rs("p9")))%> " & " " & " <%=rs("p1")%> rs.movenext end if response.write " | "
next
response.write "
<% intRecCount = intRecCount - 1 rs.MoveNext Loop End If rs.Close Set rs = Nothing %> <% Response.Write "
Sid " For intNum = 1 To intPageCount Response.Write "" & intNum & " " Next If Clng(intPage) > 1 Then Else End If Response.Write " " If Clng(intPage) < Clng(intPageCount) Then Else End If %> ``` Permalänk: https://www.webforum.nu/p/1697259 ## #8 — jlee, 2005-10-31T17:40Z En sak till förresten...förrutom att jag inte kan lösa ovanstående. Om 2 rader är listade - är det inte risk att det blir 3 rader osv? Vill bara bara ha 2 rader ju. Permalänk: https://www.webforum.nu/p/1697459 ## #9 — emission, 2005-10-31T20:04Z Uppstädat ``` <% intPage = Request("page") If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If Set rs = Server.CreateObject("ADODB.RecordSet") strsQL = "SELECT * FROM byggda ORDER BY ID DESC" strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../databas/news.mdb") rs.Open strsQL, strDSN, 1 rs.PageSize = 8 rs.AbsolutePage = intPage intRecCount = rs.PageSize intPageCount = rs.PageCount numcols=4 if not rs.eof then response.write "
| "
if rs.eof or intRecCount = 0 then
response.write " "
else
%>
<%=projbild(enter(rs("p9")))%> <%=rs("p1")%> <% intRecCount=intRecCount-1 rs.movenext end if response.write " | "
next
response.write "
Sid "
For intNum = 1 To intPageCount
Response.Write "" & intNum & " "
Next
%>
```
Permalänk: https://www.webforum.nu/p/1697523
## #10 — jlee, 2005-10-31T21:44Z
Hmm tog bort en End if...verkade vara en för mycket men nu visas inte alla Id poster och inte 8 st per sida heller. Några poster verkar saknas helt enkelt.
Länkningen funkar inte heller...kan något vara fel i
```
<%=projbild(enter(rs("p9")))%>
<%=rs("p1")%>
```
Sidan som visar detta hämtar med:
```
<%
if IsNumeric(Request.QueryString("id")) then
sql= "SELECT * FROM byggda WHERE id = " & Request.QueryString("id")
else
Fel'felmeddelande om ogiltigt indata
end if
```
Då står det: Körningsfel i Microsoft VBScript error '800a000d'
Inkompatibla typer: 'Fel'
/elite/visa/byggda/byggda.asp, line 24
på den sidan
Permalänk: https://www.webforum.nu/p/1697563
## #11 — emission, 2005-10-31T21:52Z
Visa den kod du har nu...
"Fel" är inget kommando.
Permalänk: https://www.webforum.nu/p/1697566
## #12 — jlee, 2005-10-31T22:06Z
Nu visas faktiskt posterna som de ska men länkar funkar inte:
Kod till byggda\_.asp
```
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strsQL = "SELECT * FROM byggda ORDER BY ID DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../databas/news.mdb")
rs.Open strsQL, strDSN, 1
rs.PageSize = 8
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
numcols=4
if not rs.eof then
response.write "
| "
if rs.eof or intRecCount = 0 then
response.write " "
else
%>
"><%=projbild(enter(rs("p9")))%> <%=rs("p1")%> <% intRecCount=intRecCount-1 rs.movenext end if response.write " | "
next
response.write "
Sid " For intNum = 1 To intPageCount Response.Write "" & intNum & " " Next %> Text text ``` och byggda.asp som tar emot efter klick på länk: ``` <% strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../databas/news.mdb") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strDSN %> <% if IsNumeric(Request.QueryString("id")) then sql= "SELECT * FROM byggda WHERE id = CInt(Request.QueryString("id")). else Fel'felmeddelande om ogiltigt indata end if Set Rs = Conn.Execute (sql) %> <% Do While Not rs.EOF %> <%=rs("p1")%>