Hi,
My links get generated from a SQL query. So I want to avoid the use of strange characters coming from the DB such: á , é / . ; etc.

I am using this nested REPLACE for doing it:
replace(replace(pCategoryDesc," ","-"),".","")
But this nested will be very longgggg an above all confusing.

Is there any other way or function to do this clearer?

Thanks

use a regular expression to replace multiple chars with a blank

function ReplaceChar(strIn)
	dim objRE
	set objRE = New RegExp
	objRE.pattern = "á|é" 
	objRE.Global = True
	ReplaceChar= objRE.replace(strIn,"")
	set objRE = nothing
end function

Each character you want to strip out gets added to the pattern, and is seperated by the alternation delimiter "|" ( the "pipe" symbol or vertical bar)

One small add-on to Chris' point: if for some reason you need to replace the vertical bar itself, make sure you add the escape character (\).

So: objRE.pattern = á|\||é (the first bar will be searched for, but the second bar will work as the "or" character.)

Thanks for the code, it is very handy.
But I don't want to get rid of everything. For example é will becomes e.
I have been playing with the code but unable to achive what I want.
Could you please help me?

I am using this:
function ReplaceChar(strIn)
dim objRE
set objRE = New RegExp
objRE.Global = True
objRE.pattern = "a|e"
ReplaceChar= objRE.replace(strIn,"z")
objRE.pattern = "s| |\.|/"
ReplaceChar= objRE.replace(strIn,"-")
set objRE = nothing
end function

But for some reason the 'objRE.pattern = "a|e" ' is not working. Only work the second statement.

It will but you won't see it, because you overwrite the first return value with the second.

you would recode the function as

function ReplaceChar(strIn,pattern,replaceChar)
	dim objRE
	set objRE = New RegExp
	objRE.pattern = pattern
	objRE.Global = True
	ReplaceChar= objRE.replace(strIn,replaceChar)
	set objRE = nothing
end function

then call it as

stringvar = ReplaceChar(strIN,"a|e","z")

and so on

for multiple replace I use an array and a looping function

function ReplaceHTML(strItem)
dim i

for i = 0 to ubound(ReplaceCode)
	strItem = replace(strItem, ReplaceCode(i,1), ReplaceCode(i,0))
next
ReplaceHTML = strItem	
end function

section from the array

dim ReplaceCode(96,1)

ReplaceCode(77,0) = "[h1]"
ReplaceCode(77,1) = "<h1>"
ReplaceCode(78,0) = "[/h1]"
ReplaceCode(78,1) = "</h1>"
ReplaceCode(79,0) = "[h2]"
ReplaceCode(79,1) = "<h2>"
ReplaceCode(80,0) = "[/h2]"
ReplaceCode(80,1) = "</h2>"

dim replacecode() whatever size you need

the character to replace goes in array(n,0) the character to replace it with goes in array(n,1)

Alternatively, you could use something like this after you do the first replace:

ReplaceChar = objRE.replace (ReplaceChar, "-")

You may find that easier to work with.

Thank you very much guys.