Al codice:
codice:
Dim objFso, objFolder, objFiles, strFolder, strFile, strPath, hdr2, nomeFile
strPath = "../ProdImg/Hdr/"

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 <> "Thumbs.db" then
		nomeFile = left(strFile.name,len(strFile.name)-4)
	end if
	'Qui mi segna l'errore
	if InStr(cstr(nomeFile), "feat_"&rs("modello"),1) then
		hdr = "[img][/img]"
	else
		hdr = "x"
	end if
	
	if InStr(cstr(nomeFile), "hdr_"&rs("modello"),1) then
		hdr2 = "[img][/img]"
	else
		hdr2 = "y"
	end if
	
Next
Mi corrisponde l'errore:
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: '[string: "12_wsxga_tft"]'
/remtech/Prodotti/pc_gaming_line.asp, line 114
"12_wsxga_tft" non è altro che il nome di una gif nella cartella che gli ho specificato...perchè non me l'accetta? Dove sbaglio?