<%
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
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")
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)
Dim tmpOrder As ASPNetPortal.TempOrder
Dim UserId As String = ""
Dim UserName As String = ""
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
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)
Catch
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 Try
Dim sb As New StringBuilder()
'sb.AppendLine("")
Response.Write(sb.ToString())
End If
Else
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
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
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
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)
Catch
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 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
%>