Prøver igen: Implementering af paging
Hej.Jeg har tidligere oprettet spørgsmålet, uden held. Nu prøver jeg igen:
Jeg har nu brugt mange timer i forsøget på at implementere noget paging-kode på en søgeside i ASP. Da jeg tilsyneladende ikke kan få det til at fungere, må jeg have kompetent hjælp udefra :-/
Er der nogen her på Eksperten der kan implementere et pagingsystem i følgende kode og html? (jeg har skrabet overflødig kode og html fra):
[Kode start]
<%
Response.Buffer = True
Response.CacheControl = "no-cache"
Response.Expires = -1
%>
<html>
<head>
<title></title>
</head>
<body>
<%
' I N D S Æ T T E R S Ø G E R E S U L T A T E R
' --------------------------------------------------
If Request.QueryString("Find") <> "" Then
' Henter søgeord
strTekst = Trim(Request.QueryString("Find"))
If Len(strTekst) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect("Artikler.asp")
Else
' Hvis der er skrevet i feltet
strTekst = Replace(strTekst,"'","''")
End If
' Skaber DSNLess forbindelse til databasen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\...\db\artikler.mdb"
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
' Opbygger en dynamisk SQL streng
strSQL = "SELECT * FROM artikler WHERE "
strSQL = strSQL & " (Titel LIKE '%" & strTekst & "%')"
strSQL = strSQL & " OR (Blikfang LIKE '%" & strTekst & "%')"
strSQL = strSQL & " OR (ArtikelIndhold LIKE '%" & strTekst & "%')"
%>
<%
' Skaber et recordset udfra SQL strengen
Set RS = myConn.Execute(strSQL)
If Not (RS.BOF Or RS.EOF) Then
Do While Not RS.EOF
%>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100" height="100" valign="top"><a href="VisArtikel.asp?ArtikelID=<%=RS("ID")%>"><img
src="grafik/artikler/<%=RS("Foto")%>" border="0" WIDTH="100" HEIGHT="100"></a></td>
<td width="10" height="100"></td>
<td width="370" height="100" valign="top"><table border="0" cellspacing="0"
cellpadding="0" class="tekst">
<tr>
<td width="370" height="15" valign="top" class="overskrift"><%=RS("Titel")%>
</td>
</tr>
<tr>
<td width="370" height="3"></td>
</tr>
<tr>
<td width="370" height="54" valign="top"><div><p><%=Left(RS("Blikfang"),250)%> ...</p>
</div></td>
</tr>
<tr>
<td width="370" height="3" valign="top"></td>
</tr>
<tr>
<td width="370" height="15" valign="top"><a href="VisArtikel.asp?ArtikelID=<%=RS("ID")%>"
class="link3">Læs artiklen</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100" height="20" valign="top"></td>
<td width="10" height="20"></td>
<td width="370" height="20" valign="top"></td>
</tr>
</table>
<%
RS.MoveNext
Loop
End If
%>
<table>
<tr>
<td width="480" height="0"></td>
</tr>
<tr>
<td width="480" height="10"><%
' Lukker databasen
myConn.Close
Set myConn = Nothing
End If
%>
</td>
</tr>
</table>
</body>
</html>
[Kode slut]
Da jeg selv, efter mange timers forsøg synes, at det er en svær opgave, sætter jeg points til 60.
Den paging-kode jeg forsøger at implementere, er fra ActiveDeveloper: http://activedeveloper.dk/artikler/default.asp?articleid=31
Håber at der er nogen der vil hjælpe...
Apo
