sostituire una stringa con un immagine

[byronbyron]

ciao a tutti potete aiutarmi perfavore...ci mettete un attimo ne sono sicuro a risolvere;volevo sapere cosa va sostituito in questa parte del codice se potete scrivermela voi questa parte ho provato a cambiarla in mille modi ma mi da sempre errore..

Stringa = Replace(stringa, faccine(x, 1), "[img][/img]")

il codice dello script completo è questo:

<%

Function SMILE (STRINGA)

' DICHIARA L'ARRAY "FACCINE",
' CHE CONTERRA' LE FACCINE
' E IL NOME DELLE IMMAGINI CON LE
' QUALI SOSTITUIRLE..

dim faccine(2, 2)

' IL PRIMO NUMERO, INSERITO FRA PARENTESI
' (IN QUESTO CASO IL NUMERO 2), CORRISPONDE
' AL NUMERO DI FACCINE INSERITE
' DA SOSTITUIRE,
' QUINDI PER OGNI FACCINA DA SOSTITUIRE
' CON UNA IMMAGINE CHE INSERIREMO,
' DOVREMO INCREMENTARE IL PRIMO NUMERO
' PER AGGIUNGERE UNA FACCINA, SCRIVEREMO SOTTO
' LE FACCINE GIA' INSERITE:
' faccine(Numero seguente, 1) = "faccina"
' faccine(Numero faccina, 2) = "nome dell'immagine.estensione"
' RICORDIAMOCI DI INCREMENTARE IL PRECEDENTE NUMERO
' (L'INDICE DELL'ARRAY -> dim faccine(X, 2))

faccine(0, 1) = ":-)"
faccine(0, 2) = "felice.gif"
faccine(1, 1) = ":-("
faccine(1, 2) = "triste.gif"
faccine(2, 1) = ":D"
faccine(2, 2) = "felicissimo.gif"

' CARTELLA DOVE ANDRANNO MESSE LE IMMAGINI
' DELLE FACCINE (AD ESEMPIO "/SMILE/")

Cartella = "/img/"

' -> -> -> -> -> -> -> -> -> ->
' DA QUI INIZIA IL VERO CUORE
' DELLA FUNZIONE
' -> -> -> -> -> -> -> -> -> ->
' SE LA LUNGHEZZA DELLA STRINGA PASSATA
' E' MAGGIORE DI 0, EFFETTUA IL CONTROLLO
' E LE EVENTUALI SOSTITUZIONI DELLE FACCINE

IF Len(Stringa) > 0 Then

For x = 0 to Ubound(faccine)

' SOSTITUISCE LE EVENTUALI FACCINE
' CON LE LORO IMMAGINI

Stringa = Replace(stringa, faccine(x, 1), "[img][/img]")

Next

' RILASCIA IL CONTENUTO PASSATO
' CON LA SOSTITUZIONE OVVIAMENTE DELLE FACCINE
' CON DELLE IMMAGINI

SMILE = Stringa

End IF

End Function
%>

Grazie e buon lavoro a tutti

[optime]

se ci dici quale è l'errore...

[byronbyron]

ciao op grazie per la risposta .... l'errore è su questa parte di codice

Stringa = Replace(stringa, faccine(x, 1), "[img][/img]")

volevo sapere quali valori mettere tra le virgolette in questa parte d codice...oppure se va lasciata cosi?

[optime]

nun te sforza', eh?

quale è l'errore? "errore: è morto il gatto"?

[byronbyron]

ciao sei stato velocissimo!!

questo è l'errore che mi da:

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/smile.asp, line 59

Stringa = Replace(stringa, faccine(x, 1), "<img src=""" & CARTELLA & faccine(x, 2)

[optime]

mmmmmm Expected ')' mmmmmm cosa vorrà dire mmmmmm spe', chiamo il traduttore ipergalattico di startrek mmmmmmm forse forse forse mmmm attesa ')' mmm attesa? che forse ne hai aperte due e ne hai chiusa una sola mmmmm mah boh chissà, prova, poi facce sape'

[byronbyron]

azz ...alla faccia della pippa....hai fatto un corso accellerato di dialettica comica invece che di asp....?
Da profano visto che asp l'ho inziato ora credo che questo sia uno script molto facile per chi ha dimestichezza con il linguaggio!!
Cmq chiudete pure il post ....tanto ho scritto un paio di volte su questo forum è solo un utente mi ha aiutato senza quel senso di superiorità....che ha chi ne sa più di un altro...
buon proseguimento!!
gentilissimi....

[optime]

scusa se ti ho offeso