Skal have flettet disse paging ind i eks. kode - har prøvet alt
Hej!Jeg giver op - 3 timer til ingenting......ØV!
Nu må jeg altså be om hjælp!
Jeg har fået paging til at virke nogenlunde....men kan ikke få det sidste hen!
Her er paging kode:
<% response.buffer = true
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
set conn=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("../dataentry/filmdatabase.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
%>
<html>
<head>
<title>Untitled Document</title>
</head>
<body>
<%
set rs=server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM hovedetabel ORDER by Titel ASC ",Conn, 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("Titel") & "<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=default2.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=default2.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=default2.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
NU KOMMER PROBLEMET - i stedet for:
Response.Write rs("Titel") & "<br>"
Skal jeg gerne have dette ind:
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr align="center"> <%
counter = 0
Do while not rs.eof
%>
<td align="left"> <%If rs("Cover - Thumbnail") <> "" Then%> <img src="../images/<%=rs("Cover - Thumbnail")%>.jpg" align="top">
<%Else%> <img src="../images/no_image.jpg" align="top">
<%End If%><br>
<% =rs("Titel") %></td> <%
counter = counter + 1
if counter = 3 then
response.write("</TR><TR>")
counter = 0
end if
rs.MoveNext()
loop
%>
</tr>
</table>
MEN JEG KAN BARE IKKE FÅ DET TIL AT VIRKE!
HJLÆP HJÆLP....
