ASP function modificering

Function CleanTheString(theString) 
'msgbox thestring     
strAlphaNumeric = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
'Used to check for numeric characters.     
For i = 1 to len(theString)         
strChar = mid(theString,i,1)         
If instr(strAlphaNumeric,strChar) Then             
CleanedString = CleanedString & strChar         
End If     
Next     
'msgbox cleanedstring     
CleanTheString = CleanedString 
End Function

Hejsa,
Jeg bruger dette script til at rense strenge for ugyldige karakterer.. MEN jeg vil gerne have at mellemrum medtages.

1. enten at mellemrum indgår som et tegn i strAlphaNumeric
2. eller at den springer mellemrum over
3. eller at de "ulovlige" tegn erstattes af et mellemrum

Mvh