Opdeling af hentet data fra database!!!???
Hej jeg vil gerne have det sådan at mine hent fra databasen bliver delt op på flere sider, men jeg kan ikke helt følge hvordan det gøres... jeg har vedlagt det kode jeg tror der skal bruges .. men hvis der mangler noget så sig endelig til!!!jeg har den her kode:
<html><head>
<title>Paging af et recordset</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 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
%>
</body></html>
Den vil jeg meget gerne ha mixet med denne kode:
<html>
<head>
<title>Database forbindelse</title>
<style type="text/css">
<!--
.overskrift { font-family: Arial, Helvetica, sans-serif; font-weight: bold; color: #FFFFFF; font-size: 15px}
.bread { font-family: Arial, Helvetica, sans-serif; font-size: 13px; font-weight: bold; color: #8D6CB8; text-decoration: none}
-->
</style>
<style type="text/css">
<!--
.back { background-attachment: fixed; background-image: url(grafik/bigback.gif); background-repeat: no-repeat; background-position: left top}
-->
</style>
</head>
<body bgcolor="#F3E5FA" class="back" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
Set Conn = Server.Createobject("ADODB.Connection")
'--- Database forbindelse ---
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " &_
"DBQ=" & Server.Mappath("db/roskilde.mdb") & "; password=test"
Conn.Open strDSN
'--- SQL forspøgelse ---
Set RS = Conn.Execute("SELECT * FROM PersonTabel ORDER BY Fornavn")
%>
<div align="center"><br>
<img src="grafik/overskrifter/alle.gif" width="263" height="45"> <br>
<br>
<!--#include file="profilen.asp" --> </div>
</body>
</html>
Include filen har følgende kode:
<style>
<!--
.overskrift { font-family: Arial, Helvetica, sans-serif; font-weight: bold; color: #FFFFFF; font-size: 15px}
.bread { font-family: Arial, Helvetica, sans-serif; font-size: 13px; font-weight: bold; color: #8D6CB8; text-decoration: none}
-->
</style>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table border="1" width="550" bgcolor="#DFCEED" bordercolor="#8D6CB8" cellpadding="0" cellspacing="0" vspace="0" hspace="0" align="center">
<%
'--- Udskriv data ---
Do While Not RS.EOF
%>
<tr>
<td height="240" colspan="2">
<table width="100%" border="1" align="center" bordercolor="#8D6CB8" bgcolor="#8D6CB8" class="overskrift">
<tr>
<td width="309">
<div align="left"><span class="overskrift"><%=RS("Fornavn")%></span></div>
</td>
<td width="163">
<div align="right" class="overskrift"></div>
</td>
</tr>
</table>
<table width="535" border="0" bgcolor="#DFCEED" cellspacing="0" cellpadding="0" hspace="0" vspace="0" align="center">
<tr>
<td height="2" colspan="2"> </td>
</tr>
<tr>
<td height="2" colspan="2">
<div align="center"> <%
if RS("sti") <> "" then
Response.Write"<img src=""log/" & RS("sti") & """ align=""center"">"
Else
Response.write("<img src='abe.jpg'>")
end if
%></div>
</td>
</tr>
<tr>
<td height="28" colspan="2 class="bread">
<table width="535" border="0" bgcolor="#DFCEED" cellspacing="0" cellpadding="0" hspace="0" vspace="0" align="center">
<tr>
<td colspan="2" valign="top">
<div align="center"></div>
<div align="center"></div>
<div align="center"><span class="bread"><%=RS("Kommentar2")%><span class="bread"></span></span></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="2" colspan="2"> </td>
</tr>
<tr>
<td width="140" valign="top"><font face="Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Fødselsdag:</b></font></td>
<td valign="top" height="30" width="410" class="bread"><%=RS("dag")%>/<%=RS("maaned")%>-<%=RS("Nationalitet")%></td>
</tr>
<tr>
<td valign="top" width="140"><font face="Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Køn:</b></font></td>
<td height="30" valign="top" width="410" class="bread"><%=RS("koen")%></td>
</tr>
<tr>
<td width="140" valign="top"><font face="Arial, Helvetica, sans-serif" size="2" color="#000000"><b><br>
Hjemmeside:</b></font></td>
<td valign="top" height="30" width="410" class="bread"><br>
<%=RS("Kommentar")%></td>
</tr>
</table>
</td>
</tr>
<%
RS.MoveNext
Loop
RS.close
Conn.Close
Set RS = nothing
Set Conn = nothing
%>
</table>
Hmm det blev vist et langt spørgsmål... jeg giver 150 points nu... jeg håbver det er nok.. ellers må i "skrive" højt!!!
