<%
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
'{cardHolderName=Salih+Sar%u0131&amount=100&tds=on
'&installmentKey=ji_EAAAANjm3WiVo0LPb8MoPXoCqjMjanGzRzPpKeXXFxL5IrjX
'&session_id=js_EAAAAGOB7JYZ0KMXxscy0XPp5bMnnlJn9NL3sF0deL4x%2fuca
'&token_id=jt_EAAAAAHWmKT682zbBmm6uX7ZedPuo2svMFiy4TWXrmciJDhcuNIqMMbj6XDEJ*yNGLGtP3gyPJC8Kpzmi%2fYBnHfTLA8-}
Dim XmlHttp As Object
Dim PostURL As String
Dim ResponseXml As String
Dim session_id As String
Dim token_id As String
session_id = Request.Form("session_id")
token_id = Request.Form("token_id")
PostURL = "https://api.paynet.com.tr/v1/transaction/charge"
Dim ddd As String = "" & session_id & _
"" & token_id & "" & Session("NextOrderId") & "Sales"""
Dim Data As String = "" & _
"" & _
" " & session_id & "" & token_id & "" & Session("NextOrderId") & "Sales" & _
""
Dim encoding1 As New ASCIIEncoding
Dim buffer1 As Byte() = encoding1.GetBytes(Data.ToString)
Dim request1 As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create(PostURL), System.Net.HttpWebRequest)
'Dim authBytes() As Byte = System.Text.Encoding.UTF8.GetBytes(UserName & ":" & password & "".ToCharArray())
request1.Headers("Authorization") = "Basic " & Session("GetwayPassword")
request1.Method = "POST"
request1.ContentType = "application/xml; charset=UTF-8"
request1.Accept = "application/xml; charset=UTF-8"
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 res2 As String = reader3.ReadToEnd
reader3.Close()
Dim xmlResponse = New XmlDocument()
xmlResponse.LoadXml(res2)
Dim resultCodeNode = xmlResponse.SelectSingleNode("ChargeResponse/is_succeed")
Dim resultDescriptionNode = xmlResponse.SelectSingleNode("ChargeResponse/paynet_error_message")
'Dim ResultDetailNode = xmlResponse.SelectSingleNode("VposResponse/ResultDetail")
Dim resultCode As String = ""
Dim resultDescription As String = ""
Dim ResultDetail As String = ""
If resultCodeNode IsNot Nothing Then
resultCode = resultCodeNode.InnerText
End If
If resultDescriptionNode IsNot Nothing Then
resultDescription = resultDescriptionNode.InnerText
End If
If resultCode <> "" Then
mdstatus = resultCode
Dim OkStatus As String = mdstatus
If mdstatus = "true" Then
Dim sb As New StringBuilder()
Session("SonucKodu") = "00"
sb.AppendLine("")
Response.Write(sb.ToString())
Else
Session("SonucKodu") = resultCode
Session("SonucAciklamasi") = resultDescription
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
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ı :" & resultDescription)
If Not ConfigurationManager.AppSettings("SendFailedPayments") = "False" Then
mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Onayı Alınamadı(3D)", "İş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 mesajı :" & resultDescription)
End If
Catch
' log error
Dim py As New PaymentsDB
py.AddPayment(tmpOrder, UserId, " Banka 3D mesajı :" & resultDescription)
If Not ConfigurationManager.AppSettings("SendFailedPayments") = "False" Then
mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Onayı Alınamadı(3D)", "İşlem Sonucu : " & mdstatus & " Banka 3D Mesajı :" & resultDescription)
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ı :" & resultDescription)
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ı :" & resultDescription)
End If
Catch
' log error
Dim py As New PaymentsDB
py.AddPayment(tmpOrder, UserId, " Banka 3D mesajı :" & resultDescription)
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
%>--%>