Undrar hur jag ska kunna visa nästa poster i nästa ruta osv sen med paging nya sidor när jag fyllt alla 8 rutor?
Bigogar kod för tabellen samt en förklarande bild..svårt att förklara detta.
som det är nu så kommer nästa
Ändrade detta intPage = 1 till intPage = 8 eftersom det är 8 rutor...men resterande 7 poster visas då under tabellen och inte i ruta 2-8..var ska jag mer ändra eller lägga till?
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"
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 "<TABLE>"
do until rs.eof
intRecCount > 0
response.write "<TR>"
for i=1 to numcols
response.write "<TD>"
if rs.eof
intRecCount > 0 then
response.write " "
else
response.write "<a href="byggda.asp?id=<%=rs("id")%>"
next
response.write"<%=projbild(enter(rs("p9")))%> " & " <br><br>" & " <%=rs("p1")%></a>
rs.movenext
end if
response.write "</TD>"
next
response.write "</TR>"
loop
response.write "</TABLE>"
end if
%>
<br>
</div>
</td>
<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
%></td>
<%
Response.Write "<p>Sid "
For intNum = 1 To intPageCount
Response.Write "<a href=byggda_.asp?page=" & intNum & ">" & intNum & "</a> "
Next
If Clng(intPage) > 1 Then
Else
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Else
End If
%>
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.
<%
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 "<TABLE>"
do until rs.eof or intRecCount = 0
response.write "<TR>"
for i=1 to numcols
response.write "<TD>"
if rs.eof or intRecCount = 0 then
response.write " "
else
%>
<a href="byggda.asp?id=<%=rs("id")%>
<%=projbild(enter(rs("p9")))%> <br><br><%=rs("p1")%></a>
<%
intRecCount=intRecCount-1
rs.movenext
end if
response.write "</TD>"
next
response.write "</TR>"
loop
response.write "</TABLE>"
end if
End If
rs.Close
Set rs = Nothing
Response.Write "<p>Sid "
For intNum = 1 To intPageCount
Response.Write "<a href=byggda_.asp?page=" & intNum & ">" & intNum & "</a> "
Next
%>
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
<%
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'
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 "<TABLE>"
do until rs.eof or intRecCount = 0
response.write "<TR>"
for i=1 to numcols
response.write "<TD>"
if rs.eof or intRecCount = 0 then
response.write " "
else
%>
<a href="byggda.asp?id=<%=rs("id")%>"><%=projbild(enter(rs("p9")))%><br><br> <%=rs("p1")%></a>
<%
intRecCount=intRecCount-1
rs.movenext
end if
response.write "</TD>"
next
response.write "</TR>"
loop
response.write "</TABLE>"
End if
rs.Close
Set rs = Nothing
Response.Write "<p>Sid "
For intNum = 1 To intPageCount
Response.Write "<a href=byggda_.asp?page=" & intNum & ">" & intNum & "</a> "
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 %>
<font size="+4" face="Times New Roman, Times, serif" color="#CCCCCC"> <%=rs("p1")%></font> </td>
<td width="458"><div align="right"></div>
<div align="right"></div>
<div align="right"></div>
<div align="right"><%=minibild(rs("p5"))%> <%=minibild(rs("p4"))%> <%=minibild(rs("p3"))%> <%=minibild(rs("p2"))%></div></td>
</tr>
<tr valign="top">
<td height="404" colspan="2"><table width="100%" height="510" border="0 " background="<%=storbild(rs("p6"))%>">
<tr>
<td valign="top"><A href="javascript:history.go(-1)"> </A>
<table width="97%" border="0 " align="center">
<tr>
<td><br>
<font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif"><strong><%=Avbryt2(enter(rs("p7")))%><br>
</strong></font></td>
</tr>
</table>
<strong><font size="2" face="Arial, Helvetica, sans-serif">
<% Rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing
%>
byggdas adress fönster får detta på slutet: byggda.asp?id=15 men som sagt så visas den inte
Nej vet att "fel" inte är ett kommando utan ett felmess...
Tack Emission, hade inte gått utan din hjälp!! Det löste sig efter några timmars klurande.
En annan fråga (om jag får ställa den i denna tråden?)...att göra Thumbnails av en stor bild tex <%=rs("p5")%> Dessa thumbnails ska sedan öppnas som popup. Hur gör man detta smidigast. Har ett galleri script redan som är bra men har svårt att anpassa det till min sida. Vill inte ha paging mm bara tumnaglar utan text av stor bild. Bilden ligger dock inte i databasen utan bara en text lagrad i p5 som byter ut text mot bild.
