IPN

Imports System.Collections.Specialized

Public Class SB_IPN
Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
< System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here

'Read in IPN POST
Dim strFormValues As String = Encoding.ASCII.GetString(Request.BinaryRead(Request.ContentLength))

Dim strNewValue

' Create the request back
Dim req As HttpWebRequest = CType(WebRequest.Create("https://www.sandbox.paypal.com/cgi-bin/webscr"), _
HttpWebRequest)

' Set values for the request back
req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"
strNewValue = strFormValues + "&cmd=_notify-validate"
req.ContentLength = strNewValue.Length

' Write the request back IPN strings
Dim stOut As StreamWriter = New StreamWriter(req.GetRequestStream(), _
Encoding.ASCII)
stOut.Write(strNewValue)
stOut.Close()

'send the request, read the response

Dim strResponse As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse)
Dim IPNResponseStream As Stream = strResponse.GetResponseStream
Dim encode As Encoding = System.Text.Encoding.GetEncoding("utf-8")
Dim readStream As New StreamReader(IPNResponseStream, encode)

Dim read(256) As [Char]
' Reads 256 characters at a time.

Dim count As Integer = readStream.Read(read, 0, 256)

While count > 0
' Dumps the 256 characters to a string and displays the string to the console.
Dim IPNResponse As New [String](read, 0, count)
count = readStream.Read(read, 0, 256)

' if IPN response was VERIFIED..perform VERIFIED handling
'for this example - send email of raw IPN string

If IPNResponse = "VERIFIED" Then

Dim myEmail As MailMessage = New MailMessage()
myEmail.To = "poneal@ebay.com"
myEmail.From = "webmaster@oma-ets-04.corp.ebay.com"
myEmail.Body = strNewValue
myEmail.Subject = IPNResponse & " IPN"
SmtpMail.SmtpServer = "localhost"
SmtpMail.Send(myEmail)

Else

' if IPN is INVALID
'log and manually investigate

Dim myEmail As MailMessage = New MailMessage()
myEmail.To = "poneal@ebay.com"
myEmail.From = "webmaster@oma-ets-04.corp.ebay.com"
myEmail.Body = strNewValue
myEmail.Subject = IPNResponse & " IPN"
SmtpMail.SmtpServer = "localhost"
SmtpMail.Send(myEmail)
End If
End While

'tidy up, close streams
readStream.Close()
strResponse.Close()

'for debug
'Response.Write("Script ran, check your email")
End Sub
End Class

?>