<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="3dodemekuveyt.aspx.vb" Inherits="._3dodemekuveyt" EnableEventValidation="false" EnableViewStateMac="false" ValidateRequest="false" %>
<%
Dim script As String = ""
Dim tmpOrder As ASPNetPortal.TempOrder
Dim ToSendMail As String = _portalsettings.Email
If ConfigurationManager.AppSettings("SmtpMailOrders") <> "" Then
ToSendMail = ConfigurationManager.AppSettings("SmtpMailOrders")
End If
Session("SonucKodu") = Request.Form("ResponseCode").ToString()
Session("SonucAciklamasi") = Request.Form("ResponseMessage").ToString()
If Session("TempOrder") Is Nothing Then
tmpOrder = Session("TempPayment")
Else
tmpOrder = Session("TempOrder")
End If
Session("KuveytOrder") = tmpOrder.OrderId
If Request("ResponseCode").ToString() <> "00" Then
Dim OkStatus As String = "1234"
If Not ConfigurationManager.AppSettings("Pay3dOkStatus") Is Nothing Then
OkStatus = ConfigurationManager.AppSettings("Pay3dOkStatus")
End If
Response.Write("
3D Doğrulama İşlemi Başarısız
")
Response.Write("Hata Kodu:" & Request.Form.Get("mdStatus") & "
")
Response.Write("Hata Mesajı:" & Request.Form.Get("mdErrorMsg") & "
")
Dim _portalSettings As PortalSettings
_portalSettings = CType(HttpContext.Current.Items("PortalSettings"), PortalSettings)
Dim UserId As String = ""
Dim UserName As String = ""
Dim mail As New webmail
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ı :" & Request("ResponseMessage").ToString())
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("ResponseCode").ToString() & "
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ı :" & Request("ResponseMessage").ToString())
End If
Catch
' log error
Dim py As New PaymentsDB
py.AddPayment(tmpOrder, UserId, "
Banka 3D mesajı :" & Request("SonucAciklamasi").ToString())
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("ResponseCode").ToString() & "
Banka 3D mesajı :" & Request("ResponseMessage").ToString())
End If
End Try
Dim sb As New StringBuilder()
sb.AppendLine("")
script = sb.ToString()
Response.Write(sb.ToString())
Else
Dim sb As New StringBuilder()
sb.AppendLine("")
script = sb.ToString()
Response.Write(sb.ToString())
End If
%>