|
<%@ LANGUAGE="VBScript" %> <% Response.CodePage = 1252 Response.Write("Hello, " & RemoveBadCharacters(Request.Form("UserName"))) Response.Write("<BR>This is why you received an error:")
Function RemoveBadCharacters(strTemp) Dim regEx Set regEx = New RegExp regEx.Pattern = "[^\s\w]" regEx.Global = True RemoveBadCharacters = regEx.Replace(strTemp, "") End Function %> |