ho provato il tuo script, ma mi da un errore:

codice:
<%
Function TextToImg(Text,Folder,ImgAttr)
	Dim i,Length,ArOut()
	Folder = Replace(Folder,"\","/")
	If Len(Folder)>0 then If Mid(Folder,Len(Folder),1)<>"/" then Folder = Folder & "/"
	If ImgAttr<>"" then ImgAttr=" " & ImgAttr
	Length = Len(Text)
	Redim ArOut(Length-1)
	For i=1 to Length
	 ArOut(i) = "[img]" & Folder & Mid(Text,i,1) &".gif[/img]"
	Next
	TextToImg = Join(ArOut,VbCrLf)
End Function
%>

<%
Response.Write TextToImg("Ciao","../images/letters/","border='0' width='16px'")
%>
l'errore è questo:

Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'i'

/web/band.asp, line 79

la linea incriminata (la 79) è questa:



codice:
	 ArOut(i) = "[img]" & Folder & Mid(Text,i,1) &".gif[/img]"
non riesco a capire, ho fatto dei tentativi, ma probabilmente è colpa mia e dlle mie scarse conoscenze...


una domanda in + volevo porti (anche se forse prematuro):
dal tuo script mi sembra di capire (ma potrei sbagliare) che non è previsto lo "spazio"...potrebbe essere una soluzione sostituire prima gli spazi con degli underscore e quindi chiamare l'immagine corrispettiva dello spazio "_.gif"?

grazie ancora per la pazienza