<%@ LANGUAGE="VBSCRIPT" %>
<%
sub ListFolderContents(path)
	dim fs, folder, file, item, url, findFile
	findFile = "no"
	set fs = CreateObject("Scripting.FileSystemObject")
	set folder = fs.GetFolder(path)
	'If Folder Name equals Event, list contents
	for each item in folder.SubFolders
		if uCase(item.Name) = uCase(Request.QueryString("event")) then
			ListFolderContents(item.Path)
		end if
	next
	'If we are in the correct folder, display results
	if uCase(folder.Name) = uCase(Request.QueryString("event")) then
		findFile = "yes"
		'Display the event details
		Response.Write("title:" & folder.Name & chr(13))
		Response.Write("lgPath:" & Server.URLencode("http://" & Request.ServerVariables("HTTP_HOST") & "/ShowMeProofs/" & folder.Name & "/") &  chr(13))
		for each item in folder.Files
			if (instr(uCase(item.name), ".JPG")) then
				Response.Write("src:" & item.name & chr(13))
				Response.Write("link:" & Server.URLencode("http://showmeproofs.com/proofing/photo_order.php?event=" & folder.Name & "&#38;image=" & Server.URLencode(item.name) & "&#38;domain=" & Request.ServerVariables("HTTP_HOST")) & chr(13))
			end if
		next
	end if
	if findFile = "no" then
		ListShowItContents(Server.MapPath("/"))
	end if
end sub

sub ListShowItContents(path)
	dim fs, folder, file, item, url
	set fs = CreateObject("Scripting.FileSystemObject")
	set folder = fs.GetFolder(path)
	'If Folder Name equals Event, list contents
	for each item in folder.SubFolders
		if uCase(item.Name) = uCase(Request.QueryString("event")) then
			ListFolderContents(item.Path)
		end if
	next
	'If we are in the correct folder, display results
	if uCase(folder.Name) = uCase(Request.QueryString("event")) then
		'Display the event details
		Response.Write("title:" & folder.Name & chr(13))
		Response.Write("lgPath:" & Server.URLencode("http://" & Request.ServerVariables("HTTP_HOST") & "/" & folder.Name & "/images/") &  chr(13))
		for each item in folder.Files
			if (instr(uCase(item.name), ".JPG")) then
				Response.Write("src:" & item.name & chr(13))
				Response.Write("link:" & Server.URLencode("http://showmeproofs.com/proofing/photo_order.php?event=" & folder.Name & "&#38;image=" & Server.URLencode(item.name) & "&#38;domain=" & Request.ServerVariables("HTTP_HOST")) & chr(13))
			end if
		next
	end if
end sub

sub ListPricingFileName(path)
	dim fs, folder, file, item, url, findFile
	findFile = "no"
	set fs = CreateObject("Scripting.FileSystemObject")
	set folder = fs.GetFolder(path)
	'If Folder Name equals Event, list contents
	for each item in folder.SubFolders
		if uCase(item.Name) = uCase(Request.QueryString("event")) then
			ListPricingFileName(item.Path)
		end if
	next
	'If we are in the main folder, display results
	if uCase(folder.Name) = uCase("ShowMeProofs") then
		'Display the event details
		for each item in folder.Files
			if (instr(uCase(item.name), ".TXT")) then
				findFile = "yes"
				Response.Write("pricing:" & Request.ServerVariables("HTTP_HOST") & "/ShowMeProofs/" & item.name)
			end if
		next
	end if
	'If we are in the correct folder, display results
	if uCase(folder.Name) = uCase(Request.QueryString("event")) then
		'Display the event details
		for each item in folder.Files
			if (instr(uCase(item.name), ".TXT")) then
				findFile = "yes"
				Response.Write("pricing:" & Request.ServerVariables("HTTP_HOST") & "/ShowMeProofs/" & folder.Name & "/" & item.name)
				Response.End()
			end if
		next
	end if
	if fineFile = "no" then
		ListShowItPricing(Server.MapPath("/"))
	end if
end sub

sub ListShowItPricing(path)
	dim fs, folder, file, item, url
	set fs = CreateObject("Scripting.FileSystemObject")
	set folder = fs.GetFolder(path)
	'If Folder Name equals Event, list contents
	for each item in folder.SubFolders
		if uCase(item.Name) = uCase(Request.QueryString("event")) then
			ListPricingFileName(item.Path)
		end if
	next
	'If we are in the main folder, display results
	if uCase(folder.Name) = uCase("ShowMeProofs") then
		'Display the event details
		for each item in folder.Files
			if (instr(uCase(item.name), ".TXT")) then
				Response.Write("pricing:" & Request.ServerVariables("HTTP_HOST") & "/ShowMeProofs/" & item.name)
			end if
		next
	end if
	'If we are in the correct folder, display results
	if uCase(folder.Name) = uCase(Request.QueryString("event")) then
		'Display the event details
		for each item in folder.Files
			if (instr(uCase(item.name), ".TXT")) then
				Response.Write("pricing:" & Request.ServerVariables("HTTP_HOST") & "/" & folder.Name & "/" & item.name)
				Response.End()
			end if
		next
	end if
end sub

if (Request.QueryString("txt") = "1") then
	ListPricingFileName(Server.MapPath("."))
else
	ListFolderContents(Server.MapPath("."))
end if
%>