REPLACE function not doing its job

Any idea why the following code isn't working properly? I want it to replace carriage returns in a textarea part of a form with <br> so that I don't have to go into the database at the back end and add the html.

Function ChkString2(string2)
ChkString2 = Replace(string2, vbcrlf, "<br>")
End Function

Much appreciated

Steve

Hold fire on this. I missed something out. Be back later if it still doesn't work

Don't worry. I've sorted it now

you sorted it by doing what?
always nice to see why someone had a problem just incase others have the same.

.matt

I forgot to run the function against the form fields hehehe

'function to check for carriage returns
Function ChkString2(string2)
ChkString2 = Replace(string2, vbcrlf, "<br>")
End Function

' run replace function
field1 = ChkString2(Request.Form("field1"))
field2 = ChkString2(Request.Form("field2"))

..etc...