Why this code doesn't work?

[Larry]

<script language="VBScript">
Function ReplaceCR(patrn, replStr)
Dim str, jobPostForm
Set jobPostForm = document.forms("JobForm")
str = jobPostForm.JD.value
MsgBox(str)
ReplaceCR = Replace(str, patrn, replStr)
End Function

MsgBox(ReplaceCR(chr(32), "<br><br>"))
</script>

I don't understand why this code doesn't work...
*JD is a textareaI have in the form...
I am trying to get the value of JD field, and replace all the space with
<BR><BR>... for some reason this is not working...
Thanks!

[Steve Cochran]

If an element is inside a form, you have to reference as a form element:

jobpostform.elements("JD").value

Try that and see if it works.

steve

"Larry" <larry@levelogic.com> wrote in message
news:3974dd13$1@news.devx.com...
>
> <script language="VBScript">
> Function ReplaceCR(patrn, replStr)
> Dim str, jobPostForm
> Set jobPostForm = document.forms("JobForm")
> str = jobPostForm.JD.value
> MsgBox(str)
> ReplaceCR = Replace(str, patrn, replStr)
> End Function
>
> MsgBox(ReplaceCR(chr(32), "<br><br>"))
> </script>
>
> I don't understand why this code doesn't work...
> *JD is a textareaI have in the form...
> I am trying to get the value of JD field, and replace all the space with
> <BR><BR>... for some reason this is not working...
> Thanks!