Cercare immagini corrispondenti a un codice

[Ciombe]

sistemato così

<ul>
<%

Dim objFso, objFolder, objFiles, strFolder, strFile

strPath = "/immagini/catalogo/"

Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
Set objFiles = objFolder.Files

For Each strFile in objFiles

NomeFile = left(strFile.name, 5)



if NomeFile = left(rsProdotto.Fields.Item("codice").Value, 5) then

response.write("[*][img][/img]")

end if


Next

Set objFso = Nothing
Set objFolder = Nothing
Set objFiles = Nothing
%>[/list]