<!--#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
	If IsNull(Application(Server.MapPath(strPath) & "_thumbs")) OR IsEmpty(Application(Server.MapPath(strPath) & "_thumbs")) Then
		Application(Server.MapPath(strPath) & "_thumbs") = WriteXSL(strXML,strXSL)
	End If
	response.write Application(Server.MapPath(strPath) & "_thumbs")
End If
%>