Loop inde i For Each

Hej E

Billedegalleri
Jeg prøver at fremkalde en sletknap under de billeder som en bruger at upoadet, og kun de billeder brugeren har uploadet...

Jeg registrer hvem der uploader hvad i en access db, disse informationer prøver jeg så på at mixe sammen i den kode som viser billedegalleriet....

Problemer er at enten så vises sletknappen kun ved det første billede (ikke brugerens) eller også så vises slet knappen overhoved ikke...

Kode:
bla bla bla
'forbindelse til billede tabellen hvor brugeren er listet under Bref hvis han har uploadet et billede. Selve billedenavnet findes under Bsrc:

<% Dim rsshvem, rsshvilken, fsohvilken
Set rss = Conn.Execute("SELECT * FROM billeder WHERE Bref='" & Session("nick") & "'")

'Her starter den kode som viser billedegalleriet
strPhysicalPath = Server.MapPath(".\" & ShowSub)
If ShowSub > " " then
ShowSub = Replace(ShowSub, " ", "%20")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysicalPath)
    Set objFolderContents = objFolder.Files
    For Each objFileItem in objFolderContents
        If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
            ShowPic = Replace(objFileItem.Name, " ", "%20") %>
            <td align="center" valign="top" width="25%" onMouseover="this.className = 'knapover';" onMouseout="this.className = 'knapout';">
            <a href="<%=CurFile%>?ShowPic=<%=ShowSub%>\<%=ShowPic%>">
            <img src="<%=ShowSub%>\<%=objFileItem.Name%>" width="100" border="0">
            <center><font class="main"><b><%=Mid(objFileItem.Name,1,Len(objFileItem.Name)-4)%></b></font></center>
            </a>
'Her prøver jeg så på at mixe koderne sammen så jeg henter information fra billede tabellen om brugeren

                <%    Do While Not rss.Eof
                    rsshvem = rss("Bref")
                    rsshvilken = rss("Bsrc")
                    fsohvilken = objFileItem.Name
                    If rsshvilken = fsohvilken Then %><input TYPE="BUTTON" VALUE="Slet" class="form" onClick="if(confirm('Er du sikker på at du vil slette <%=objFileItem.Name%>?'))location.href='galleri.asp?mode=sletbillede&amp;hvilken=<%=objFileItem.Name%>&amp;hvor=<%=ShowSub%>'; else this.href='galleri.asp'" onMouseover="this.className = 'knapned';" onMouseout="this.className = 'knapop';"><% end if %>
                <%    rss.MoveNext
                    Loop %>
'Her forsætter billedegalleri koden

                </td>
            <%    PictureNo = PictureNo + 1
                If PictureNo=4 Then
                    Response.write "</tr><tr>"
                    PictureNo = 0
                End if
            End if
        Next
        Set objFSO = Nothing
    End if %>

bla bla bla


Hvordan sættes disse to koder sammen?

/Skjold