the behind page.
<%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default.aspx.cs" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
</div>
</form>
</body>
</html>
this is received.aspx in vb.net and this one is working.
<%@ Page Language="VB" ValidateRequest="false" AutoEventWireup="false" CodeFile="Receive.aspx.vb" Inherits="Receive" %>
===================================================================
'========================================================================================================
'Class: Receive.vb
' Receives XML post data (from a "rest" web service) from Verizon as the result of a posted transx
' from KORE
'
'Form Post: required a single HTML form post variable called "KorePostData" not more than 1200 bytes
'
'========================================================================================================
Imports System.Xml
Imports System.IO
Imports System.Net.WebClient
Imports System.Data.SqlClient
Imports System.Xml.Schema
Imports System.Xml.XPath
Partial Class Receive
Inherits System.Web.UI.Page
#Region "Page Variables"
Private m_VersionNumber As String
Private m_VendorID As String
Private m_ChannelID As String
Private m_ChannelType As String
Private m_RequestType As String
Private m_OrderType As String
Private m_ReferenceNumber As String
Private m_ReturnURL As String
Private m_ResendCount As Integer
Private m_MDN As Integer
Private m_MIN As Integer
Private m_StatusCode As String
Private m_ErrorCode As String
Private m_ErrorDescription As String
#End Region
#Region "Private Page Properties"
'message header element
Private Property VersionNumber()
Get
Return System.Convert.ToString(m_VersionNumber)
End Get
Set(ByVal value)
Try
m_VersionNumber = System.Convert.ToString(value)
Catch ex As Exception
Throw New Exception("Unable to convert ""versionNumber"" element to a string value.")
End Try
End Set
End Property
Private Property Vendor()
Get
Return m_VendorID
End Get
Set(ByVal value)
Try
m_VendorID = System.Convert.ToString(value)
Catch ex As Exception
Throw New Exception("Unable to convert element ""vendorId"" to a string value.")
End Try
End Set
End Property
Private Property ChannelID()
Get
Return m_ChannelID
End Get
Set(ByVal value)
Try
m_ChannelID = System.Convert.ToString(value)
Catch ex As Exception
Throw New Exception("Unable to convert element ""channelId"" to a string value.")
End Try
End Set
End Property
Private Property ChannelType()
Get
Return m_ChannelType
End Get
Set(ByVal value)
Try
m_ChannelType = System.Convert.ToString(value)
Catch ex As Exception
Throw New Exception("Unable to convert element ""channelType"" to a string value")
End Try
End Set
End Property
Private Property RequestType()
Get
Return m_RequestType
End Get
Set(ByVal value)
Try
m_RequestType = System.Convert.ToString(value)
Catch ex As Exception
Throw New Exception("Unable to convert element ""requestType"" to a string value.")
End Try
End Set
End Property
Private Property OrderType()
Get
Return m_OrderType
End Get
Set(ByVal value)
Try
m_OrderType = System.Convert.ToString(value)
Catch ex As Exception
Throw New Exception("unable to convert element ""orderType"" to a string value.")
End Try
End Set
End Property
Private Property ReferenceNumber()
Get
Return m_ReferenceNumber
End Get
Set(ByVal value)
Try
m_ReferenceNumber = System.Convert.ToString(value)
Catch ex As Exception
Throw New Exception("unable to convert element ""referenceNumber"" to a string value.")
End Try
End Set
End Property
Private Property ReturnURL()
Get
Return m_ReturnURL
End Get
Set(ByVal value)
Try
m_ReturnURL = System.Convert.ToString(value)
Catch ex As Exception
Throw New Exception("unable to convert element ""returnURL"" to a string value.")
End Try
End Set
End Property
Private Property Resend()
Get
Return m_ResendCount
End Get
Set(ByVal value)
Try
m_ResendCount = System.Convert.ToInt32(value)
Catch ex As Exception
Throw New Exception("Unable to convert element ""resend"" to an integer value.")
End Try
End Set
End Property
'order response element
Private Property MDN()
Get
Return m_MDN
End Get
Set(ByVal value)
Try
m_MDN = System.Convert.ToInt32(value)
Catch ex As Exception
Throw New Exception("unable to convert element ""mdn"" to an integer value")
End Try
End Set
End Property
Private Property MIN()
Get
Return m_MIN
End Get
Set(ByVal value)
Try
m_MIN = System.Convert.ToInt32(value)
Catch ex As Exception
Throw New Exception("unable to convert element ""min"" to an integer value")
End Try
End Set
End Property
Private Property StatusCode()
Get
Return m_StatusCode
End Get
Set(ByVal value)
Try
m_StatusCode = System.Convert.ToString(value)
Catch ex As Exception
Throw New Exception("unable to convert element ""statusCode"" to an string value")
End Try
End Set
End Property
Private Property ErrorCode()
Get
Return m_ErrorCode
End Get
Set(ByVal value)
Try
m_ErrorCode = System.Convert.ToString(value)
Catch ex As Exception
Throw New Exception("unable to convert element ""errorCode"" to an string value")
End Try
End Set
End Property
Private Property ErrorDescription()
Get
Return m_ErrorDescription
End Get
Set(ByVal value)
Try
m_ErrorDescription = System.Convert.ToString(value)
Catch ex As Exception
Throw New Exception("unable to convert element ""errorDescription"" to an string value")
End Try
End Set
End Property
#End Region
#Region "Enumerations and Response Codes"
Private Enum MessageHeader
VersionNumber
VendorID
ChannelID
ChannelType
RequestType
OrderType
ReferenceNumber
ReturnURL
ResendCount
End Enum
Private Enum OrderResponse
MDN
MIN
StatusCode
ErrorCode
ErrorDescription
End Enum
Private Enum ResponseCodes
RequestSaved = 1000
RequestUpdated = 1001
RequestNoAction = 1002
InvalidRequestMethod = 1010
InvalidPostData = 1011
InvalidXMLData = 1012
InvalidHeaderChildren = 1100
InvalidOrderResponseChildren = 1101
FailedToConnectToDataSource = 1201
FailedToSaveResponse = 1202
End Enum
Private Enum QueryResult
RecordSaved = 1
RecordUpdated = 2
NoAction = 3
UndefinedCase = 4
End Enum
#End Region
#Region "Constants"
Private Const _MAX_POST_DATA_SIZE As Integer = 1200
Private Const REQUIRED_NUM_CHLD_HEADER As Integer = 9
Private Const REQUIRED_NUM_CHLD_RESPONSE As Integer = 5
#End Region
#Region "Objects"
Private objInputXML As XmlDocument
#End Region
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim RETURN_CODE As Integer = 0
Dim QUERY_RESULT As Integer = 0
Dim RETURN_ERROR_TEXT As String = ""
Dim FormData As String = Nothing
Dim B(Request.InputStream.Length) As Byte
Request.InputStream.Read(B, 0, B.Length)
FormData = System.Text.ASCIIEncoding.ASCII.GetString(B)
'FormData = System.Web.HttpUtility.UrlDecode(FormData)
'
'Optional DB Save
'
Try
'try to save the request data to the DB log.
If System.Convert.ToBoolean(ConfigurationManager.AppSettings("SaveRequestDataToDB")) Then
Dim SQL As String = "INSERT INTO tbl_log_errors_web (ErrorNumber,ErrorSource,ErrorDescription,SQLStatement,Comment,REMOTE_ADDR,SCRIPT_NAME,PATH_INFO) VALUES (@ErrorNumber,@ErrorSource,@ErrorDescription,@SQLStatement,@Comment,@REMOTE_ADDR,@SCRIPT_NAME,@PATH_INFO) "
Dim objConn As New SqlConnection(ConfigurationManager.ConnectionStrings("PRODConnectionString").ConnectionString)
objConn.Open()
Dim objCmd As New SqlCommand
With objCmd
.Connection = objConn
.CommandType = Data.CommandType.Text
.CommandText = SQL
.Parameters.Add("ErrorNumber", Data.SqlDbType.NVarChar).Value = "999999"
.Parameters.Add("ErrorSource", Data.SqlDbType.NVarChar).Value = "RSS Page"
.Parameters.Add("ErrorDescription", Data.SqlDbType.NText).Value = "Unable to process RSS response."
.Parameters.Add("SQLStatement", Data.SqlDbType.NText).Value = objCmd.CommandText.ToString
.Parameters.Add("Comment", Data.SqlDbType.NText).Value = FormData.ToString
.Parameters.Add("REMOTE_ADDR", Data.SqlDbType.NVarChar).Value = Request.ServerVariables("REMOTE_ADDR").ToString
.Parameters.Add("SCRIPT_NAME", Data.SqlDbType.NVarChar).Value = Request.ServerVariables("SCRIPT_NAME").ToString
.Parameters.Add("PATH_INFO", Data.SqlDbType.NVarChar).Value = Request.ServerVariables("PATH_INFO").ToString
'.ExecuteNonQuery()
End With
objCmd.Connection = Nothing
objCmd = Nothing
objConn.Close()
objConn = Nothing
End If
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
If Request.ServerVariables("REQUEST_METHOD") <> "POST" AndAlso _
Request.ServerVariables("REQUEST_METHOD") <> "Post" AndAlso _
Request.ServerVariables("REQUEST_METHOD") <> "post" Then
RETURN_CODE = ResponseCodes.InvalidRequestMethod
End If
If RETURN_CODE <> ResponseCodes.InvalidRequestMethod Then
'
'Process the post data
'
objInputXML = New XmlDocument
'load up an XML document from the post data
Try
objInputXML.LoadXml(System.Convert.ToString(FormData))
'
'Collect the header data
'
Dim objNode As XmlNodeList
objNode = objInputXML.GetElementsByTagName("messageHeader")
If objNode.Item(0).ChildNodes.Count <> REQUIRED_NUM_CHLD_HEADER Then
RETURN_CODE = ResponseCodes.InvalidHeaderChildren
RETURN_ERROR_TEXT &= "The number of child elements of the header was " & objNode.Item(0).ChildNodes.Count.ToString & " a should have been " & REQUIRED_NUM_CHLD_HEADER.ToString & "<br>"
Else
VersionNumber = objNode(0).ChildNodes(MessageHeader.VersionNumber).InnerText
Vendor = objNode(0).ChildNodes(MessageHeader.VendorID).InnerText
ChannelID = objNode(0).ChildNodes(MessageHeader.ChannelID).InnerText
ChannelType = objNode(0).ChildNodes(MessageHeader.ChannelType).InnerText
RequestType = objNode(0).ChildNodes(MessageHeader.RequestType).InnerText
OrderType = objNode(0).ChildNodes(MessageHeader.OrderType).InnerText
ReferenceNumber = objNode(0).ChildNodes(MessageHeader.ReferenceNumber).InnerText
ReturnURL = objNode(0).ChildNodes(MessageHeader.ReturnURL).InnerText
'We don't need to check that since we will not resend transactions
'If objNode(0).ChildNodes(MessageHeader.ResendCount).InnerText Is DBNull.Value OrElse objNode(0).ChildNodes(MessageHeader.ResendCount).InnerText = " " Then
' Resend = -1
'Else
' Resend = objNode(0).ChildNodes(MessageHeader.ResendCount).InnerText
'End If
End If
'
'Collect the reponse
'
objNode = objInputXML.GetElementsByTagName("orderResponse")
If objNode.Item(0).ChildNodes.Count <> REQUIRED_NUM_CHLD_RESPONSE Then
RETURN_CODE = ResponseCodes.InvalidOrderResponseChildren
RETURN_ERROR_TEXT &= "The number of child elements of the response was " & objNode.Item(0).ChildNodes.Count.ToString & " a should have been " & REQUIRED_NUM_CHLD_RESPONSE.ToString & "<br>"
Else
MDN = objNode(0).ChildNodes(OrderResponse.MDN).InnerText
MIN = objNode(0).ChildNodes(OrderResponse.MIN).InnerText
StatusCode = objNode(0).ChildNodes(OrderResponse.StatusCode).InnerText
If objNode(0).ChildNodes(OrderResponse.ErrorCode).InnerText Is DBNull.Value OrElse objNode(0).ChildNodes(OrderResponse.ErrorCode).InnerText = " " Then
ErrorCode = "None"
Else
ErrorCode = objNode(0).ChildNodes(OrderResponse.ErrorCode).InnerText
End If
ErrorDescription = objNode(0).ChildNodes(OrderResponse.ErrorDescription).InnerText
End If
'Done with objNode
objNode = Nothing
objInputXML = Nothing
'
'Do the database insert and check the reponse.
'
Dim objConn As New SqlConnection(ConfigurationManager.ConnectionStrings("TESTConnectionString").ConnectionString)
Try
'connect
objConn.Open()
Using objCmd As New SqlCommand
With objCmd
.Connection = objConn
.CommandType = Data.CommandType.StoredProcedure
.CommandText = "vzw_SubmitTransactionResponse"
'header
.Parameters.Add("@RemoteIP", Data.SqlDbType.NVarChar).Value = Request.ServerVariables("REMOTE_ADDR").ToString
.Parameters.Add("@VersionNumber", Data.SqlDbType.NVarChar).Value = VersionNumber.ToString
.Parameters.Add("@VendorID", Data.SqlDbType.NVarChar).Value = Vendor.ToString
.Parameters.Add("@ChannelID", Data.SqlDbType.NVarChar).Value = ChannelID.ToString
.Parameters.Add("@ChannelType", Data.SqlDbType.NVarChar).Value = ChannelType.ToString
.Parameters.Add("@RequestType", Data.SqlDbType.NVarChar).Value = RequestType.ToString
.Parameters.Add("@OrderType", Data.SqlDbType.NVarChar).Value = OrderType.ToString
.Parameters.Add("@ReferenceNumber", Data.SqlDbType.NVarChar).Value = ReferenceNumber.ToString
.Parameters.Add("@ReturnURL", Data.SqlDbType.NVarChar).Value = ReturnURL.ToString
.Parameters.Add("@Resend", Data.SqlDbType.Int).Value = Resend
'results/response
.Parameters.Add("@MDN", Data.SqlDbType.Int).Value = MDN
.Parameters.Add("@MIN", Data.SqlDbType.Int).Value = MIN
.Parameters.Add("@StatusCode", Data.SqlDbType.NVarChar).Value = StatusCode.ToString
.Parameters.Add("@ErrorCode", Data.SqlDbType.NVarChar).Value = ErrorCode.ToString
.Parameters.Add("@ErrorDescription", Data.SqlDbType.NVarChar).Value = ErrorDescription.ToString
Dim intResult As Integer
Try
'DB Execute
intResult = .ExecuteScalar()
Select Case intResult
Case QueryResult.RecordSaved
RETURN_CODE = ResponseCodes.RequestSaved
Case QueryResult.RecordUpdated
RETURN_CODE = ResponseCodes.RequestUpdated
Case QueryResult.NoAction
RETURN_CODE = ResponseCodes.RequestNoAction
Case Else
RETURN_CODE = ResponseCodes.RequestNoAction
End Select
Catch ex As Exception
RETURN_CODE = ResponseCodes.FailedToSaveResponse
End Try
End With
End Using 'Command object
objConn.Close()
Catch ex As Exception
RETURN_CODE = ResponseCodes.FailedToConnectToDataSource
End Try
objConn = Nothing
Catch ex As Exception
RETURN_CODE = ResponseCodes.InvalidXMLData
RETURN_ERROR_TEXT &= ex.Message & "<br>"
End Try
End If
Response.Clear()
Response.ContentType = "text/html" 'send HTML to the browser
Response.Write(RETURN_CODE.ToString & "<br>" & RETURN_ERROR_TEXT)
End Sub
End Class
<%@ Page Language="C#" AutoEventWireup="true" CodeFile="Receive.aspx.cs" Inherits="Receive" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
</div>
</form>
</body>
</html>