Hjælp til paging
Jeg har før indrykket et lignende spørgsmål herinde, men det link jeg fik hjalp mig ikke meget.http://activedeveloper.dk/artikler/default.asp?articleid=31
Problemet med linket er at jeg ikke kan få det tilpasset til min egen connection. Derfor spørger jeg jer om i kan hjælpe mig?
Min connection:
<table width="90%">
<tr>
<td width="65%"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Titel:</font></td>
<td width="35%"><div align="right"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Skrevet
den:</font></div></td>
</tr>
<%
strType = Request.QueryString("type")
strMenu = Request.QueryString("menu")
strSQL = "SELECT * from Site where Type = '" & strType & "' order by id desc"
set rs = Conn.Execute(strSQL)
If rs.EOF Then
Response.Write "<div align='center'><font color='#FFFFFF' size='2' face='Verdana, Arial, Helvetica, sans-serif'>Ingen er oprettet</font></div>"
Elseif strType = "anmeldelse" Then
Do
strOverskrift = rs("overskrift")
Response.Write "<tr><td><font color='#FFFFFF' size='2' face='Verdana, Arial, Helvetica, sans-serif'><a href='film.asp?menu=" & strMenu & "&type=" & strType & "&edit=" & rs("id") & "'>" & strOverskrift & "</font></td><td width='10%'><font color='#FFFFFF' size='2' face='Verdana, Arial, Helvetica, sans-serif'><div align='right'>" & rs("dato") & "</div></font></td><td><a onClick=return confirm('Er du sikker på du vil gå herind?'); href='slet.asp?id=" & rs("id") & "&menu=" & strMenu & "&type=" & strType & "'><img src='billeder/slet.gif' border='0'></a></td></tr>"
rs.Movenext
Loop while Not rs.EOF
Else
Do
strOverskrift = rs("overskrift")
strBlikfang = rs("blikfang")
Response.Write "<tr><td><font color='#FFFFFF' size='2' face='Verdana, Arial, Helvetica, sans-serif'><a href='opret.asp?menu=" & strMenu & "&type=" & strType & "&edit=" & rs("id") & "' title='" & strBlikfang & "'>" & strOverskrift & "</font></td><td width='10%'><font color='#FFFFFF' size='2' face='Verdana, Arial, Helvetica, sans-serif'><div align='right'>" & rs("dato") & "</div></font></td><td><a onclick='return confirm('Er du sikker ?');' href='slet.asp?id=" & rs("id") & "&menu=" & strMenu & "&type=" & strType & "'> Slet </a></td></tr>"
rs.Movenext
Loop While Not rs.EOF
End If
%>
</table>
Activedevelopers version:
<%
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
%>
Jeg går ud fra at det sådan ca. er i starten ved:
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
at der skal ændres noget, men hvad aner jeg ikke, min connection til databasen ser sådan ud:
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/database.mdb")
Conn.Open DSN
%>
