billede tekst skal skrives under billedet

Hej E

Et billedegalleri.
Billederne vises fint i lille størrelse inkl. billedenavnet (.jpg) og man kan klikke på billedet og det enkelte billede vises for sig, men når billedet vises for sig så kan jeg ikke få billedenavnet til at stå under billedet. Det kan jeg ikke fordi jeg ikke forstår koden.

koden:

bla bla ...

<%    If ShowPic > " " then
    ShowPic = Replace(ShowPic, " ", "%20") %>
        <center><a href="java script:history.go(-1)"><img src="<%=ShowPic%>" border="0"></a></center>
<%    Else %>
<table border="0" width="100%">
<tr>
<%    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></td>
            <%    PictureNo = PictureNo + 1
                If PictureNo=4 Then
                    Response.write "</tr><tr>"
                    PictureNo = 0
                End if
            End if
        Next
        Set objFSO = Nothing
    End if %>
  </tr></table>

bla bla ....


Denne sætning skriver billedenavnet:
<center><font class="main"><b><%=Mid(objFileItem.Name,1,Len(objFileItem.Name)-4)%></b></font></center>

Problemet er for mig, at jeg ikke bare kan kopier sætningen ind der hvor det enkelt billede vises for sig... eks. der ikke virker:
If ShowPic > " " then
ShowPic = Replace(ShowPic, " ", "%20") %>
<center><a href="java script:history.go(-1)"><img src="<%=ShowPic%>" border="0"><center><font class="main"><b><%=Mid(objFileItem.Name,1,Len(objFileItem.Name)-4)%></b></font></center></a></center>

Hvordan får jeg billedenavnet med her?

/Skjold