<%
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("mdStatus") <> "" Then
mdstatus = Request.Form.Get("mdStatus")
Dim OkStatus As String = "1234"
If Not ConfigurationManager.AppSettings("Pay3dOkStatus") Is Nothing Then
OkStatus = ConfigurationManager.AppSettings("Pay3dOkStatus")
End If
If OkStatus.Contains(mdstatus) And Request.Form("ProcReturnCode") = "00" Then
Dim sb As New StringBuilder()
Session("SonucKodu") = 0
sb.AppendLine("")
Response.Write(sb.ToString())
Else
Response.Write("
")
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
Session("SonucKodu") = 1
Session("SonucAciklamasi") = Request.Form.Get("ErrMsg")
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("mdStatus") & " 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("mdStatus") & " Banka 3D Mesajı :" & res)
End If
End Try
Dim sb As New StringBuilder()
sb.AppendLine("")
Response.Write(sb.ToString())
End If
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
%>--%>