convert to asp classic RSS

• • Reply
  

  keyvan1

  Member

  86 Points

  272 Posts

  convert to asp classic

  Apr 27, 2012 08:07 AM|LINK

  Hi,

  I need to convert the following page to asp classic can sb do it for me?

  it's a asp.net form that posts back and below is the code behind file

  Imports System.Net
  Imports System.Security.Cryptography.X509Certificates
  Imports System.Net.Security
  
  Partial Public Class _Default
      Inherits System.Web.UI.Page
  
      Public PgwSite As String = ConfigurationManager.AppSettings("PgwSite")
      Public CallBackUrl As String = ConfigurationManager.AppSettings("CallBackUrl")
      Public TerminalId As String = ConfigurationManager.AppSettings("TerminalId")
      Public UserName As String = ConfigurationManager.AppSettings("UserName")
      Public UserPassword As String = ConfigurationManager.AppSettings("UserPassword")
      Public RefId As String = ""
  
      Public Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
          If Not IsPostBack Then
              SetDefaultDateTime()
  
              PayCallBackUrlTextBox.Text = CallBackUrl
              TerminalIdTextBox.Text = TerminalId
              UserNameTextBox.Text = UserName
              UserPasswordTextBox.Text = UserPassword
          End If
      End Sub
  
      Private Sub SetDefaultDateTime()
          PayDateTextBox.Text = DateTime.Now.Year.ToString() & DateTime.Now.Month.ToString().PadLeft(2, "0") & DateTime.Now.Day.ToString().PadLeft(2, "0")
          PayTimeTextBox.Text = DateTime.Now.Hour.ToString().PadLeft(2, "0") + DateTime.Now.Minute.ToString().PadLeft(2, "0") + DateTime.Now.Second.ToString().PadLeft(2, "0")
  
      End Sub
  
      Protected Sub PayRequestButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PayRequestButton.Click
          Try
              Dim result As String
  
              BypassCertificateError()
  
              Dim bpService As BPService.PaymentGatewayImplService = New BPService.PaymentGatewayImplService()
  
              result = bpService.bpPayRequest(Int64.Parse(TerminalIdTextBox.Text), _
                  UserNameTextBox.Text, _
                  UserPasswordTextBox.Text, _
                  Int64.Parse(PayOrderIdTextBox.Text), _
                  Int64.Parse(PayAmountTextBox.Text), _
                  PayDateTextBox.Text, _
                  PayTimeTextBox.Text, _
                  PayAdditionalDataTextBox.Text, _
                  PayCallBackUrlTextBox.Text, _
                  Int64.Parse(PayPayerIdTextBox.Text))
  
              PayOutputLabel.Text = result
  
              Dim resultArray As String() = result.Split(",")
              If resultArray(0) = "0" Then
                  ClientScript.RegisterStartupScript(Me.GetType(), "ClientScript", "<script language=""javascript"" type=""text/javascript""> postRefId('" + resultArray(1) + "');</script> ", False)
              End If
          Catch exp As Exception
              PayOutputLabel.Text = "Error: " + exp.Message
          End Try
      End Sub
  
  
    Sub BypassCertificateError()
          ServicePointManager.ServerCertificateValidationCallback = _
                  New System.Net.Security.RemoteCertificateValidationCallback(AddressOf BypassCertValidation)
      End Sub
  
      Private Shared Function BypassCertValidation(ByVal sender As Object, _
                                                  ByVal cert As X509Certificate, _
                                                  ByVal chain As X509Chain, _
                                                  ByVal errors As SslPolicyErrors) As Boolean
          Return True
      End Function

• • Reply
  

  kelviyean

  Member

  228 Points

  54 Posts

  Re: convert to asp classic

  Apr 27, 2012 08:22 AM|LINK

  Hello,

  I dont think there is any online parser or tool to convert thee code to asp classic.