---
title: "Har fortfarande problem med min sökfunktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/101718-har-fortfarande-problem-med-min-sökfunktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "leniz"
published: "2004-04-17T12:26:27.000Z"
updated: "2004-04-28T10:07:30.000Z"
replies: 4
views: 262
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/101718-har-fortfarande-problem-med-min-sökfunktion"
---

# Har fortfarande problem med min sökfunktion

## #1 — leniz, 2004-04-17T12:26Z

Hej!

Är det verkligen ingen som förstår varför följande kod ger träffar när den körs lokalt på min dator men INTE visar samma träffar när jag kör den på webbhotellet? Vore jätte tacksam om någon kunde hjälpa mig.

Vi har samma version av mysql (4). Jag använder mig av ASP. När jag t.ex. söker på en ort så visas 2 träffar på min dator men 0 på webbhotellet. Sökning på annan ort kan ge 20 träffar på min dator och t.ex. 15 på webbhotellet o.s.v. Koden fungerar som jag vill på min dator men inte på webbhotellet.

```

<%
Sub PageNavigation(ByVal Page, TotalPages)
    Dim strScriptName

    strScriptName = Request.ServerVariables("resultat3.asp")

    If CInt(Page) > 1 Then
        Response.Write "<A href=""" & strScriptName & "?page=" & Page - 1 & "&ortnamn=" & ortnamn & "&ordning=" & ordning & """><font color='ffffff'><span class='text12'>&laquo; Föregående</A> "
    Else
        Response.Write "<font color='ffffff'><span class='text12'>&laquo; Föregående "
    End If

    For N = 1 To CInt(TotalPages)
        If N <> CInt(Page) Then
            Response.Write "<A href=""" & strScriptName & "?page=" & N & "&ortnamn=" & ortnamn & "&ordning=" & ordning & """><font color='ffffff'><span class='text12'>" & N & "</A> "
        Else
            Response.Write "<B><font color='ffffff'><span class='text12'>" & N & "<B> "
        End If
    Next

    If CInt(Page) < CInt(TotalPages) Then
        Response.Write "<A href=""" & strScriptName & "?page=" & Page + 1 & "&ortnamn=" & ortnamn & "&ordning=" & ordning & """><font color='ffffff'><span class='text12'>Nästa &raquo;</A>"
    Else
        Response.Write "<font color='ffffff'><span class='text12'>Nästa &raquo;"
    End If

End Sub

intPageSize = 10
intPage = Request.QueryString("page")

If intPage = "" Then 
intPage = 1
end if

ortnamn = Request("ortnamn")

if ortnamn <> "" then
sql = "select s.stugid, s.antalbadd, s.kommentarer, s.pris_per_natt, s.hogsasongvecka, s.pris_per_vecka, s.namn2, 
s.aktivera, s.ortid, s.reserv, o.ortid, o.ortnamn, l.lan_id, l.län, i.innehavareid, i.kontaktperson from Stugor as s inner join
innehavare as i on i.innehavareid=s.innehavareid inner join ort as o on o.ortid=s.ortid inner join lan as l on l.lan_id=o.lan_id
where o.ortnamn like '%" & ortnamn & "%' and s.Aktivera=-1 order by " & ordning

Set rs = Server.CreateObject("ADODB.Recordset")

rs.CursorLocation = 3
rs.Open sql, stugdatabas, 3

if rs.eof then
Response.Write("Inga träffar")

else
rs.PageSize = intPageSize 
rs.AbsolutePage = intPage
intTotalPages = rs.PageCount
intCounter = 0

do until rs.eof OR intCounter >= intPageSize
intCounter = intCounter + 1
%>

Resultat skrivs ut....

<%
rs.movenext
if not rs.eof OR intCounter >= intPageSize then
%>

Resultat skrivs ut

<%
intCounter = intCounter + 1
rs.movenext
end if
loop
%>
```

Permalänk: https://www.webforum.nu/p/101718

## #2 — Poffe, 2004-04-17T13:17Z

Är det verkligen exakt samma innehåll i båda databaserna då?

Permalänk: https://www.webforum.nu/p/1325440

## #3 — leniz, 2004-04-17T13:39Z

Nej inte exakt men det har jag givetvis tagit in i beräkningarna. Det är fler objekt på webbhotellet men det visar ändå färre träffar så det borde vara tvärtom. Givetvis kontrollerar jag att en post som jag ska söka efter finns innan jag testar att söka efter den med sökfunktionen.
Mvh Lena

Permalänk: https://www.webforum.nu/p/1325446

## #4 — leniz, 2004-04-26T12:41Z

Har försökt med uteslutningsmetoden nu och tror att det är denna rad som ställer till det:

rs.CursorLocation = 3 

Finns det något jag kan använda istället för cursorlocation som har samma effekt?

Mvh Lena

Permalänk: https://www.webforum.nu/p/1333694

## #5 — leniz, 2004-04-28T10:07Z

Jag har nu bytt pagingsystem till ett helt annat och fått det att fungera genom det.
Mvh Lena

Permalänk: https://www.webforum.nu/p/1334847

---

Tråden på webben: https://www.webforum.nu/amne/asp/101718-har-fortfarande-problem-med-min-sökfunktion