Question : VBScript Replace Function & the £ symbol?

Hello,

I have written the following VBScript function, which appears to work on everything but the £ symbol??? Any idea as to what I have done wrong?

Thanks

 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

<% 
Function canurl(strInput)
  strInput = Replace(strInput," ", "-")
  strInput = Replace(strInput,"£", "")
  strInput = Replace(strInput,"--", "-")
  strInput = Replace(strInput,"!", "")
  strInput = Replace(strInput,"$", "")
  strInput = Replace(strInput,"%", "")
  strInput = Replace(strInput,"^", "")
  strInput = Replace(strInput,"&", "")
  strInput = Replace(strInput,"*", "")
  strInput = Replace(strInput,"(", "")
  strInput = Replace(strInput,")", "")
  strInput = Replace(strInput,"_", "")
  strInput = Replace(strInput,"+", "")
  strInput = Replace(strInput,"=", "")
  strInput = Replace(strInput,",", "")
  strInput = Replace(strInput,".", "")
  strInput = Replace(strInput,"/", "")
  strInput = Replace(strInput,"<", "")
  strInput = Replace(strInput,">", "")
  strInput = Replace(strInput,"?", "")
  strInput = Replace(strInput,"\", "")
  strInput = Replace(strInput,"|", "")
  strInput = Replace(strInput,"`", "")
  strInput = Replace(strInput,"¬", "")
  strInput = Replace(strInput,";", "")
  strInput = Replace(strInput,":", "")
  strInput = Replace(strInput,"@", "")
  strInput = Replace(strInput,"'", "")
  strInput = Replace(strInput,"#", "")
  strInput = Replace(strInput,"~", "")
  strInput = Replace(strInput,"[", "")
  strInput = Replace(strInput,"{", "")
  strInput = Replace(strInput,"]", "")
  strInput = Replace(strInput,"}", "")
  canurl = strInput
End Function   
    %>

Answer : VBScript Replace Function & the £ symbol?


if the Data type of [shippernum] is text

Me.NCOsubform.Form.Filter = "[shippernum]='" & ShipperText & "'"
Me.NCOsubform.Form.FilterOn = True
Random Solutions  
 
programming4us programming4us