Vis kun 10 og 10 næste
Er der en der kan fortælde mig hvordan jeg laver det sådan at når man søger i denne så den kun viser de 10 føste, og så der kommer en ( << - >> ) til de 10 næste vis der er nogle....<<<<<<KODE>>>>>>>
<%
' Henter værdien fra soeg.htm
strKeyword = Trim(Request.Form("Keyword"))
If Len(strKeyword) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect("index.asp")
Else
' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,"'","''")
End If
' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, Hjemmehold, Resultat, Udehold, Dato FROM Bufferkampe WHERE"
strSQL = strSQL & " (Hjemmehold LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Resultat LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Udehold LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Dato LIKE '%" & strKeyword & "%')"
' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/Bufferkampe.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen
Response.Write "<p>Søgeresultat</p>"
Response.Write "<table class=table>"
Response.Write "<tr><th>Hjemmehold</th><th>Resultat</th><th>Udehold</th><th>Dato</th></tr>"
Do While Not rs.EOF
Response.Write "<tr><td width=100><Center>" & rs("Hjemmehold") & "</Center></td>"
Response.Write "<td width=100><Center>" & rs("Resultat") & "</Center></td>"
Response.Write "<td width=100><Center>" & rs("Udehold") & "</Center></td>"
Response.Write "<td width=200><Center>" & rs("Dato") & "</Center></td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
Response.Write "<p>Vis du skal søge efter kampe, skal du skrive det hold du vil søge efter</p>"
End If
' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
