<%@ page language="VB" EnableEventValidation="false" EnableViewStateMac="false" ValidateRequest="false" ViewStateEncryptionMode="Never" %> <%@ Import Namespace="System.Collections" %> <%@ Import Namespace="System.Web.UI.WebControls" %> <%@ Import Namespace="System.Web.UI" %> Ödeme Sayfası

3D Ödeme Sayfası

<% If Not Me.FindControl("head1") Is Nothing Then Dim head As Control = Me.FindControl("head1") Dim l As New Literal l.Text = "" head.Controls.Add(l) End If Dim mdstatus As String Dim ToSendMail As String = _portalsettings.Email If ConfigurationManager.AppSettings("SmtpMailOrders") <> "" Then ToSendMail = ConfigurationManager.AppSettings("SmtpMailOrders") End If Dim res As String = "" Dim e As IEnumerator = Request.Form.GetEnumerator() While e.MoveNext Dim xkey As String = e.Current Dim xval As String = Request.Form.Get(xkey) res &= xkey & " : " & xval & "
" End While If Request.Form.Get("Status") <> "" Then mdstatus = Request.Form.Get("Status") 'Y = Doğrulama başarılı 'N = Doğrulama başarısız, işlem reddedildi 'U = Doğrulama tamamlanamadı 'A = Doğrulama tamamlanamadı ancak doğrulama denemesini kanıtlayan CAVV üretildi. Çekim yapılabilir Dim OkStatus As String = "Y" If Not ConfigurationManager.AppSettings("Pay3dOkStatusBankAsya") Is Nothing Then OkStatus = ConfigurationManager.AppSettings("Pay3dOkStatusBankAsya") End If If OkStatus.Contains(mdstatus) Then Dim sb As New StringBuilder() sb.AppendLine("") Response.Write(sb.ToString()) Else Response.Write("
3D Doğrulama İşlemi Başarısız

") Response.Write("Hata Kodu:" & Request.Form.Get("Status") & "
") Dim _portalSettings As PortalSettings _portalSettings = CType(HttpContext.Current.Items("PortalSettings"), PortalSettings) Dim tmpOrder As ASPNetPortal.TempOrder Dim UserId As String = "" Dim UserName As String = "" Dim mail As New webmail If Session("TempOrder") Is Nothing Then tmpOrder = New ASPNetPortal.TempOrder Else tmpOrder = Session("TempOrder") End If Try If HttpContext.Current.User.Identity.IsAuthenticated() Then UserId = Context.User.Identity.Name.Split("|")(0) If IsNumeric(UserId) Then Dim ua As New ASPNetPortal.UsersDB Dim dr As SqlDataReader dr = ua.GetUserIndirim(UserId) dr.Read() UserName = ChkNullString(dr(3)) dr.Close() End If End If ' log error Dim py As New PaymentsDB py.AddPayment(tmpOrder, UserId, "
Banka 3D mesajı :" & res) If Not ConfigurationManager.AppSettings("SendFailedPayments") = "False" Then mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Onayı Alınamadı(3D)", "Kabul Edilecek işlem sonuçları(3D): " & OkStatus & "
İşlem Sonucu : " & Request.Form.Get("Status") & "
Banka:" & tmpOrder.BankInfo.BankName & "
Taksit:" & tmpOrder.BankInfo.Taksit & "UserId:" & UserId & "
UserName:" & UserName & "Toplam:" & tmpOrder.Pricess.KargoDahilCreditCardToplamTL & " TL
Teslimat Adı: " & tmpOrder.ShippingInfo.RecipientName & "
Teslimat Tel: " & tmpOrder.ShippingInfo.PhoneNo & "
Teslmat Gsm: " & tmpOrder.ShippingInfo.MobilePhone & "
Fatura Adı:" & tmpOrder.BillingInfo.CompanyName & "
Banka 3D mesajı :" & res) End If Catch ' log error Dim py As New PaymentsDB py.AddPayment(tmpOrder, UserId, "
Banka 3D mesajı :" & res) If Not ConfigurationManager.AppSettings("SendFailedPayments") = "False" Then mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Onayı Alınamadı(3D)", "Kabul Edilecek işlem sonuçları(3D): " & OkStatus & "
İşlem Sonucu : " & Request.Form.Get("Status") & "
Banka 3D Mesajı :" & res) End If End Try Dim sb As New StringBuilder() sb.AppendLine("") Response.Write(sb.ToString()) End If ElseIf Request.Form.Get("pan") <> "" Then Response.Write("
3D Doğrulama İşlemi Başarısız

