SQL sætning søges

du ønsker alle alle records udskrevet med billeder der:
- ikke har 2 kommentarer
- 3 stjerner eller derover?

Det jeg ville gøre var at lave en betingelses sætning i stedet:

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Sti/tildindatabase.mdb")

Conn.Open DSN

strSQL = "Select Photos.id From Photos"
Set Photos = Conn.Execute(strSQL)

If not Photos.EOF then

    do
        strSQL = "Select * From Commment Where comments.photo =" & Clng(Photos("id"))
        Set Comments = Conn.Execute(strSQL)
        If not Comments.EOF then
            do
                if Clng(Comments("Stars") > 2 then
                    nummer = nummer + 1
                    Comments.Movenext
                else
                    Comments.Movenext
                End if
            loop While not Comments.EOF
   
            If nummer < 2 then
                Resposen.write Photos("id")
        end if
    Nummer = 0
    Photos.Movenext
    Loop While Not Photos.EOF
End if

Conn.Close
Set Conn = Nothing
Set Photos = Nothing
Set Comments = Nothing
%>

Havde lige Glemt en End IF :-)

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Sti/tildindatabase.mdb")

Conn.Open DSN

strSQL = "Select Photos.id From Photos"
Set Photos = Conn.Execute(strSQL)

If not Photos.EOF then

    do
        strSQL = "Select * From Commment Where comments.photo =" & Clng(Photos("id"))
        Set Comments = Conn.Execute(strSQL)
       
        If not Comments.EOF then
            do
                if Clng(Comments("Stars") > 2 then
                    nummer = nummer + 1
                    Comments.Movenext
                else
                    Comments.Movenext
                End if
            loop While not Comments.EOF
   
            If nummer < 2 then
                Response.write Photos("id")
              end if
          End if
         
        Nummer = 0
          Photos.Movenext
    Loop While Not Photos.EOF
End if

Conn.Close
Set Conn = Nothing
Set Photos = Nothing
Set Comments = Nothing
%>

Ferdinand > Jeg ønsker alle billeder som ikke har fået minimum 2x 3 stjerner. Et billede kan godt have 10 kommentarer, hvoraf der kun er 1 med stjerner vedhæftet. Derfor er de 2 kommentarer ikke et krav.

Peter_hansen > Er det korrekt opfattet af mig, at alle poster i tabellen "photos" vil blive løbet igennem ?

lukker