VP-ASP :: Shopping Cart Software

Shopping Cart Software Solutions for anywhere in the World

US/Canada(Toll Free): +1 888 587 2278
Europe/UK: +44 (020) 7193 9408
Australia/New Zealand: +61 3 9016 4497

VP-ASP Shopping Cart Customer Forum

Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 VPCart Forum
 General help me questions
 shopformatcurrency returns a "?" sign instead of
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

Trial_and_Error
Starting Member

36 Posts

Posted - June 17 2009 :  13:16:02  Show Profile  Reply with Quote
Hello,

In the tmp_custumeremail.htm, all prices, subtotals and totals are displayed using the shopformatcurrency function.

I did not change the code for the shopformatcurrency function in shopproductsubs2.asp and I can't figure out where the code is that displays a "?"sign in front of my prices. Am I overlooking something?

My xcurrencysymbol is set at "" in my database and I suppose my currency table is set up correctly (cid=EUR, fullunitname=EURO, conversuinvalue=1,currencysymbol=

The code for the shopformatcurrency code is below.

Thanks for any help?

Trial_and_error

Function ShopFormatCurrency (amount, decimalpoint)
' Handle 0 and garbage prices
dim tamount
tamount=amount
if GetSess("Fullunitname")<>"" then
tamount=Currencypriceconvert(tamount)
end if
If not isnumeric(tamount) then
tamount=0
end if
if tamount=0 then
if getconfig("xprice0")<>"" then
shopformatcurrency=Getconfig("xprice0")
exit function
end if
end if
if GetSess("Newcurrencysymbol")<>"" then
shopformatcurrency=GetSess("Newcurrencysymbol") & formatNumber (tamount, decimalpoint)
elseif getconfig("XCurrencySymbol") <> "" then
shopformatcurrency=getconfig("XCurrencySymbol") & formatNumber (tamount, decimalpoint)
else
shopformatcurrency="$" & formatNumber (tamount, decimalpoint)
end if
end function
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000