<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="3dodemepayuapi.aspx.vb" Inherits="._3dodemepayuapi" %> <%@ Import Namespace="System.Net" %> Ödeme Sayfası

3D Ödeme Sayfası

PayU Sistemine Bağlanıyor...

Lütfen Bekleyiniz...

<% Dim ORDERSTATUS As String = Request.Form("ORDERSTATUS") If ORDERSTATUS Is Nothing Then ORDERSTATUS = Request.QueryString("ORDERSTATUS") End If Dim oid_ipn As String = Request.Form("REFNOEXT") Dim status As String = Request.Form("STATUS") If status Is Nothing Then status = Request.QueryString("STATUS") End If Dim sonuckodu As String = Request.Form("RETURN_CODE") Dim errormsg As String = Request.Form("RETURN_MESSAGE") If errormsg = "" Then errormsg = "Lütfen Bilgilerinizi Kontrol Edip Tekrar Deneyiniz." End If Dim oid As String = Request.QueryString("oid") Dim ToSendMail As String = _portalsettings.Email If ConfigurationManager.AppSettings("SmtpMailOrders") <> "" Then ToSendMail = ConfigurationManager.AppSettings("SmtpMailOrders") End If Session("SonucAciklamasi") = errormsg If status = "SUCCESS" Then Session("SonucKodu") = status Response.Write("TEBRİKLER !
") Response.Write("Ödemeniz tamamlandı.
") Response.Write("Sipariş No : " & oid & " ") Dim sb As New StringBuilder() sb.AppendLine("") Response.Write(sb.ToString()) Else If status = "" Then Session("SonucKodu") = "Bilgilerinizin Doğruluğunu Kontrol Ediniz." Else Session("SonucKodu") = status End If Response.Write("HATA !
") Response.Write("Ödeme tamamlanamadı.
") Response.Write("Hata Mesajı : " & errormsg & " ") Dim OkStatus As String = "1234" If Not ConfigurationManager.AppSettings("Pay3dOkStatus") Is Nothing Then OkStatus = ConfigurationManager.AppSettings("Pay3dOkStatus") End If 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ı :" & errormsg) 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 : " & sonuckodu & "
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ı :" & errormsg) End If Catch ' log error Dim py As New PaymentsDB py.AddPayment(tmpOrder, UserId, "
Banka 3D mesajı :" & errormsg) 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 : " & sonuckodu & "
Banka 3D mesajı :" & errormsg) End If End Try Dim sb As New StringBuilder() sb.AppendLine("") Response.Write(sb.ToString()) End If 'End If %>

Kapat Ok