<%@ Page SmartNavigation="false" Language="vb" AutoEventWireup="false" %>
3D Ödeme Sayfası
<%
Dim strMode As String = "PROD"
Dim strApiVersion As String = "v0.01"
Dim strTerminalProvUserId As String = Session("GetwayUserName")
Dim strType As String = Session("PayType")
Dim strAmount As String = Format(Session("amount"), "0.00").Replace(",", "") 'İşlem Tutarı
Dim strCurrencyCode As String = "949"
Dim strInstallmentCount As String = IIf(Session("Taksit") > 0, Session("Taksit"), "") 'Taksit Sayısı. Boş gönderilirse taksit yapılmaz
Dim strTerminalUserId As String = Session("GetwayUserName")
Dim strOrderID As String = Session("NextOrderId")
Dim strCustomeripaddress As String = "127.0.0.1"
Try
strCustomeripaddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If strCustomeripaddress = "" Then
strCustomeripaddress = Request.ServerVariables("REMOTE_ADDR")
End If
Catch ex As Exception
strCustomeripaddress = "127.0.0.1"
End Try
Dim strTerminalID As String = Session("GetwayPosNo")
Dim _strTerminalID As String = strTerminalID
While _strTerminalID.Length < 9
_strTerminalID = "0" & _strTerminalID
End While
Dim strTerminalMerchantID As String = Session("GetwayId") 'MerchantID
Dim strStoreKey As String = Session("Key3D") '3D Secure şifreniz
Dim strProvisionPassword As String = Session("GetwayPassword") 'SanalPos şifreniz
Dim strSuccessURL As String = BaseUrl & "/store/banks3d/3dodemegaranti.aspx"
Dim strErrorURL As String = BaseUrl & "/store/banks3d/3dodemegaranti.aspx"
'Test
'Dim strSuccessURL As String = "http://www.pro20.com/store/banks3d/3dodemegaranti.aspx"
'Dim strErrorURL As String = "http://www.pro20.com/store/banks3d/3dodemegaranti.aspx"
If ConfigurationManager.AppSettings("UseSsl") = "True" Then
strSuccessURL = BaseUrl.Replace("http://", "https://") & "/store/banks3d/3dodemegaranti.aspx"
strErrorURL = BaseUrl.Replace("http://", "https://") & "/store/banks3d/3dodemegaranti.aspx"
End If
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")
%>