Problem med paging från valt kategori

12 svar · 252 visningar · startad av Tik 21 dec. 2002

TikMedlem sedan juli 2002108 inlägg

Frågan21 dec. 2002 09:16#1

Koden ser så här ut:

<%
sql = "select * from Annonser where 1 = 1 and accepterad = true"

if not Request.Form("annonstyp") = checked then
sql = sql & " and annonstyp LIKE '%" & Request.Form("annonstyp") & "%' "
end if

if LEN(Request.Form("sok")) > 0 then
sql = sql & " and Rubrik LIKE '%" & Request.Form("sok") & "%' "
end if

if not Request.Form("kategori") = "0" then
sql = sql & " and kategori LIKE '%" & Request.Form("kategori") & "%' "
end if

if not Request.Form("region") = "0" then
sql = sql & " and region LIKE '%" & Request.Form("region") & "%' "
end if

sql = sql & " order by datum DESC "

Set recset = Server.Createobject("ADODB.Recordset")
'***************************************************
Const perSida = 20
If Request.QueryString("page") = "" then
page = 1
Else
page = Request.QueryString("page")
End If

RecSet.CursorLocation = 3
RecSet.CacheSize = perSida
recset.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Database/Annonser.mdb")&""
%>

<%RecSet.MoveFirst
RecSet.PageSize = perSida

TotalPages = RecSet.PageCount
RecSet.AbsolutePage = page

Count = 0
Do While Not RecSet.EOF And Count < RecSet.PageSize %>
<td width="80" height="18"> <%=left(recset("Datum"),10)%></td>
<td width="44" height="18"> <%=mid(recset("Datum"),12,5)%></td>
<td width="21" height="18"><%if not recset("bild") = "" then%> <img src="Bilder/bild.gif"><%end if%></td>
<td width="234" height="18"> <a href="javascript:Annons('visa_annons.asp?annonsid=<%=recset("annonsid")%>','<%=recset("annonsid")%>','scrollbars=yes,width=600,height=550,top=50')"><%=recset("Rubrik")%></a></td>
<td width="54" height="18"> <%if not recset("Pris") = "" then%><%=recset("Pris")%> kr<%end if%></td>
<td width="165" height="18"> <%=recset("kategori")%> 
<%=recset("region")%></td>

      \</tr\>\<%
      Count = Count + 1 
      recset.movenext
        loop
        %\>
    \</table\>

<img border="0" src="Bilder/genom.gif" width="1" height="6"><%If TotalPages <> 1 Then%>
<tr>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="590" id="AutoNumber9">
<tr>
<td width="100%" bgcolor="#FFFFFF"> Sida:
<%
If TotalPages <> 1 Then
If (Int(page)) <> 1 Then
%>


<a href="sok_annons_visa.asp?page=<%=(Int(page)-1)%>" onFocus="this.blur()">
«
Bakåt</a> |
<%Else%><%End If%>
<%
For Pages = 1 To TotalPages
%>
<%If (Int(Pages)) = (Int(page)) Then%> <%=Pages%>
<%Else%>
<a href="sok_annons_visa.asp?page=<%=Pages%>" onFocus="this.blur()"><%=Pages%></a>
<%End If%>
<%Next%>
<%End If%>
<%
If (Int(page)) <> (Int(TotalPages)) Then
%>
|<a onFocus="this.blur()" href="sok_annons_visa.asp?page=<%=(Int(page)+1)%>" COLOR="#FFFFFF"> Framåt »</a>
<%Else%>
<% end if %> </td>
</tr>
</table>
<%end if%>
<img border="0" src="Bilder/genom.gif" width="1" height="6"><%else%><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="590" id="AutoNumber10">
<tr>
<td width="100%"><center>
Din sökning gav inga träffar
</center></td>
</tr>
</table>
<%end if%>

Och jag vill att när man väljer en viss kategori ska det gå att bläddra mellan sidor och titta på ENDAST annonser i denna kategori.

Vad som skal ändras/läggas till ?

EkströmMedlem sedan feb. 20022 594 inlägg

21 dec. 2002 11:38#2

Vad får du för felmeddelande då?

Ta bort 1 = 1 i SQL-satsen

TikMedlem sedan juli 2002108 inlägg

21 dec. 2002 12:20#3

inget.Utan den bläddrar annonser från alla kategorier.Inte från den utvalda tex bilar.

TikMedlem sedan juli 2002108 inlägg

21 dec. 2002 12:53#4

Jag tog bort men det hjälper inte.

solbulleMedlem sedan mars 20015 287 inlägg

21 dec. 2002 13:07#5

Är alla dina formulärfält textfält? Annars om en del av dom är selectlistor är det onödigt att ha med "Like" i sqlfrågan.

Typ:

if not Request.Form("kategori") = "0" then 
sql = sql & " and kategori  ='" & Request.Form("kategori") & "' " 
end if

Är det text eller tal i databasfälten?

TikMedlem sedan juli 2002108 inlägg

21 dec. 2002 13:56#6

Vad skulle jag i så fall skriva ? Ta bort dem ?

TikMedlem sedan juli 2002108 inlägg

21 dec. 2002 14:29#7

Funkar ej utan LIKE.

TikMedlem sedan juli 2002108 inlägg

21 dec. 2002 17:10#8

Någon som kan detta ?

TikMedlem sedan juli 2002108 inlägg

22 dec. 2002 09:16#9

Vad är det jag skall ändra ?

solbulleMedlem sedan mars 20015 287 inlägg

22 dec. 2002 10:31#10

Fungerar alltså det hela när du postat formuläret och du kommer till sidan för första gången?
Om det är så och det inte fungerar när du går vidare är det nog för att din sqlfråga blir fel på nästa sida. - Du får inte med dig dina värden från formuläret då.
Jag skulle tro att du måste fixa länken till nästa sida.

TikMedlem sedan juli 2002108 inlägg

22 dec. 2002 20:49#11

Nästa sida är:

sok_annons_visa.asp

Vad skall jag ändra/fixa ?Den ser likadant ut som koden hjag skrev här på sidan.

TikMedlem sedan juli 2002108 inlägg

24 dec. 2002 15:53#12

Någon som kan och vill fixa detta ?

TikMedlem sedan juli 2002108 inlägg

26 dec. 2002 19:28#13

Jo som Solbulle säger:

"felet är vad jag förstår att när du klickar på länken till nästa sida kör ditt script din sql-fråga igen och då har du inte med dig informationen att det bara ska vara en viss kategori.
Du måste ändra dina länkar i din paging så att de fakta som ursprungligen kommer från formuläret kommer med i länkarna. "

Men min fråga: vad är det som skall ändras ? vad skall jag skriva ?