<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="3dformpaymec.aspx.vb" Inherits="._3dformpaymec" %>
3D Ödeme Sayfası
<%
Dim strAmount As String = Format(Session("Tutar"), ConfigurationManager.AppSettings("CurrencyFormatString")).Replace(",", "").Replace(".", ",") 'İşlem Tutarı Burada çevirme işlemi yapmayacağız
Dim taksit As String = Session("Taksit")
Dim strInstallmentCount As String
If taksit.Length = 1 Then
strInstallmentCount = IIf(Session("Taksit") > 0, "0" & Session("Taksit"), "0") 'Taksit Sayısı. Boş gönderilirse taksit yapılmaz
Else
strInstallmentCount = IIf(Session("Taksit") > 0, Session("Taksit"), "0") 'Taksit Sayısı. Boş gönderilirse taksit yapılmaz
End If
Dim siteno As String = Session("GetwayUserName")
Dim banka As String = Session("GetwayId") ' Site Numarasi olarak kullanılabilir.
Dim anahtar As String = Session("Key3D") '3D Secure şifreniz
' Dim strProvisionPassword As String = Session("GetwayPassword") 'SanalPos şifreniz
Dim cardname As String = Session("CardHolderName")
Dim cardnumber As String = Session("CardNumber")
Dim cardexpiredatemonth As String = Session("ExpMonth")
Dim cardexpiredateyear As String = Session("ExpYear")
Dim cardcvv2 As String = Session("CvcNumber")
Dim strSuccessURL As String = BaseUrl & "/store/banks3d/3dodemepaymec.aspx"
If ConfigurationManager.AppSettings("UseSsl") = "True" Then
strSuccessURL = BaseUrl.Replace("http://", "https://") & "/store/banks3d/3dodemepaymec.aspx"
End If
Dim strStoreKey As String = vpos2.EncryptSHA1(anahtar & siteno & banka & strAmount & strInstallmentCount)
' Aşağıda bizim yapmış olduğumuz hashleme yapılmakta paymec için lazım olabilir
'Dim SecurityData As String = UCase(vpos2.GetSHA1(strProvisionPassword + _strTerminalID))
'Dim HashData As String = UCase(vpos2.GetSHA1(strTerminalID + strOrderID + strAmount + strSuccessURL + strErrorURL + strType + strInstallmentCount + strStoreKey + SecurityData))
Dim posturl As String = Session("Bank3dGetWayAddress") ' Değeri = "https://www.paymec.com/paymecodeme/paymec.asp"
%>