paigng problemer
Hej alle eksperter...Jeg har haft lidt problemer med paging scriptet som er hentet fra denne her side: http://activedeveloper.dk/aspdigital/kapitel2/paging.asp
Min side ser sådan ud:
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("docs/admin/o12mail.mdb")
strSQL = "SELECT * FROM News ORDER BY NewsDateTime DESC"
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 15
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="imagetoolbar" content="no">
<meta http-equiv="imagetoolbar" content="false">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>u-landsNyt.dk - Din kilde til u-lands nyheder</title>
<link rel="stylesheet" type="text/css" href="style/style.css">
</head>
<body>
<table class="hoved" cellpadding="0" cellspacing="0" align="center" width="769">
<tr>
<td class="top" height="85" colspan="5" align="center">
<img border="0" src="images/logo.jpg">
</td>
</tr>
<tr>
<td bgcolor="#c3c3c3" colspan="5" width="100%">
</td>
</tr>
<tr valign="top">
<td width="154" class="menubg">
<br>
<table cellpadding="0" cellspacing="0" align="center" border="0" class="menu" width="140">
<tr><td><div class=overskrift><img border="0" src="images/menu.gif"></div></td></tr>
<tr><td class=menu><a href="default.asp" class=menupunkt> ›› Nyheder</a></td></tr>
<tr><td class=menu><a href="arkiv.asp" class=menupunkt> ›› Arkiv</a></td></tr>
<tr><td class=menu><a href="navne.asp" class=menupunkt> ›› Nyt om navne</a></td></tr>
<tr><td class=menu><a href="citater.asp" class=menupunkt> ›› Månedens citater</a></td></tr>
<tr><td class=menu><a href="organisationer.asp" class=menupunkt> ›› Organisationer</a></td></tr>
<tr><td class=menu><a href="danida.asp" class=menupunkt> ›› Danida</a></td></tr>
<tr><td class=menu><a href="omos.asp" class=menupunkt> ›› Om os</a></td></tr>
</table>
<br>
<table width="140" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td bgcolor="006699">
<table width="140" border="0" cellpadding="2" cellspacing="1" align="center">
<tr>
<td bgcolor="006699" align="center"><img src="images/navn.gif"></td>
</tr>
<tr>
<td class="citat" bgcolor="FFFFFF">
<table width="98%" align="center">
<tr>
<td class="navne">
<%=NavneRs("Navn")%>:
</td>
</tr>
<tr>
<td class="citat">
<%=NavneRs("Nyhed")%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<table width="140" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td bgcolor="006699">
<table width="140" border="0" cellpadding="2" cellspacing="1" align="center">
<tr>
<td bgcolor="006699" align="center"><img src="images/citat.gif"></td>
</tr>
<tr>
<td class="citat" bgcolor="FFFFFF">
<table width="98%" align="center">
<tr>
<td class="citat">
"<%=CitatRs("Nyhed")%>"
</td>
</tr>
<tr>
<td class="citat2">
<a href="http://<%=CitatRs("Link")%>" target="_blank" class="nyhed"><%=CitatRs("Navn")%><a>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td bgcolor="#c3c3c3" rowspan="2"></td>
<td width="459" rowspan="2">
<table border="0" cellspacing="0">
<tr>
<td>
<img src="news/images/news_text2.gif">
</td>
</tr>
</table>
<%
Do While Not rs.EOF And intRecCount > 0
%>
<table border="0" width="100%">
<tr>
<td rowspan="2" width="325">- <%=Rs("Heading")%></td>
<td class="nyhed2"><%=myDateFormat(Rs("NewsDateTime"))%></td>
</tr>
<tr>
<td>
<a class="nyhed" href="#">læs mere ››</a>
</td>
</tr>
<tr>
<td bgcolor="#c3c3c3" colspan="2" width="100%">
</td>
</tr>
</table>
<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
%>
<table border="0" cellspacing="0">
<tr>
<td class="arkiv">
<%
Response.Write "Side " & intPage & " af " & intPageCount & "<br><br>"
If Clng(intPage) > 1 Then
Response.Write "<a class=nyhed href=arkiv.asp?page=" & intPage - 1 & ">‹‹</a>"
Else
Response.Write "‹‹"
End If
Response.Write " "
For intNum = 1 To intPageCount
Response.Write "<a class=nyhed href=arkiv.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a class=nyhed href=arkiv.asp?page=" & intPage + 1 & ">››</a> "
Else
Response.Write "››"
End If
%>
</td>
</tr>
</table>
</td>
<td bgcolor="#c3c3c3" rowspan="2"></td>
<td class="menubg" class="nyhed" width="154" align="center" rowspan="2"><br><!--#include file="docs/admin/processpoll.asp"--><br>
<form action="docs/admin/from_form.asp" Method="Post">
<table width="140" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td bgcolor="006699">
<table width="140" border="0" cellpadding="2" cellspacing="1" align="center">
<tr>
<td bgcolor="006699" align="center"><img src="images/nyhedsbrev.gif"></td>
</tr>
<tr>
<td class="nyhed" bgcolor="FFFFFF">E-Mail Address:<br>
<input type="text" name="Email" size="15" maxlength="255">
<br>
Fornavn:<br>
<input type="text" name="Name_First" size="15" maxlength="255">
<br>
Efternavn:<br>
<input type="text" name="Name_Last" size="15" maxlength="255">
<br>
<input type="radio" name="Join_Quit" value="Join" checked> Tilmeld<br>
<input type="radio" name="Join_Quit" value="Quit"> Frameld
<br>
<input type="submit" size="20" value="Send"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td class="menubg">
</td>
</tr>
<tr>
<td colspan="5" class="bund">© 2002 u-landsNyt.dk</td>
</tr>
</table>
</body>
</html>
<%
function myDateFormat(myDate)
myDate=FormatDateTime(myDate,2)
tmpArray = split( myDate, "/" )
if len(tmpArray(0))<2 then tmpArray(0)= "0"&tmpArray(0)
if len(tmpArray(1))<2 then tmpArray(1)= "0"&tmpArray(1)
if len(tmpArray(2))<4 then tmpArray(2)= "20"&tmpArray(2)
myDateFormat = join(tmpArray,"-")
end function
%>
Men Conn. ttil databasen er lidt underlig...
Hvordan ændre jeg den til sådan en:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("jepsen/jepsen/db.mdb")
Conn.Open DSN
%>
Hvor jeg så kan tilføge ting så som:
<%
Citat = "SELECT TOP 1 * FROM Citat ORDER by Dato desc"
Set CitatRs = Conn.Execute (Citat)
Navne = "SELECT TOP 1 * FROM Navne ORDER by Dato desc"
Set NavneRs = Conn.Execute (Navne)
%>
Hjælp mig og helst ved at lave det så jeg kan se det her på eksperten.dk
Min side er www.u-landsNyt.dk/beta/ hvis det kan bruges til noget...
/Jens
