Prova questa:
codice:
'Funzione per pulire una stringa e trasformarla in un URL valido
Function ConvertiTitoloInNomeScript(strTitolo)
risultato = strTitolo
risultato = replace(risultato, "à", "a")
risultato = replace(risultato, "è", "e")
risultato = replace(risultato, "é", "e")
risultato = replace(risultato, "ì", "i")
risultato = replace(risultato, "ò", "o")
risultato = replace(risultato, "ù", "u")
set re = Server.CreateObject("VBScript.RegExp")
re.Pattern = "[^\da-z]" 'Lascio solo numeri e lettere
re.global = true
re.IgnoreCase = true
risultato = re.replace(risultato,"-") 'Il resto lo sostituisco con il -
re.Pattern = "-{2,}"
re.global = true
re.IgnoreCase = true
risultato = re.replace(risultato,"-") 'Lascio un solo - se ne ce sono di più consecutivi
set re = nothing
if left(risultato,1) = "-" then
risultato = mid(risultato,2,len(risultato)-1) 'Tolgo - se è il primo carattere
end if
if right(risultato,1) = "-" then
risultato = left(risultato,len(risultato)-1) 'Tolgo - se è l'ultimo carattere
end if
risultato = lcase(risultato)
ConvertiTitoloInNomeScript = risultato
Enf Function