<%@ LANGUAGE=vbscript %>
<% Response.Buffer = TRUE %>
<% Response.ExpiresAbsolute=#Jan 01, 1980 00:00:00#
%>
<%
set callback = Server.CreateObject("WorldPay.COMcallback")
callback.processCallback()
REM-- Do not put ANYTHING before this line --
REM------------------------------------------
REM -- Check for errors
if callback.hadError() then
REM -- Display the errors
REM -- You can modify this to format your errors
Response.Write("")
while callback.hasMoreErrors()
Response.Write("- " & callback.getNextError() & "
")
wend
Response.Write("
")
Response.End
end if
%>
Purchase authorisation
<%
if callback.didTransSuc then
%>
SUCCESS!!
<%
Response.Write("Trans ID:" & callback.getTransId() & "
")
Response.Write("Raw Auth Message:" & callback.getRawAuthMessage() & "
")
Response.Write("Raw Auth Code:" & callback.getRawAuthCode() & "
")
Response.Write("Trans Time:" & callback.getTransTime() & "
")
Response.Write("installation id:" & callback.getInstallationId() & "
")
Response.Write("Company name:" & callback.getCompanyName() & "
")
Response.Write("Auth mode:" & callback.getAuthMode() & "
")
Response.Write("Amount:" & callback.getAmount() & "
")
Response.Write("CurrencyISO:" & callback.getCurrencyISOCode() & "
")
Response.Write("Amount string:" & callback.getAmountString() & "
")
Response.Write("Purchase Description:" & callback.getDescription() & "
")
Response.Write("Customer name:" & callback.getName() & "
")
Response.Write("Customer add:" & callback.getAddress() & "
")
Response.Write("Customer postal:" & callback.getPostalCode() & "
")
Response.Write("Customer country ISO:" & callback.getCountryISOCode() & "
")
Response.Write("Customer telephone:" & callback.getTelephone() & "
")
Response.Write("Customer Fax:" & callback.getFax() & "
")
Response.Write("Customer email:" & callback.getEmail() & "
")
%>
<%
else
%>
FAILED!!
<%
end if
%>