Cercare immagini corrispondenti a un codice

[Ciombe]

Salve,

devo riuscire a creare uno script che mi estragga in un cartelle di immagini quelle affini ad un dato codice.

Esempio:

ho questo codice "E0201", e devo trovare in una data cartella immagini, tutti i file che abbiamo come nome almeno "E0201" quindi, "E0201A" - "E0201ED" - "E0201C" ecc...

"E0201" è un codice di un capo di abbigliamento opportunanemente salvato in un DB access e richiamato nella pagina.

GLi altri sono varianti di quel codice che risiedono nella solita cartella immagine ma non sono salvati in nessun campo del DB.

[optime]

con FSO http://msdn.microsoft.com/en-us/library/95dtkhsz(v=VS.85).aspx

leggi i file della cartella e vedi se corrispondono (usando LEFT)

[Ciombe]

ho fatto questo

<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

if strFile.name = left(rsProdotto.Fields.Item("codice").Value, 4) then

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

end if

Next 

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

però a video non mi stampa nulla...

togliendo il ciclo if vedo invece tutte le foto della cartella

[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]