vis flere records (loop) med flere billede.ref pr record (loop)

afk i 1 time

/Skjold

synes umiddelbart det ser meget rigtigt ud...
Hvad er problemet ?

det var mere end en time...

smider lige koden:

<%    If mode = "kobsannoncer" Then
        hvem = Request.QueryString("hvem")
        Set rs = Conn.Execute("SELECT * FROM kobsalg WHERE ksTrueFalse="&False)
        'Set rs = Conn.Execute("SELECT * FROM kobsalg WHERE ksTrueFalse='False' AND Bref='" & Request.QueryString("hvem") & "'")
        If rs.Eof OR rs.Bof Then %>
        <center><font class="rettet">Der er ikke oprettet nogen købsannoncer</font></center>
    <%    Else %>
        <table><tr><td><img src="gfx/1x1.gif" width="540" height="1"></td></tr></table>

            <table width="100%">
            <tr>
            <td><center><font class="main-header">Købsannoncer</font></center></td></tr>
            </table>
            <%    Do While Not rs.Eof
                titel = rs("ksTitel")
                indhold = rs("ksIndhold")
                indhold = Replace(indhold, vbCr,"<br>") %>
                <!--#include virtual="/include.asp" -->
                    <table width="100%"><tr><td>
                        <table width="100%" class="form">
                        <tr><td align="left"><font class="main">&nbsp;<%=titel%></font><td align="right"><font class="main"><%=rs("ksDato")%></font></td></td></tr>
                        </table>
                    </td></tr>
                    <tr><td>
                        <table>
                        <tr><td width="100%"><font class="main"><%=indhold%></font></td></tr>
                        </table>
                    </td></tr>
                    <tr><td>
                <%    Set rss = Conn.Execute("SELECT Bsrc FROM billeder WHERE Btab='ksID' AND Bref='" & Request.QueryString("hvem") & "'")   
                Do While Not rss.Eof
                Response.Write("<img src=kobsalg/" & rss("Bsrc") & ">" & "<br>")
                rss.MoveNext
                Loop
                rss.Close
                'Conn.Close
                Set rss = Nothing %>
                    </td></tr>                   
                    <tr><td>                   
                        <table width="100%"><tr>
                        <td align="left" nowrap><font class="main"><a href="mailto:<%=rs("ksEmail")%>"><%=rs("ksAfsender")%></a></font></td>
                        <td align="right"><% If Session("admin") = "True" Then %><input type="button" VALUE="Slet indlæg<%=" | " & (rs("ksIP"))%>" class="form" onClick="if(confirm('Er du sikker på at du vil slette?'))location.href='default.asp?mode=sletkobsalg&amp;id=<%=rs("ksID")%>'; else this.href='default.asp'" onMouseover="this.className = 'knapned';" onMouseout="this.className = 'knapop';"><% end if %></font></td></tr>
                        </table>
                    <hr width="100%" color="#5B7268"><br><br>
                    </td></tr>
                    </table>
            <%    rs.Movenext   
                Loop
                rs.Close
                Response.Write ""
            Conn.Close
            Set Conn = Nothing
        End if
    End if %>

/Skjold

Jeg kan se at mit problem er at jeg mangler at definere hvilken række koden skal tage fra billeder tabellen, fordi hvis jeg ændre noget af koden til dette så for jeg det input jeg vil ha:

                <%    Set rss = Conn.Execute("SELECT Bsrc FROM billeder WHERE Btab='ksID' AND Bref='" & 4 & "'")   
                Do While Not rss.Eof
                Response.Write("<img src=kobsalg/" & rss("Bsrc") & ">" & "<br>")
                rss.MoveNext
                Loop
                rss.Close
                Set rss = Nothing %>

Ovenover er 4 indsat på hvem plassen

/Skjold

<%    Set rss = Conn.Execute("SELECT Bsrc FROM billeder WHERE Btab='ksID' AND Bref=" & Request.QueryString("hvem"))

Mener vi har kigget på det her sammen før, kan det være rigtigt ?

Prøv at fjerne ''erne...   
Så det bliver som ovenstående..?

hej elle

vi har kigget på denne her før, og der er somsådan ikke nogen problemer med selve kodens " tegn. Jeg har lokaliseret mit problem til at være at jeg ikke sender en variabel til koden. Variablen ("hvem") indeholder ingenting, fordi det er en Vis alle købsannoncer-side.

/Skjold

Så hele denne lange smøre går ud på hvordan jeg fortæller koden at jeg gerne vil hente de billeder der passer sammen med annoncen..

/skjold

<%    Set rss = Conn.Execute("SELECT Bsrc FROM billeder WHERE Btab='ksID' AND Bref='" & rs.fields("hvem") & "'")

Så ret ("hvem") til det navn der kobler de to tabeller sammen, så skulle det gerne virke..!

det er vidst ksID, men jeg er ikke sikker...

Det er jo nemt nok at bestemme hvilke billeder der høre til hvilken annonce, når man bare skal vise en bestemt annonce, fordi så har brugeren på et tidspunkt bestemt den specifikke annonce, hvilket koden så opfanger.

Men her skal jeg vis alle annoncer og tilhørende x antal billeder dertil...

/Skjold

prøver....

Så stræker vi det ene ben frem... så strækker vi det andet ben frem ... så bla bla bla bla .. og drejer vi omkring ... og så gør vi boogi wuggi.. og så går vi i ring HEYYY!!!

Det virker .... :)

Tak

/Skjold

svar please...

Så andre kan se koden.
Denne her virker:
Set rss = Conn.Execute("SELECT Bsrc FROM billeder WHERE Btab='ksID' AND Bref='" & rs("ksID") & "'")

/Skjold

et svar...