Søgning og paging... Hjælp
Heyza allesammen.Jeg har et lille problem med en side. Den skal lave paging på min søgning. Dette gør den også fint, men når man skal videre til side 2, viser den som hvis man havde søgt på alle. Det er til et jokesystem. Du kan se hvad jeg mener her:
www.gonza.dk/main/jokes/paging.asp
Vælg 'alle børnene' Da der er nok jokes der til flere sider. Bare lad søgeordet være tomt.
koden:
<%@ Language=VBScript %>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
genre = Request.Form("genre")
soegeord = Request.Form("soegeord")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM jokes WHERE Joke LIKE '%" & soegeord & "%' AND Genre LIKE '%" & Genre & "%' ORDER BY ID DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../../db/database.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 5
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
%>
<HTML>
<HEAD>
<title>www.gonza.dk - The Plaze 2 B</title>
<style type="text/css">
BODY {
scrollbar-face-color: #333399;
scrollbar-shadow-color: #000000;
scrollbar-highlight-color: #333399;
scrollbar-3dlight-color: #000000;
scrollbar-darkshadow-color: #333399;
scrollbar-track-color: #ffffff;
scrollbar-arrow-color: #ffffff;
}
</style>
<style><!--a:hover{font-weight:bold; text-decoration:underline; color:#ffffff; }--></style>
<style>
<!--
/*
Text Link Underline Remover Script-
© Dynamic Drive (www.dynamicdrive.com)
For full source code, installation instructions,
100's more DHTML scripts, and Terms Of
Use, visit dynamicdrive.com
*/
a{text-decoration:none}
//-->
</style>
</head>
<body link="#99ccff" vlink="#99ccff" alink="#ffffff">
<center>
<form method="post" action="paging.asp">
<table border="1" bordercolor="#454545" bgcolor="#99ccff">
<tr>
<td bgcolor="#333399" align="center" colspan="3"><font face=arial color="99ccff" size="2"><b>Søg i databasen</b></font></td>
</tr>
<tr>
<td bgcolor="#333399"><input type="text" name="soegeord" value="">
</td>
<td bgcolor="#333399"><select name="genre">
<option value=" ">Alle Genre</option>
<option value="Alle Børnene">Alle børnene</option>
<option value="Blondine">Blondine</option>
<option value="Dyr">Dyr</option>
<option value="Frække">Frække</option>
<option value="Grove">Grove</option>
<option value="Hos sct. Peter">Hos sct. Peter</option>
<option value="Københavenere">Københavere</option>
<option value="Kvinder">Kvinder</option>
<option value="Kærlighed">Kærlighed</option>
<OPTION VALUE="Med på arbejde">Med på arbejde</OPTION>
<option value="Mænd">Mænd</option>
<OPTION VALUE="Scor, slap af">Scor, slap af</OPTION>
<option value="Sport">Sport</option>
<option value="Søde Jokes">Søde Jokes</option>
<option value="ægteskab">Ægteskab</option>
<option value="Århus">Århus historier</option>
<option value="Alt det andet">Alt det andet</option>
</select></td>
<td align="center" bgcolor="#333399">
<input type="submit" value="Søg">
</td>
</tr>
</form>
<%
Response.Write "<tr><td bgcolor='#333399' align='center' colspan='3'><font face='arial' color='99ccff' size='2'><b>Side " & intPage & " af " & intPageCount & "</b></font></td></tr></table></center><br>"
Do While Not rs.EOF And intRecCount > 0
joke=rs("joke")
response.write "<center><table border='1' bordercolor='#454545' bgcolor='#99ccff' width='500'><tr><td colspan='2' align='center' bgcolor='#333399'><font face='arial' size='3' color='#99ccff'><b>" & rs("genre") & "</b></font></td></tr>"
response.write "<tr><td width='70%' bgcolor='#333399'><font face='arial' size='3' color='#99ccff'><b> " & rs("titel") & "</b></font></td><td width='30%' bgcolor='#333399' align='right'><font face='arial' size='3' color='#99ccff'><b>" & rs("dato") & " </b></font></td></tr>"
response.write "<tr><td colspan='2' align='center' bgcolor='#99ccff'><font face='arial' size='3' color='#333399'><b>" & replace((joke),VbCrLf,"<br>") & "</b></font></td></tr></table><br><br></center>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<center><table bgcolor='99ccff' border='1' bordercolor='454545' width='500'><tr><td align='center' bgcolor='#333399'>"
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><font face='arial' size='2'><b><<</b></font></a>"
Else
Response.Write "<font face='arial' size='2' color='99ccff'><b><<</b></font>"
End If
Response.Write " "
For intNum = 1 To intPageCount
Response.Write "<a href=paging.asp?page=" & intNum & "><font face='arial' size='2'><b>" & intNum & "</b></font></a> "
Next
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & "><font face='arial' size='2'><b>>></b></font></a> "
Else
Response.Write "<font face='arial' size='2' color='99ccff'><b>>></b></font></td></tr></table></center>"
End If
%>
</BODY>
</HTML>
Det er vidst noget med at den indlæser siden forfra og uden søgeord når man går videre.
Hvis i kan hjælpe mig til så den f.eks. viser pagingen ligesom google ville det også være fedt (altså << ... 12 13 14 15 16 >>). håber i forstår, ellers så spørg. Men det andet er vigtigere.
Jeg har sat 80 pint af til dette. 50 til at få pagingen til at fungere og 30 til 'googlehalløjet' Hvis det ikke er nok så bare sig til, så finder vi nok ogs ud af det. :o)
Håber der er nogle der kan hjælpe.
Mvh.
gonza.dk
