Paging
Ok mit script er ret messy og jeg har istedet for at åbne et ADODB.recordset åbnet en ADODB.Connection.jeg har forgæves forsøgt at få dette paging system ind i scriptet, men jeg giver op nu.
PAGING SYSTEM
<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT LinkURL FROM Links\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"/aspdigital/db/demo.mdb\")
rs.Open strSQL, strDSN, 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(\"LinkURL\") & \"<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=paging.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next
Response.Write \"<p>\"
If Clng(intPage) > 1 Then
Response.Write \"<a href=paging.asp?page=\" & intPage - 1 & \"><<</a>\"
Else
Response.Write \"<<\"
End If
Response.Write \" \"
If Clng(intPage) < Clng(intPageCount) Then
Response.Write \"<a href=paging.asp?page=\" & intPage + 1 & \">>></a> \"
Else
Response.Write \">>\"
End If
%>
Scriptet jeg gerne vil have paging på er:
<%
response.buffer = true
set connect = server.createobject(\"ADODB.Connection\")
Connect.open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"images.mdb\")
Set rs = Connect.Execute(\"SELECT * FROM kategori\")
Set rs3 = Connect.Execute (\"SELECT * FROM statics\")
%>
<html>
<head>
<title></title>
<script type=\"text/javascript\" language=\"JavaScript\"><!--
function poppic(url) {
window.open(url,\"PopPic\",\'height=250,width=250\');
} //-->
</script>
<link rel=\"stylesheet\" href=\"imgstyler.css\" type=\"text/css\">
</head>
<body bgcolor=\"#FFFFFF\" link=\"#CC0000\" vlink=\"#CC0000\" alink=\"#CC0000\">
<table width=\"60%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\" class=\"nocolor\">
<tr>
<td align=\"left\">
<a href=\"kategori.asp\">Category</a> -
<%
\'If the category has sub dirs we display them here
Set rs5 = Connect.Execute(\"SELECT * FROM kategori Where ParentID = \" & request(\"linkid\"))
if not rs5.EOF then
\'Count images in sub dirs if any
strSQL = \"SELECT Count(billeder.ID) AS CountOflink, kategori.ID, kategori.katnavn \"
strSQL = strSQL & \"FROM kategori LEFT JOIN billeder ON kategori.ID = billeder.katID \"
strSQL = strSQL & \"Where kategori.ID = \"& rs5(\"id\") &\" GROUP BY kategori.ID, kategori.katnavn;\"
Set rs6 = Connect.Execute(strSQL)
do until rs5.EOF
%>
<a href=\"se-kat.asp?linkid=<%=rs5(\"id\")%>&parentid=<%=request(\"linkid\")%>\"><%=rs5(\"katnavn\")%></a> <%=rs6(\"CountOflink\")%>
<%
rs5.MoveNext
Loop
rs6.Close()
else
%>
<a href=\"java script:history.go(-1);\">Previous Page</a>
<%
end if
%>
</td>
</tr>
</table>
<table width=\"600\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
<tr>
<td align=\"center\" class=\"almfont\">
<td> </td>
<td align=\"right\" class=\"almfont\">
</tr>
<tr>
<td align=\"center\" colspan=\"3\">
</tr>
<tr>
<td align=\"center\">
<td> </td>
<td>
</tr>
<tr>
<td align=\"center\">
<%
if not rs.EOF then
do until rs.EOF
if Cint(Request.QueryString(\"linkid\")) = rs(\"id\") then
Set rs2 = Connect.Execute(\"SELECT * FROM billeder WHERE katID = \" & request(\"linkid\") )
counter = 0
if not rs2.EOF then
response.write \"The category is \" & rs(\"katnavn\")
response.write \"<table><tr>\"
do until rs2.EOF
Set rs4 = Connect.Execute(\"SELECT * FROM kategori Where id = \" & request(\"parentid\"))
if not rs4.EOF then
\'Get the first folder
mappe = rs4(\"katnavn\") & \"/\"
end if
\'Paging
\'Display pictures starts here
response.write \"<td>\"
%>
<table width=\"150\" border=\"1\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\" bordercolor=\"#000000\">
<tr>
<td align=\"center\" valign=\"middle\">
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td height=\"5\"></td>
</tr>
<tr>
<td align=\"center\"><a href=\"java script:poppic(\'count.asp?linkid=<%=rs2(\"id\")%>&parentid=<%=request(\"parentid\")%>&id=<%=request(\"linkid\")%>\')\"><img src=\"thumb/<%=mappe%><%=rs(\"katnavn\")%>/TN_<%=rs2(\"imgname\")%>\" border=\"0\"> </a></td>
</tr>
<tr>
<td height=\"5\"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align=\"left\" valign=\"bottom\" class=\"almfont\">Hits: <%=rs2(\"hits\")%> <br> Name: <%=rs2(\"imgname\")%> <br> Date: <%=rs2(\"adddate\")%></td>
</tr>
</table>
<%
response.write \"</td>\"
\'Display pictures end here
counter = counter + 1
if( counter = rs3(\"columcount\") ) then
counter = 0
response.write \"</tr><tr>\"
end if
rs2.MoveNext
Loop
for i = counter to rs3(\"columcount\")
response.write \"<td></td>\"
next
response.write \"</tr></table>\"
else
Response.Write \"There are no pictures in this category\"
end if
end if
rs.movenext
Loop
else
response.write \"Nothing in here\"
end if
%>
</td>
</tr>
</table>
</body>
</html>
<%
rs.Close()
rs2.Close()
rs3.Close()
rs4.Close()
rs5.Close()
%>
