<%
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("MerchantPacket") <> "" Then
'dönen data
Dim MerchantPacket As String = Request.Form.Get("MerchantPacket")
Dim BankPacket As String = Request.Form.Get("BankPacket")
Dim sign As String = Request.Form.Get("sign")
'işlem sonucunu doğrula
Dim data As New StringBuilder
data.Append("xmldata=")
data.Append("")
data.Append("" & Session("GetwayUserName") & "")
data.Append("" & Session("GetwayPassword") & "")
data.Append("")
data.Append("" & BankPacket & "")
data.Append("" & MerchantPacket & "")
data.Append("" & sign & "")
data.Append("")
data.Append("")
Dim encoding1 As New ASCIIEncoding
Dim buffer1 As Byte() = encoding1.GetBytes(data.ToString)
Dim request1 As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create(Session("BankGetwayAddress")), System.Net.HttpWebRequest)
request1.Method = "POST"
request1.ContentType = "application/x-www-form-urlencoded"
request1.ContentLength = buffer1.Length
request1.KeepAlive = True
Dim stream1 As IO.Stream = request1.GetRequestStream
stream1.Write(buffer1, 0, buffer1.Length)
stream1.Close()
Dim reader3 As New IO.StreamReader(request1.GetResponse.GetResponseStream)
Dim resx As String = reader3.ReadToEnd
reader3.Close()
Dim OkStatus As String = "1234"
If Not ConfigurationManager.AppSettings("Pay3dOkStatus") Is Nothing Then
OkStatus = ConfigurationManager.AppSettings("Pay3dOkStatus")
End If
Dim mdstatus As String = ""
Dim mderror As String = ""
Dim mail As New webmail
If (Not resx Is Nothing) Then
Dim document1 As New XmlDocument
document1.InnerXml = resx
Dim node1 As XmlNode = document1.SelectSingleNode("/posnetResponse")
Dim tmpOrder As ASPNetPortal.TempOrder
If Session("TempOrder") Is Nothing Then
tmpOrder = New ASPNetPortal.TempOrder
Else
tmpOrder = Session("TempOrder")
End If
Dim UserId As String = ""
Dim UserName As String = ""
If (Not node1.Item("approved") Is Nothing) Then
mdstatus = node1.Item("oosResolveMerchantDataResponse").Item("mdStatus").InnerText
mderror = node1.Item("oosResolveMerchantDataResponse").Item("mdErrorMessage").InnerText
If node1.Item("approved").InnerText = "1" And OkStatus.Contains(mdstatus) Then
Dim sb As New StringBuilder()
sb.AppendLine("")
Response.Write(sb.ToString())
Else
Response.Write("
")
Dim _portalSettings As PortalSettings
_portalSettings = CType(HttpContext.Current.Items("PortalSettings"), PortalSettings)
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 : " & 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 XML mesajı :" & resx)
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 : " & mdstatus & " Banka 3D XML Mesajı :" & resx)
End If
End Try
Dim sb As New StringBuilder()
sb.AppendLine("")
Response.Write(sb.ToString())
End If
Else
' 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 : " & mdstatus & " Banka 3D XML Mesajı :" & resx)
End If
End If
End If
Else
'Bağlantı Hatası
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)
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 ")
End If
End Try
Dim sb As New StringBuilder()
sb.AppendLine("")
Response.Write(sb.ToString())
'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
%>--%>