Currency in vbscript/asp help

[acerf1]

I am follwoing a tut on the internet about making a shopping cart , i doing well but i need to change the $ to £ can anybody help, i pasted the code for it below many thanks

FOR x = 0 TO UBOUND( localCart, 2 )
IF localCart( CARTPID, x ) <> "" THEN
orderTotal = orderTotal + ( localCart( CARTPPRICE, x ) * localCart( CARTPQUANTITY, x ) )

DIM chId,chProduct,chPrice,chQuantity
chId=(localCart( CARTPID, x) )
chProduct=Server.HTMLEncode( localCart( CARTPNAME, x ) )
chPrice=formatCurrency( localCart( CARTPPRICE, x ) )
<% 'THE NEXT BIT PRINTS THE CONTENTS OF THE CART TO THE TEXT BOX %>
<%="ID#: " & chId & vbcrlf & "Product: " & chProduct & vbcrlf &"Unit Price: " & chPrice & vbcrlf &"Quatity: " & chQuantity & "Item" & vbcrlf & "_________" & vbcrlf%>
<%
END IF