<%@ LANGUAGE=vbscript %>
<% Response.Buffer = TRUE %>
<% Response.ExpiresAbsolute=#Jan 01, 1980 00:00:00# %>
<%
set purchase = Server.CreateObject("WorldPay.COMpurchase")
Call purchase.init("")
Call purchase.setInstallationId(your installation ID goes here)
Call purchase.setCartId("test")
Call purchase.setShopperId("test")
Call purchase.setCurrencyISOCode("GBP")
Call purchase.setAmount(9.99)
Call purchase.setAuthMode(purchase.AUTHMODE_full)
FromDate = CDate(#11/26/99 8:24#)
REM--Allow five minutes for purchase
ToDate = Now + #0:5:00#
Response.Write "This transaction will expire: " & ToDate
From = Year(FromDate) & "-" & Month(FromDate) & "-" & Day(FromDate) & "/" & Hour(FromDate) & ":" & Minute(FromDate) & ":" & Second(FromDate)
ToD = Year(ToDate) & "-" & Month(ToDate) & "-" & Day(ToDate) & "/" & Hour(ToDate) & ":" & Minute(ToDate) & ":" & Second(ToDate)
Call purchase.setValidDates(From, ToD)
' Use test mode?
Call purchase.setTestMode(100)
' That all
purchase.process()
if purchase.hadError() then
REM -- Display the errors
Response.Write("")
while purchase.hasMoreErrors()
Response.Write "- " & purchase.getNextError() & "
"
wend
Response.Write("
")
Response.End
end if
%>
Purchase Verification
Press the link below to purchase:
>
PURCHASE