PK

ADDRLIN : /HMFS2/WEB/DTC038/v0071350.ferozo.com/public_html/administrador/includes/
FLL :
Current File : //HMFS2/WEB/DTC038/v0071350.ferozo.com/public_html/administrador/includes/rename.asp

<%response.Charset="ISO-8859-1"

dim tofind,replac,xcar,strin
tofind = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÇçÌÍÎÏìíîïÙÚÛÜùúûüÿÑñ·´'/"
replac = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeCcIIIIiiiiUUUUuuuuyNn-___"

Function rename(str)

	strin = str
	for xcar = 1 to len(replac)
		strin = replace(strin,MID(tofind,xcar,1),MID(replac,xcar,1))
	next
	rename = strin
	
End Function%>


PK 99