Visning af billeder - 1

Hej!

Jeg har en funktion som jeg har vedlagt forneden! Det jeg gerne vil have den til at gøre er, at den skal vise alle billederne pånær det første billede - da det allerede bliver vist i et andet udtræk!

----------------------------------------------------

<%
                                    set billeder = Server.CreateObject("ADODB.Recordset")
                                    billeder.ActiveConnection = MM_emmedsbo_STRING
                                    billeder.Source = "SELECT * FROM billeder WHERE TBnogle = " & kategoritekst.Fields.Item("TID").Value
                                    billeder.CursorType = 1
                                    billeder.CursorLocation = 2
                                    billeder.LockType = 3
                                    billeder.Open()
                                    billeder_numRows = 0
                            %>
                <%
While ((Repeat6__numRows <> 0) AND (NOT billeder.EOF))
%>
                <tr>
                  <td>
                    <div align="center"> <img src="../billeder/hovedtekster/thum/<%=(billeder.Fields.Item("TBsti").Value)%>" border="1"><br>
                      <%=(billeder.Fields.Item("TBtekst").Value)%> </div>
                  </td>
                </tr>
                <%
  Repeat6__index=Repeat6__index+1
  Repeat6__numRows=Repeat6__numRows-1
  billeder.MoveNext()
Wend
%>
                <%billeder.Close()%>