Har fortfarande problem med min sökfunktion

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
%>