Bruger include og kan ikke få paging til at virke
HejJeg bruger normalt iframes men har læst en masse dårligt om det. Derfor ville jeg prøve at lave min nye side med includes. Det har så resulteret i at jeg ikke kan få min paging til at virke. Jeg har prøve diverse men jeg tror det har noget at gøre med at querystrings ikke kommer med ik?
Første fil er min default og den anden er blogview.asp hvor min paging skulle være. Jeg har kun lige taget den spændende del af default.asp med:
<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="250">
<td>
<%
sitepage=request.querystring("sitepage")
if sitepage="" or sitepage="forside" then
%>
<!--#include file="login.asp"-->
<%
elseif sitepage="blog" then
%>
<!--#include file="blogview.asp"-->
<%
End If
%>
</td>
</table></center>
</TD>
</TR>
</TABLE>
<TABLE WIDTH="750" BORDER="0" ALIGN="CENTER" CELLPADDING="0" CELLSPACING="0" BGCOLOR="#E6E6E6" CLASS="tabel-bg">
<TR>
<TD VALIGN="bottom"><!--#include file="bund.asp"-->
</TD>
</TR>
og så min blogview.asp
<html><head>
<title>blogview</title>
</head><body>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM blog order by id asc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("familiencaroe.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 4
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
%>
<div align="center">
<table>
<tr>
<td><%=rs("Overskrift")%></td>
</tr>
</table>
</div>
<hr style="border-style: dotted; border-width: 1px" size="1" width="530px" color="#000000">
<%
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 target=""_self"" href=default.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a target=""_self"" href=default.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a target=""_self"" href=default.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
</body></html>
Jeg tror som sagt det er fordi intpage bliver "nulstillet" hver gang jeg loader default.asp igen.. Men hvordan kommer jeg udenom det når jeg har gjort på denne måde?
