[Resolvido] função formata url

Fala pessoal estou precisando de uma ajudinha.

Tenho essa função em ASP 3.0 que formata um link com o título da página:

Tipo: www.site.com.br/o-titulo-da-pagina.html

Ela retira caracteres especias da string, subtitui palavras acentuadas,etc...

'formata titulo para url amigavel
Function FormataUrl(ByVal Texto)

If (Mid(Texto,Len(Texto),1) = " ") Then
Texto = Mid(Texto,1,Len(Texto)-1)
End if

FormataUrl = Replace(Replace(LCase(Texto), " ", " "), "\'", "")
FormataUrl = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(FormataUrl, " ", "-"), "á", "a"), "é", "e"), "í", "i"), "ó", "o"), "ú", "u"), "ã", "a"), "â", "a"), "à", "a"), "ê", "e"), "ô", "o"), "ç", "c"), "/", ""), "'", ""), """", ""), "[", ""), "]", ""), "&", "-"), "#", ""), "+", ""), "{", ""), "}", ""), "ù", "u"), "ò", "o"), ".", ""), "?", ""), "!", ""), ":", ""), "´", ""), "`", ""), "õ", "o"), "\", "")
FormataUrl = Replace(Replace(Replace(FormataUrl, "û", "u"), "¢", "c"), "¡", "i")
FormataUrl = Replace(Replace(Replace(FormataUrl, "£", "e"), "¤", ""), "¥", "y")
FormataUrl = Replace(Replace(Replace(FormataUrl, "¦", ""), "ª", "a"), "æ", "ae")
FormataUrl = Replace(Replace(Replace(Replace(FormataUrl, "ë", "e"), "ì", "ì"), "ð", "o"), "Ä", "a")
FormataUrl = Replace(Replace(Replace(Replace(FormataUrl, "ñ", "n"), "ø", "o"), "ý", "y"), " ", " ")
FormataUrl = Replace(Replace(Replace(Replace(FormataUrl, "þ", "p"), "€", "e"), "ÿ", "y"), "²", "z")
FormataUrl = Replace(FormataUrl, "%", "")
FormataUrl = Replace(FormataUrl, "---", "-")

End Function

Tenho ela em um site feito em ASP e uso o filtro IsapiRewrite...

Estou com um sistema em PHP e gostaria de fazer o mesmo, para isso preciso de uma função parecida com esta.

Alguém tem alguma dica ou um link onde possa encontrar.

Tentei transformar esta função ASP em PHP mas não tive êxito, me compliquei com algumas funções...replace=str_replace,Len=strlen...não consegui.

Algúem poderia me ajudar?