<html>
<body>
<%
    sub showImages(path,id)
	dim fso,folder,file
	set fso = server.createObject("Scripting.FileSystemObject")
	
	set folder=fso.getFolder(path)
	
	response.write "<table  align=center width=100% >"
	for each file in folder.files
	    response.write "<tr><td width=60% align=center>"
	    response.write "<a href=""setProductImage.asp?id=" & id & "&image=" & file.name &""">"
	    response.write "<img src=""../../productImages/" & file.name & """ border=0></a></td>"
	    response.write "<td valign=middle><font size=2 face=monospaced><b>" & file.name & "</b></font></td></tr>" 
	next
	
	response.write "</table>"
	set file=nothing
	set folder=nothing
	set fso=nothing
    end sub
    'prezinta imaginile 
    'click imagine si introduce in baza de date
    'back
    
    showImages server.MapPath("..\..\productImages\"),request("id")
%>
</body>
</html>
