<!--#include virtual="xml/writeXSL.asp"-->
<!--#include virtual="xml/getFileListNode.inc"-->
<!--#include virtual="xml/getPictureXML.inc"-->
<!--#include virtual="xml/SubmitCaption.inc"-->
<!--#include virtual="xml/getAllPicturesXML.inc"-->
<!--#include virtual="xml/writeThumbNails.inc"-->
<%
strPath = Request.ServerVariables("path_info")
lastS = InStrRev(strPath,"/")
strPath = Mid(strPath,1,lastS)

Call writeThumbNails("")

strXML = GetAllPicturesXML("")
If request("xml") = 1 Then
	response.write strXML
	response.end
End If

strXSL = Server.MapPath(strPath) & "\thumbs.xsl"

If Request.Form("hdnFile") <> "" Then
	SubmitCaption()
Else
	response.write WriteXSL(strXML,strXSL)
End If
%>