<%@ Page SmartNavigation="false" Language="vb" AutoEventWireup="false" %>
3D Ödeme Sayfası
<%
Dim okUrl As String = BaseUrl & "/store/banks3d/3dodemewirecard.aspx" ' //İşlem başarılıysa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
Dim failUrl As String = BaseUrl & "/store/banks3d/3dodemewirecard.aspx" ' //İşlem başarısızsa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
'ssl
If ConfigurationManager.AppSettings("UseSsl") = "True" Then
okUrl = BaseUrl.Replace("http://", "https://") & "/store/banks3d/3dodemewirecard.aspx" ' //İşlem başarılıysa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
failUrl = BaseUrl.Replace("http://", "https://") & "/store/banks3d/3dodemewirecard.aspx" ' //İşlem başarısızsa dönülecek işyeri sayfası (3D işleminin sonucu ödeme işleminin değil)
End If
Dim wirecards As New wirecard.SaleService
Dim wirecardsoutput As New wirecard.MSaleTicketOutput
Dim token As New wirecard.MAuthToken
token.UserCode = ConfigurationManager.AppSettings("WireCardUserName")
token.Pin = ConfigurationManager.AppSettings("WireCardPassword")
Dim input As New wirecard.MSaleTicketInput
Dim product As wirecard.MSaleProduct() = New wirecard.MSaleProduct(0) {}
Dim aa As New wirecard.MSaleProduct()
Dim guidorder As Guid = New Guid((Session("NextOrderId").ToString.Split("_")(0).ToUpper & "-0000-0000-0000-000000000000").ToString)
aa.ProductId = 0
aa.Price = Format(Session("amount"), "0.00")
aa.Unit = 1
aa.ProductDescription = "Urun"
aa.ProductCategory = ConfigurationManager.AppSettings("WireCardProductType")
product(0) = aa
'Dim specadet As Integer = dt2.Rows.Count - 1
'Dim specTypeArray As specType() = New specType(0) {}
'For x As Integer = 0 To specadet
' Dim aa As New specType()
' aa.type = ChkNullString(dt2.Rows(x)("WizardItemDetails"))
' aa.value = ChkNullString(dt2.Rows(x)("LookupName"))
' aa.name = ChkNullString(dt2.Rows(x)("WizardItemName"))
' ReDim Preserve specTypeArray(x)
' specTypeArray(x) = aa
'Next
'product.specs = specTypeArray
input.MPAY = ""
input.Content = ""
input.SendOrderResult = True
input.PaymentTypeId = 1
input.ReceivedSMSObjectId = guidorder
input.SendNotificationSMS = False
input.OnSuccessfulSMS = ""
input.OnErrorSMS = ""
input.RequestGsmOperator = 0
input.RequestGsmType = 0
input.Url = GetBaseUrl()
input.SuccessfulPageUrl = okUrl
input.ErrorPageUrl = failUrl
input.Country = ""
input.Currency = ""
input.Extra = "3pay=true&cconly=true"
input.TurkcellServiceId = 0
input.ProductList = product
' Send Request
wirecardsoutput = wirecards.SaleWithTicket(token, input)
Dim posturl As String = wirecardsoutput.RedirectUrl
%>