<% Set oSAC = Server.CreateObject("saferpay.MessageFactory") oSAC.Open "D:\Www\ci-pher.com\eshop" Set oPayInit = oSAC.CreatePayInit oPayInit.SetAttribute "AMOUNT", "129500" oPayInit.SetAttribute "CURRENCY", "CHF" oPayInit.SetAttribute "LANGID", "en" oPayInit.SetAttribute "DESCRIPTION", "cí-pher EASY software" oPayInit.SetAttribute "ALLOWCOLLECT", "no" oPayInit.SetAttribute "DELIVERY", "yes" oPayInit.SetAttribute "ACCOUNTID", "45291-17739243" oPayInit.SetAttribute "SUCCESSLINK", "http://www.ci-pher.com/eshop/success.php" oPayInit.SetAttribute "BACKLINK", "/.." oPayInit.SetAttribute "FAILLINK", "http://www.ci-pher.com/eshop/failed.php" oPayInit.SetAttribute "ORDERID", "270503" oPayInit.SetAttribute "NOTIFYADDRESS", "amiroshnichenko@cardintell.com" vURL = oPayInit.GetURL %>