ORDER BY giver forkerte resultater

jeg ved ikke om jeg forstår... men er det den sidst tilføjede hus.id du vil have ud?

for så er det "ORDER BY hus.id desc "
ved ikke om det er det du mener!?

Det er da vist også skrevet lidt kringlet :-)

Meningen er, at alle emner skal vises, hvilket betyder, at en søgning kan ende med 200 annoncer. Disse annoncer vil jeg gerne have listet i korrekt rækkefølge - den korrekte rækkefølge skal følge kolonnen "id" i tabellen "hus", stigende.

Sig endelig til, hvis det fortsat er lidt uklart.

Tabellen uge indeholder ikke 10.000 rows med samme værdi i feltet Hus, vel?

Forespørgslen er som du viser den her (med INNER JOIN og korrekt ON kriterie)? Kontroller venligst, selvom du er helt sikker :-)

Hvad indeholder tabellen uge (du må jo ønske at gøre bruge af nogle oplysninger herfra)?

Da du har DISTINCT med i din sidste forespørgsel burde det under ingen omstændigheder kunne resultere i flere ens rækker. Du har ikke alligevel et felt fra tabellen uge med vel? Måske som det yderste felt, du aldrig fik kigget på? Så det alligevel ikke er helt ens rækker?

I næste kommentar smider jeg lige hele koden, da det måske kan være med til at gøre det lidt mere overskueligt. Det er resultaterne af en søgefunktion, som både henter oplysninger fra tabellen hus og uge.

I tabellen hus er alle annoncer, mens deres udlejningskalender er i tabellen uge. Tabellen hus har omkring 200 annoncer.

Jeg vil gerne have det sådan, at når der fremkommer et søgeresultat, så skal annoncerne listes i en rækkefølge, som bestemmes af id i tabellen hus (stigende).

Hjælper dette?

