<%
'**********************************************************
' Paypal Specific code when integrating with other gateways
' VP-ASP 6.50 Feb 28, 2005
' Support Currency and comma as secimal point
' Change Paypal URL
'***********************************************************
'const PAYPALEMAIL="yourpaypalemail@somewhere.com"
'const paypalMysITE="http://www.yourvpaspwebsiteurl.com/"
const CurrencyCode="USD" ' other values are EUR, CAD, GBP, JPY, USD
'
'*************************************************************************
' Use these in European countries
'**************************************************************************1
' Used only for Countries using comma as secimal point
const CommaAsDecimal="No" '
' Used only if you want amount converted to $US
const ConvertToUS="No" ' uses conversion rate in shop Configuration
' Used only if an LCID is not set in shop Configuration
const ResetLcid="1036" ' Reset LCid id
const paypalgatewaylocation="https://www.paypal.com/cgi-bin/webscr"
'
'dim oid
oid=getsess("oid")
sub paypalPerformGateway
'
dim returnurl
Dim subject
returnurl=getconfig("xmysite") & "paypalresult.asp"
subject=getconfig("xEmailSubject") & " - " & oid
shopwriteheaderpic getlang("langpaybypaypal"),"images/icons/paypal.gif"
Response.Write "
"
Response.write "
<%
Response.Write "
"
End sub
Sub paypalGetDatabaseFields
Dim Dbc, myname, amount
Dim StrSql
OpenOrderdb dbc ' Open the database
strsql = "select * from orders where orderid=" & oid
Set Orders = dbc.execute(strsql)
If Not Orders.eof then
amount=orders("orderamount")
If CommaAsDecimal="Yes" then
Convertamount amount
else
amount=formatnumber(amount,2)
amount=replace(amount,",","")
end if
paypaldofield "amount", amount
else
debugwrite "Cannot find order"
end if
Closerecordset Orders
ShopCloseDatabase dbc
end sub
'
Sub paypalDoField (fieldname,fieldvalue)
if fieldvalue="" or isNull(fieldvalue) then
exit sub
end if
Response.write ""
end sub
Sub Convertamount (amount)
dim savelcid, oamount, ydualconversionrate
savelcid=Getconfig("xlcid")
If ConvertToUs="Yes" and Getconfig("Xdualconversionrate")<>"" then
ydualconversionrate=getconfig("xdualconversionrate")
if isnumeric(ydualconversionrate) then
ydualconversionrate=cdbl(ydualconversionrate)
oamount=amount*ydualconversionrate
amount=oamount
end if
end if
session.lcid="2057"
amount=formatnumber(amount,2)
amount=replace(amount,",","")
If Savelcid<>"" then
session.lcid=savelcid
else
session.lcid=ResetLcid
end if
end sub
%>