") Response.Write("Hata Kodu:" & Request.Form.Get("Status") & "
") Dim _portalSettings As PortalSettings _portalSettings = CType(HttpContext.Current.Items("PortalSettings"), PortalSettings) Dim tmpOrder As ASPNetPortal.TempOrder Dim UserId As String = "" Dim UserName As String = "" Dim mail As New webmail If Session("TempOrder") Is Nothing Then tmpOrder = New ASPNetPortal.TempOrder Else tmpOrder = Session("TempOrder") End If Try If HttpContext.Current.User.Identity.IsAuthenticated() Then UserId = Context.User.Identity.Name.Split("|")(0) If IsNumeric(UserId) Then Dim ua As New ASPNetPortal.UsersDB Dim dr As SqlDataReader dr = ua.GetUserIndirim(UserId) dr.Read() UserName = ChkNullString(dr(3)) dr.Close() End If End If ' log error Dim py As New PaymentsDB py.AddPayment(tmpOrder, UserId, "
Banka 3D mesajı :" & res) If Not ConfigurationManager.AppSettings("SendFailedPayments") = "False" Then mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Onayı Alınamadı(3D)", "Kart 3d sistemine kayıtlı değil.
Banka:" & tmpOrder.BankInfo.BankName & "
Taksit:" & tmpOrder.BankInfo.Taksit & "UserId:" & UserId & "
UserName:" & UserName & "Toplam:" & tmpOrder.Pricess.KargoDahilCreditCardToplamTL & " TL
Teslimat Adı: " & tmpOrder.ShippingInfo.RecipientName & "
Teslimat Tel: " & tmpOrder.ShippingInfo.PhoneNo & "
Teslmat Gsm: " & tmpOrder.ShippingInfo.MobilePhone & "
Fatura Adı:" & tmpOrder.BillingInfo.CompanyName & "
Banka 3D mesajı :" & res) End If Catch ' log error Dim py As New PaymentsDB py.AddPayment(tmpOrder, UserId, "
Banka 3D mesajı :" & res) If Not ConfigurationManager.AppSettings("SendFailedPayments") = "False" Then mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Onayı Alınamadı(3D)", "Kart 3d sistemine kayıtlı değil.
Banka 3D mesajı : " & res) End If End Try Dim sb As New StringBuilder() sb.AppendLine("") Response.Write(sb.ToString()) Else 'Dim sb As New StringBuilder() 'sb.AppendLine("") 'Response.Write(sb.ToString()) Dim _portalSettings As PortalSettings _portalSettings = CType(HttpContext.Current.Items("PortalSettings"), PortalSettings) Dim tmpOrder As ASPNetPortal.TempOrder Dim UserId As String = "" Dim UserName As String = "" Dim mail As New webmail If Session("TempOrder") Is Nothing Then tmpOrder = New ASPNetPortal.TempOrder Else tmpOrder = Session("TempOrder") End If Try If HttpContext.Current.User.Identity.IsAuthenticated() Then UserId = Context.User.Identity.Name.Split("|")(0) If IsNumeric(UserId) Then Dim ua As New ASPNetPortal.UsersDB Dim dr As SqlDataReader dr = ua.GetUserIndirim(UserId) dr.Read() UserName = ChkNullString(dr(3)) dr.Close() End If End If ' log error Dim py As New PaymentsDB py.AddPayment(tmpOrder, UserId, "
Banka 3D mesajı :" & res) If Not ConfigurationManager.AppSettings("SendFailedPayments") = "False" Then mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Alınamadı(Bağlantı hatası 3D)", "Banka:" & tmpOrder.BankInfo.BankName & "
UserId:" & UserId & "
UserName:" & UserName & "Toplam:" & tmpOrder.Pricess.KargoDahilCreditCardToplamTL & " TL
Hata:Sistem Hatası
Hata Açıklaması:Banka ile bağlanı kurulamıyor(3D), Lütfen banka bilgilerini kontrol ediniz
Teslimat Adı: " & tmpOrder.ShippingInfo.RecipientName & "
Teslimat Tel: " & tmpOrder.ShippingInfo.PhoneNo & "
Teslmat Gsm: " & tmpOrder.ShippingInfo.MobilePhone & "
Fatura Adı:" & tmpOrder.BillingInfo.CompanyName & "
Banka 3D mesajı :" & res) End If Catch ' log error Dim py As New PaymentsDB py.AddPayment(tmpOrder, UserId, "
Banka 3D mesajı :" & res) If Not ConfigurationManager.AppSettings("SendFailedPayments") = "False" Then mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Alınamadı(Bağlantı hatası 3D)", " Banka ile bağlanı kurulamıyor(3D), Lütfen banka bilgilerini kontrol ediniz " & "
Banka 3D mesajı :" & res) End If End Try Response.Write("
Sistem Hatası

") Response.Write("Banka ile bağlantı kurulamıyor") End If %> <%-- <% Dim e As IEnumerator = Request.Form.GetEnumerator() While e.MoveNext Dim xkey As String = e.Current Dim xval As String = Request.Form.Get(xkey) Response.Write(xkey & " : " + xval + "
") End While %>--%>
Kapat