Min paging virker ikke
Jeg kan ikke få det her til at virke..Den skriver at End if var ventet... Jeg sætter /// i den linie som fejlen refererer til...
<%
If Not (rsMail.BOF Or rsMail.EOF) Then
session("tablerow")="evenrow"
Do until rsMail.EOF
rsMail.PageSize = 10
rsMail.AbsolutePage = intPage
intRecCount = rsMail.PageSize
intPageCount = rsMail.PageCount
strSQLUser = "Select * from tbl_Users where Id=" & rsMail("SenderId") & ""
Set rsUser = ConnUsers.Execute(strSQLUser)
Do While Not rsMail.EOF And intRecCount > 0
%>
<tr class="<%=session("tablerow")%>">
<td><a href="message_read.asp?id=<%=rsMail("Id")%>"><% if rsMail("Readen")=False then %><img src="img/icons/unreadmail2.gif" border="0"><%else%><img src="img/icons/readmail2.gif" border="0"><%end if%></a>
</td>
<td><a href="message_read.asp?id=<%=rsMail("Id")%>"><%=rsMail("Title")%></a>
</td>
<td><a href="profile_show.asp?id=<%=rsUser("id")%>"><%=rsUser("User")%></a>
</td>
<td><%=Trim(Replace(rsMail("Time"),":00"," " ))%> <%=rsMail("Date")%>
</td>
<td><a href="message_delete.asp?id=<%=rsMail("id")%>"><img src="img/icons/delete.gif" border="0"></a>
</td>
</tr>
<%
if session("tablerow")="evenrow" then
session("tablerow")="unevenrow"
else
session("tablerow")="evenrow"
end if
intRecCount = intRecCount - 1
rsMail.MoveNext
Loop
end if ///
%>
