<%@ page language="VB" AutoEventWireup="true" ValidateRequest="false" %> <%@ Import Namespace="System.Web.UI" %> <%@ Import Namespace="System.Web.UI.WebControls" %> Ödeme Sayfası

iPara Ö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 result As String = "" Dim ToSendMail As String = _portalsettings.Email If ConfigurationManager.AppSettings("SmtpMailOrders") <> "" Then ToSendMail = ConfigurationManager.AppSettings("SmtpMailOrders") End If If Request.QueryString("return") = "true" Then Session("RandomOrderId") = "" Dim sb As New StringBuilder() sb.AppendLine("") Response.Write(sb.ToString()) ElseIf Request.Form.Get("iparaResponse") <> "" Then result = Request.Form.Get("iparaResponse") If result.Contains(""result":1") And result.Contains(""statusCode":1") Then Dim sb As New StringBuilder() sb.AppendLine("") Response.Write(sb.ToString()) ElseIf result.Contains(""result":1") And result.Contains(""statusCode":2") Then Dim sb As New StringBuilder() sb.AppendLine("") Response.Write(sb.ToString()) Else Session("RandomOrderId") = "" Response.Write("
Ödeme İşlemi Başarısız

") 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ı :" & result) If Not ConfigurationManager.AppSettings("SendFailedPayments") = "False" Then mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Alınamadı(ipara)", "Dönen Cevap : " & result & "
UserId:" & UserId & "
UserName:" & UserName & "Toplam:" & tmpOrder.Pricess.BankaToplamTutar & " TL
Teslimat Adı: " & tmpOrder.ShippingInfo.RecipientName & "
Teslimat Tel: " & tmpOrder.ShippingInfo.PhoneNo & "
Teslmat Gsm: " & tmpOrder.ShippingInfo.MobilePhone & "
Fatura Adı:" & tmpOrder.BillingInfo.CompanyName) End If Catch ' log error Dim py As New PaymentsDB py.AddPayment(tmpOrder, UserId, "
Banka 3D mesajı :" & result) If Not ConfigurationManager.AppSettings("SendFailedPayments") = "False" Then mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Alınamadı(ipara)", "Dönen Cevap :" & result) End If End Try Dim sb As New StringBuilder() sb.AppendLine("") Response.Write(sb.ToString()) End If Else Session("RandomOrderId") = "" 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 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 If Session("TempOrder") Is Nothing Then tmpOrder = New ASPNetPortal.TempOrder Else tmpOrder = Session("TempOrder") End If If Not ConfigurationManager.AppSettings("SendFailedPayments") = "False" Then mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Alınamadı(ipara)", " Bağlantı kurulamıyor,
UserId:" & UserId & "
UserName:" & UserName & "Toplam:" & tmpOrder.Pricess.BankaToplamTutar & " TL, Lütfen bilgileri kontrol ediniz
Teslimat Adı: " & tmpOrder.ShippingInfo.RecipientName & "
Teslimat Tel: " & tmpOrder.ShippingInfo.PhoneNo & "
Teslmat Gsm: " & tmpOrder.ShippingInfo.MobilePhone & "
Fatura Adı:" & tmpOrder.BillingInfo.CompanyName) End If Catch If Not ConfigurationManager.AppSettings("SendFailedPayments") = "False" Then mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Alınamadı(ipara)", " Bağlantı kurulamıyor, Lütfen Bilgilerini kontrol ediniz ") End If End Try Response.Write("
Sistem Hatası

") Response.Write("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