<%

    '//Paging funktion
    Function Page(iStart, total, iOffset, iStop)
       
        Response.Write "<table border=0 width='100%'><tr>"
       
        If iStart > 0 then
          'Vis Forrige link
          Response.Write "<td width='20%' align='left'><font face='Arial' size=""3""><A HREF=""?iStart=" & iStart-iOffset & _
                        "&iOffset=" & iOffset & """>Forrige</A></font></td>"
        Else
          Response.Write "<td width='20%'>&nbsp;</td>"
        End if
                   
        antalsider = total / iOffset
       
        Response.Write "<td width='60%' align='center'><font face='Arial' size=""3"">"
            For i = 0 to antalsider
                If Clng(i * iOffset) = Clng(iStart) then
                    Response.Write "<A HREF=""?iStart=" & iOffset * i & _
                                "&iOffset=" & iOffset & """><u>" & i + 1 & "</u> </A>"
                Else
                    Response.Write "<A HREF=""?iStart=" & iOffset * i & _
                                "&iOffset=" & iOffset & """>" & i + 1 & " </A>"
                End if               
            Next
        Response.Write "</font></td>"
       
        If iStop < total then
          'Vis næste link
          Response.Write "<td width='20%' align='right'><font face='Arial' size=""3""><A HREF=""?iStart=" & iStart+iOffset & _
                        "&iOffset=" & iOffset & """>Næste</A></font></td>"
        Else
          Response.Write "<td width='20%'>&nbsp;</td>"                       
        End if
    End Function
   
    Sub SkrivHusTabel(id, HusLink, overskrift, annoncetekst)
        With Response
            .Write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""400"" height=""66"" style='border: 1 solid #000000'>"
            .Write "<tr>"
            .Write "<td valign=""middle"" align=""center"" width=""100"" style='border-right: 1 solid #000000'>"

            if Len(HusLink) = 0 Then
                .Write "<a href=""#"" onClick=""MyWindow=window.open('Hus.asp?Id=" & id & "','MyWindow','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=700,height=620'); return false;""><img border=""0"" alt='" & overskrift & "' title='" & overskrift & "' src=""" & foto4 & """ width=""100"" height=""66""></a>"
            Else
                .Write "<A HREF ='" & HusLink & "' TARGET=""_blank""><img border=""0"" alt='" & overskrift & "' title='" & overskrift & "' src=""" & foto4 & """ width=""100"" height=""66""></a>"
            end if

            .Write "</td>"
            .Write "<td valign=""top"" align=""left"" width=""240"" style='padding-left: 3; padding-right: 3; padding-top: 2'>"
            .Write "<p align=""left"">"
            .Write "<font face=""Arial"" size=""3""><b>" & overskrift & "</b></font><br>"
            .Write "<font face=""Arial"" size=""2"">" & annoncetekst & "</font>"
            .Write "</p>"
            .Write "</td>"
            .Write "<td valign=""middle"" align=""center"" width=""60"" bgcolor=""#DFDFDF"" style='border-left: 1 solid #000000'>"

            if Len(HusLink) = 0 Then
                Response.write "<a href=""#"" alt='" & overskrift & "' title='" & overskrift & "' onClick=""MyWindow=window.open('Hus.asp?Id=" & id & "','MyWindow','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=700,height=620'); return false;""><font face=""Arial"" color=""#E87400"" size=""3""><b>Info</b></font></a>"
            Else
                Response.write "<A HREF ='" & HusLink & "' TARGET=""_blank"" alt='" & overskrift & "' title='" & overskrift & "'><font face='Arial' color='#E87400' size='3'><b>Info</b></font></a>"
            end if
           
            .Write "</td></tr></table>"
        End With
    End Sub

    Response.Expires = -1

    Pris = Request.QueryString("Pris")
    Spa = Request.QueryString("Spa")
    Vaske = Request.QueryString("Vaske")
    Pool = Request.QueryString("Pool")
    OP = Request.QueryString("Op")
    Hus = Request.QueryString("Hus")
    Bo = Request.QueryString("Bo")

    ap = Request.QueryString("AP")
   
    if ap = "Uvæsentlig" Then ap = 1 End if
    if ap = "over 8" Then ap = 8 End if

    uge = Request.QueryString("Uge")
    if uge = "Uvæsentlig" then uge = 0 End if

    amtfl = 0
    alle = Request.QueryString("alle")
    if alle = "ON" Then amtfl = 1 end if

    o1 = Request.QueryString("o1")
    if o1 = "ON" Then amtfl = 1 end if

    o2 = Request.QueryString("o2")
    if o2 = "ON" Then amtfl = 2 end if

    o3 = Request.QueryString("o3")
    if o3 = "ON" Then amtfl = 3 end if

    o4 = Request.QueryString("o4")
    if o4 = "ON" Then amtfl = 4 end if

    o5 = Request.QueryString("o5")
    if o5 = "ON" Then amtfl = 1 end if

    o6 = Request.QueryString("o6")
    if o6 = "ON" Then amtfl = 1 end if

    o7 = Request.QueryString("o7")
    if o7 = "ON" Then amtfl = 1 end if

    o8 = Request.QueryString("o8")
    if o8 = "ON" Then amtfl = 1 end if

    o9 = Request.QueryString("o9")
    if o9 = "ON" Then amtfl = 1 end if

    o10 = Request.QueryString("o10")
    if o10 = "ON" Then amtfl = 1 end if

    o11 = Request.QueryString("o11")
    if o11 = "ON" Then amtfl = 1 end if

    o12 = Request.QueryString("o12")
    if o12 = "ON" Then amtfl = 1 end if

    o13 = Request.QueryString("o13")
    if o13 = "ON" Then amtfl = 1 end if

    o14 = Request.QueryString("o14")
    if o14 = "ON" Then amtfl = 1 end if

    o15 = Request.QueryString("o15")
    if o15 = "ON" Then amtfl = 1 end if

    o16 = Request.QueryString("o16")
    if o16 = "ON" Then amtfl = 1 end if

    o17 = Request.QueryString("o17")
    if o17 = "ON" Then amtfl = 1 end if

    o18 = Request.QueryString("o18")
    if o18 = "ON" Then amtfl = 1 end if

    o19 = Request.QueryString("o19")
    if o19 = "ON" Then amtfl = 1 end if

    o20 = Request.QueryString("o20")
    if o20 = "ON" Then amtfl = 1 end if

    o21 = Request.QueryString("o21")
    if o21 = "ON" Then amtfl = 1 end if

    o22 = Request.QueryString("o22")
    if o22 = "ON" Then amtfl = 1 end if

    o23 = Request.QueryString("o23")
    if o23 = "ON" Then amtfl = 1 end if

    o24 = Request.QueryString("o24")
    if o24 = "ON" Then amtfl = 1 end if

    o25 = Request.QueryString("o25")
    if o25 = "ON" Then amtfl = 1 end if

    o26 = Request.QueryString("o26")
    if o26 = "ON" Then amtfl = 1 end if

    o27 = Request.QueryString("o27")
    if o27 = "ON" Then amtfl = 1 end if

    o28 = Request.QueryString("o28")
    if o28 = "ON" Then amtfl = 1 end if

    o29 = Request.QueryString("o29")
    if o29 = "ON" Then amtfl = 1 end if

    If (amtfl = 0 and session("fl2") = 0) then
        Response.Redirect("intetamt.asp")
        Response.end
    End if

    '---------------------
    'PAGING VARIABLE START
    '---------------------
    Dim iStart, iOffset
    iStart = Request.QueryString("iStart")
   
    'iOffset angiver hvor mange huse pr. side
    iOffset = 4 'denne kan lægges ud til brugeren at bestemme hvormange han/hun gerne vil have vist pr. side.

    If Not IsNumeric(iStart) Or Len(iStart) = 0 Or iStart < 0 then
        iStart = 0
    Else
        iStart = CInt(iStart)
    End if

    If Not IsNumeric(iOffset) or Len(iOffset) = 0 then
        iOffset = 4
    Else
        iOffset = CInt(iOffset)
    End if

    '--------------------
    'PAGING VARIABLE SLUT
    '--------------------

    fl = 0

    if session("fl2") = 1 Then
        sql = session("SQL")
    Else
        SQL = "SELECT DISTINCT hus.Overskrift, hus.Op, hus.Antalp, Uge.Hus, Uge.uge, Uge.Ledigt, Uge.Pris1, Uge.Pris2, Uge.Lm, Uge.Pris3, Uge.Pris4, hus.Grundareal, hus.Husets, hus.Vr, hus.Afi, hus.Ass, hus.Parabol, hus.Stereo, hus.Telefon, hus.tv, hus.Video, hus.Barnestol, hus.Kedel, hus.emh, hus.Fryser, hus.Kaffe, hus.Komfur, hus.kl, hus.Micro, hus.Opvask, hus.Bruser, hus.Sauna, hus.Sol, hus.Spa, hus.Brovn, hus.El, hus.Husdyr, hus.Pool, hus.Stsuger, hus.Tumbler, hus.Vaske, hus.Carport, hus.Cykler, hus.Grill, hus.Have, hus.Terrasse, hus.Foto, hus.Beskr, hus.Ejer, hus.Ann, hus.Amt, hus.Lann, hus.Link, hus.IA, hus.Rk, hus.id, hus.tann, hus.tbeskriv, hus.eann, hus.ebeskriv " & _
              "FROM Uge INNER JOIN hus ON Uge.Hus = hus.id " & _
              "WHERE (((hus.IA) Is Null Or (hus.IA)= '')) "
              '"ORDER BY hus.id "
       
        if not uge = "Uvæsentlig" Then
            sql = sql & " AND uge = " & uge & " "
        End if

        if Antalp = "Uvæsentlig" then
            sql = sql & " AND Antalp >" & 1 & " "
        Else
            sql = sql & "AND Antalp >=" & AP & " "
        end if

        if not Pris = "Uvæsentlig" then
            sql = sql & "AND pris1 <=" & Pris & " "
        end if

        if not alle = "ON" Then
            sql = sql & " AND("
        End if

        if o1 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o1'"
                fl = 1
            else
                sql = sql & "or amt = 'o1'"
                fl = 1
            End if
        End if

        if o2 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o2'"
                fl = 1
            else
                sql = sql & "or amt = 'o2'"
                fl = 1
            End if
        End if

        If o2 = "ON" Then
            If fl = 0 then
                sql = sql & " OR amt = 'o2'"
                fl = 1
            Else
                sql = sql & "OR amt = 'o2'"
                fl = 1
            End if
        End if

        if o3 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o3'"
                fl = 1
            else
                sql = sql & "or amt = 'o3'"
                fl = 1
            End if
        End if

        if o4 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o4'"
                fl = 1
            else
                sql = sql & "or amt = 'o4'"
                fl = 1
            End if
        End if

        if o5 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o5'"
                fl = 1
            else
                sql = sql & "or amt = 'o5'"
                fl = 1
            End if
        End if

        if o6 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o6'"
                fl = 1
            else
                sql = sql & "or amt = 'o6'"
                fl = 1
            End if
        End if

        if o7 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o7'"
                fl = 1
            else
                sql = sql & "or amt = 'o7'"
                fl = 1
            End if
        End if

        if o8 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o8'"
                fl = 1
            else
                sql = sql & "or amt = 'o8'"
                fl = 1
            End if
        End if

        if o9 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o9'"
                fl = 1
            else
                sql = sql & "or amt = 'o9'"
                fl = 1
            End if
        End if

        if o10 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o10'"
                fl = 1
            else
                sql = sql & "or amt = 'o10'"
                fl = 1
            End if
        End if

        if o11 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o11'"
                fl = 1
            else
                sql = sql & "or amt = 'o11'"
                fl = 1
            End if
        End if

        if o12 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o12'"
                fl = 1
            else
                sql = sql & "or amt = 'o12'"
                fl = 1
            End if
        End if

        if o13 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o13'"
                fl = 1
            else
                sql = sql & "or amt = 'o13'"
                fl = 1
            End if
        End if

        if o14 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o14'"
                fl = 1
            else
                sql = sql & "or amt = 'o14'"
                fl = 1
            End if
        End if

        if o15 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o15'"
                fl = 1
            else
                sql = sql & "or amt = 'o15'"
                fl = 1
            End if
        End if

        if o16 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o16'"
                fl = 1
            else
                sql = sql & "or amt = 'o16'"
                fl = 1
            End if
        End if

        if o17 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o17'"
                fl = 1
            else
                sql = sql & "or amt = 'o17'"
                fl = 1
            End if
        End if

        if o18 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o18'"
                fl = 1
            else
                sql = sql & "or amt = 'o18'"
                fl = 1
            End if
        End if

        if o19 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o19'"
                fl = 1
            else
                sql = sql & "or amt = 'o19'"
                fl = 1
            End if
        End if

        if o20 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o20'"
                fl = 1
            else
                sql = sql & "or amt = 'o20'"
                fl = 1
            End if
        End if

        if o21 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o21'"
                fl = 1
            else
                sql = sql & "or amt = 'o21'"
                fl = 1
            End if
        End if

        if o22 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o22'"
                fl = 1
            else
                sql = sql & "or amt = 'o22'"
                fl = 1
            End if
        End if

        if o23 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o23'"
                fl = 1
            else
                sql = sql & "or amt = 'o23'"
                fl = 1
            End if
        End if

        if o24 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o24'"
                fl = 1
            else
                sql = sql & "or amt = 'o24'"
                fl = 1
            End if
        End if

        if o25 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o25'"
                fl = 1
            else
                sql = sql & "or amt = 'o25'"
                fl = 1
            End if
        End if

        if o26 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o26'"
                fl = 1
            else
                sql = sql & "or amt = 'o26'"
                fl = 1
            End if
        End if

        if o27 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o27'"
                fl = 1
            else
                sql = sql & "or amt = 'o27'"
                fl = 1
            End if
        End if

        if o28 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o28'"
                fl = 1
            else
                sql = sql & "or amt = 'o28'"
                fl = 1
            End if
        End if

        if o29 = "ON" Then
            if fl = 0 then
                sql = sql & "amt = 'o29'"
                fl = 1
            else
                sql = sql & "or amt = 'o29'"
                fl = 1
            End if
        End if

        if not Alle = "ON" Then
            sql = sql & ")"
        End if

        Session("fl2") = 1
    End if

    if Spa = "ON" Then
        sql = sql & "and (spa = 'checked')"
    End if

    if Pool = "ON" Then
        sql = sql & "and (Pool = 'checked')"
    End if

    if Vaske = "ON" Then
        sql = sql & "and (Vaske = 'checked')"
    End if

    if OP = "ON" Then
        sql = sql & "and (Opvask = 'checked')"
    End if

    if Hus = "ON" Then
        sql = sql & "and (Husdyr = 'checked')"
    End if

    if Bo = "ON" Then
        sql = sql & " and (Brovn = 'checked')"
    End if
   
    sql = sql & " and (Ledigt = 'checked')"

    'smider lige sql'en i en session
    Session("SQL") = sql

    'Åben basen
    Set objRS = Server.CreateObject("ADODB.Recordset")
    objrs.open sql, conn, 1, 3

    If objrs.EOF And objrs.BOF Then
        Response.Redirect "ingenposter.asp"
    End if
   
    arrayHuse = objRS.GetRows()
   
    total = Ubound(arrayHuse, 2) 'totalt antal af huse indenfor kriterierne
%>
    <p align="left"><!-- #include virtual="overstemenu.asp"--></p>
    <p align="center">
    <div align="center">
    <center>
    <table border="0" cellpadding="0" cellspacing="0" width="740" height="450" bordercolor="#000000">
    <tr>
    <td valign="top" align="left" width="125" height="428"> <!-- #include virtual="venstremenu.asp"--> </td>
    <td valign="top" align="left" width="490" height="428"> <div align="center">
    <table border="0" cellpadding="0" cellspacing="0" width="425" height="440" style="border: 1 solid #132537" bgcolor="#FFFFFF">
    <tr>
    <td height="421" valign="top" align="left" style="padding-left: 10; padding-right: 10; padding-top: 5"> </center>
    <div align="center">
<%
   
    '----------------
    ' start paging
    '----------------
    dim iStop
   
    If total + 1 > (iOffset + iStart) Then
        iStop = iOffset + iStart - 1
    Else
        iStop = total
    End If
   
    'alle numre er minus 1
    '(1)hus.Overskrift
    '(2)hus.Op
    '(3)hus.Antalp
    '(4)Uge.Hus
    '(5)Uge.uge
    '(6)Uge.Ledigt
    '(7)Uge.Pris1
    '(8)Uge.Pris2
    '(9)Uge.Lm
    '(10)Uge.Pris3
    '(11)Uge.Pris4
    '(12)hus.Grundareal
    '(13)hus.Husets
    '(14)hus.Vr
    '(15)hus.Afi
    '(16)hus.Ass
    '(17)hus.Parabol
    '(18)hus.Stereo
    '(19)hus.Telefon
    '(20)hus.tv
    '(21)hus.Video
    '(22)hus.Barnestol
    '(23)hus.Kedel
    '(24)hus.emh
    '(25)hus.Fryser
    '(26)hus.Kaffe
    '(27)hus.Komfur
    '(28)hus.kl
    '(29)hus.Micro
    '(30)hus.Opvask
    '(31)hus.Bruser
    '(32)hus.Sauna
    '(33)hus.Sol
    '(34)hus.Spa
    '(35)hus.Brovn
    '(36)hus.El
    '(37)hus.Husdyr
    '(38)hus.Pool
    '(39)hus.Stsuger
    '(40)hus.Tumbler
    '(41)hus.Vaske
    '(42)hus.Carport
    '(43)hus.Cykler
    '(44)hus.Grill
    '(45)hus.Have
    '(46)hus.Terrasse
    '(47)hus.Foto
    '(48)hus.Beskr
    '(49)hus.Ejer
    '(50)hus.Ann
    '(51)hus.Amt
    '(52)hus.Lann
    '(53)hus.Link
    '(54)hus.IA
    '(55)hus.Rk
    '(56)hus.id
    '(57)hus.tann
    '(58)hus.tbeskriv
    '(59)hus.eann
    '(60)hus.ebeskriv
       
    For i = iStart to iStop
       
        amt = Right(arrayHuse(50, i), Len(arrayHuse(50, i)) - 1) 'klipper områdenummeret til således "O"'et forsvinder
       
        id = arrayHuse(55, i)
        HusLink = arrayHuse(52, i)
        overskrift = Server.HTMLEncode(arrayHuse(0, i))
        annoncetekst = Server.HTMLEncode(arrayHuse(49, i))
       
        foto4 = id & "/1.jpg"
       
        'skriver tabellen med et item (hus)
        Call SkrivHusTabel(id, HusLink, overskrift, annoncetekst)
       
        'mellemrum mellem tabellerne
        Response.Write "<br>"
    Next
   
    Response.write "</P>"
       
    'skriver pagingen altså side 1 2 3 4 osv.
    'variablerne brugt er iStart = starttallet for siden, total = antallet af items, iOffset = items pr. side
    'iStop = hvor langt skal der vises til
    Call Page(iStart, total, iOffset, iStop)
   
    'skriver total antallet af huse i området
    Response.Write "</tr><tr><td colspan='3'><font face='Arial' size=""3"">" & total + 1 & " sommerhuse i område " & amt & "</font></td></tr></table>"
%>

Lukker spg.