Create nochexapcasp.asp

Author: NochexDevTeam

ASP/nochexapcasp.asp

@@ -0,0 +1,55 @@
+<%@ Language=VBScript %>
+
+<%
+
+'requires Microsoft XML Parser http://msdn.microsoft.com/xml
+Dim objHttp 'object used for posting form data to nochex
+Dim nochexformdata 'variable used to store form data sent from Nochex
+Dim NochexResponse 'stores the response from the Nochex server
+Dim objEmail
+dim smtpServer
+
+' smtpServer = "mail.nochex.com"
+
+nochexformdata = request.Form 'copy the form data from Nochex into the variable
+
+set objHttp = Server.CreateObject("Microsoft.XMLHTTP") 'create an instance of the XML object library
+objHttp.open "POST", "https://www.nochex.com/apcnet/apc.aspx", false 'set the page to post the form data to the Nochex server
+objHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
+objHttp.Send nochexformdata 'send the form data received from Nochex to the NOCHEX server
+
+' Check notification validation
+if (objHttp.status = 200 ) then
+	if (objHttp.responseText = "AUTHORISED") then
+		NochexResponse = "AUTHORISED"
+
+	'check the transaction_id to make sure it is not a duplicate
+	'process transaction
+	elseif (objHttp.responseText = "DECLINED") then
+		NochexResponse = "DECLINED"
+		'log and investigate incorrect data
+	end if
+else
+	NochexResponse = "NO RESPONSE "
+end if
+
+'Response.Write(NochexResponse)
+ 
+Set objEmail = CreateObject("CDO.Message") 
+ objEmail.From = "[email protected]"
+ objEmail.To = "[email protected]"
+
+ objEmail.Configuration.Fields.Item _
+ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
+ objEmail.Configuration.Fields.Item _
+ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
+     "mail.nochex.com"
+ objEmail.Configuration.Fields.Item _
+ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
+ objEmail.Configuration.Fields.Update
+ 
+ objEmail.Subject = "Your APC was " & NochexResponse
+ objEmail.TextBody = "APC Response was: " & NochexResponse & " for order:" & Request.Form("order_id") & ", amount:" & Request.Form("amount") & ". This was a " & Request.Form("status") & " transaction"
+ objEmail.Send
+
+%>