Microsoft VBScript runtime error '800a01b6': Microsoft VBScript runtime error '800a01b6'

Hi there,

I'm hoping that some experts might be able to help me with a small problem that i'm having -
Basically I'm trying to connect to sagepay (Formerley Protx VSP Server) to process a transaction (payment)

I'm using ecart 4 from webassist, but having difficulties with it, as it seems to work when pointing towards a test account, but everything changes wehen we point it to a live environment.

Which is when we get the following error -

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'NotifyCheckout_Parameters.BillingAddress1'

/employer/confirm.asp, line 291

Where line 291 is -

NotifyCheckout_Parameters.BillingAddress1 = "" & cStr(Request.Form("street1")) & ""

I've posted the full page source below, there are also a number of includes which I can add if needed -

Any thoughts much appreciated -

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../WA_eCart/WA_eCart_Definition_VB.asp" -->
<!--#include file="../WA_eCart/WA_eCart_Database_VB.asp" -->
<!--#include file="../WA_eCart/adverteCart_VB.asp" -->
<!--#include file="../WA_eCart/COScripts/Protx_VSPServer_VB.asp" -->
<%
if (Request.ServerVariables("Request_Method") = "POST") then
  Session("eCartCheckoutForm_state_province") = "" & cStr(Request.Form("state_province")) & ""
end if
%>
<%
if (Request.ServerVariables("Request_Method") = "POST") then
  Session("eCartCheckoutForm_country") = "" & cStr(Request.Form("country")) & ""
end if
%>
<%
if (Request.ServerVariables("Request_Method") = "POST") then
  Session("eCartCheckoutForm_shipping_state_province") = "" & cStr(Request.Form("shipping_state_province")) & ""
end if
%>
<%
if (Request.ServerVariables("Request_Method") = "POST") then
  Session("eCartCheckoutForm_shipping_country") = "" & cStr(Request.Form("shipping_country")) & ""
end if
 
%>
<!--#include file="../Connections/recruta2.asp" -->
<%
Dim ppdata__MMColParam
ppdata__MMColParam = "0"
If (Session("SITEID") <> "") Then 
  ppdata__MMColParam = Session("SITEID")
End If
%>
<%
Dim ppdata
Dim ppdata_cmd
Dim ppdata_numRows
 
Set ppdata_cmd = Server.CreateObject ("ADODB.Command")
ppdata_cmd.ActiveConnection = MM_recruta2_STRING
ppdata_cmd.CommandText = "SELECT JBSRegUN, JBSRegPD, JBSRegSG FROM dbo.JBSite WHERE JBSSiteID = ?" 
ppdata_cmd.Prepared = true
ppdata_cmd.Parameters.Append ppdata_cmd.CreateParameter("param1", 5, 1, -1, ppdata__MMColParam) ' adDouble
 
Set ppdata = ppdata_cmd.Execute
ppdata_numRows = 0
%>
<%
Dim Banner__MMColParam
Banner__MMColParam = "0"
If (Session("EMPLOYERID") <> "") Then 
  Banner__MMColParam = Session("EMPLOYERID")
End If
%>
<%
Dim Banner__MMColParam2
Banner__MMColParam2 = "0"
If (Session("SITEID") <> "") Then 
  Banner__MMColParam2 = Session("SITEID")
End If
%>
<%
Dim Banner
Dim Banner_cmd
Dim Banner_numRows
 
Set Banner_cmd = Server.CreateObject ("ADODB.Command")
Banner_cmd.ActiveConnection = MM_recruta2_STRING
Banner_cmd.CommandText = "SELECT JBCLID, JBCLBanner, JBCLSiteID, JBCLName FROM dbo.JBClient WHERE JBCLID = ? AND JBCLSiteID = ? AND JBCLBanner LIKE '%ClientImages%'" 
Banner_cmd.Prepared = true
Banner_cmd.Parameters.Append Banner_cmd.CreateParameter("param1", 5, 1, -1, Banner__MMColParam) ' adDouble
Banner_cmd.Parameters.Append Banner_cmd.CreateParameter("param2", 5, 1, -1, Banner__MMColParam2) ' adDouble
 
Set Banner = Banner_cmd.Execute
Banner_numRows = 0
%>
<%
Dim SiteBanner__MMColParam
SiteBanner__MMColParam = "0"
If (Session("SITEID") <> "") Then 
  SiteBanner__MMColParam = Session("SITEID")
End If
%>
<%
Dim SiteBanner
Dim SiteBanner_cmd
Dim SiteBanner_numRows
 
Set SiteBanner_cmd = Server.CreateObject ("ADODB.Command")
SiteBanner_cmd.ActiveConnection = MM_recruta2_STRING
SiteBanner_cmd.CommandText = "SELECT SiteBanner FROM dbo.SiteBanner WHERE SiteBannerSiteID = ? ORDER BY NewID()" 
SiteBanner_cmd.Prepared = true
SiteBanner_cmd.Parameters.Append SiteBanner_cmd.CreateParameter("param1", 5, 1, -1, SiteBanner__MMColParam) ' adDouble
 
Set SiteBanner = SiteBanner_cmd.Execute
SiteBanner_numRows = 0
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  Recordset1__MMColParam = Session("SITEID") 
End If
%><%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
 
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_recruta2_STRING
Recordset1_cmd.CommandText = "SELECT JBSSiteID, JBSMetaTitle, JBSLogo, JBSMetaKeywords, JBSMetaDescription, JBSHomePageText, JBSURL, JBSURLShort FROM dbo.JBSite WHERE JBSSiteID = ?" 
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble
 
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim administrator__MMColParam
administrator__MMColParam = "0"
If (Session("EMPLOYEEID") <> "") Then 
  administrator__MMColParam = Session("EMPLOYEEID")
End If
%>
<%
Dim administrator__MMColParam2
administrator__MMColParam2 = "0"
If (Session("SITEID") <> "") Then 
  administrator__MMColParam2 = Session("SITEID")
End If
%>
<%
Dim administrator
Dim administrator_cmd
Dim administrator_numRows
 
Set administrator_cmd = Server.CreateObject ("ADODB.Command")
administrator_cmd.ActiveConnection = MM_recruta2_STRING
administrator_cmd.CommandText = "SELECT JBEID, JBEClientID, JBESiteID, JBELevel FROM dbo.JBEmployee WHERE JBEID = ? AND JBESiteID = ? AND JBELevel = 'a'" 
administrator_cmd.Prepared = true
administrator_cmd.Parameters.Append administrator_cmd.CreateParameter("param1", 5, 1, -1, administrator__MMColParam) ' adDouble
administrator_cmd.Parameters.Append administrator_cmd.CreateParameter("param2", 5, 1, -1, administrator__MMColParam2) ' adDouble
 
Set administrator = administrator_cmd.Execute
administrator_numRows = 0
%>
<%
Dim monthlyuser__MMColParam
monthlyuser__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  monthlyuser__MMColParam = Session("SITEID") 
End If
%>
<%
Dim monthlyuser__MMColParam2
monthlyuser__MMColParam2 = "0"
If (Session("EMPLOYERID")  <> "") Then 
  monthlyuser__MMColParam2 = Session("EMPLOYERID") 
End If
%>
<%
Dim monthlyuser
Dim monthlyuser_cmd
Dim monthlyuser_numRows
 
Set monthlyuser_cmd = Server.CreateObject ("ADODB.Command")
monthlyuser_cmd.ActiveConnection = MM_recruta2_STRING
monthlyuser_cmd.CommandText = "SELECT JBCLID, JBCLSiteID, JBCLAccountType, JBCLMStartDate, JBCLMEndDate FROM dbo.JBClient WHERE JBCLSiteID = ? AND JBCLAccountType = 'm' AND JBCLMStartDate <= GETDATE() AND JBCLMEndDate >= GETDATE() AND JBCLID = ?" 
monthlyuser_cmd.Prepared = true
monthlyuser_cmd.Parameters.Append monthlyuser_cmd.CreateParameter("param1", 5, 1, -1, monthlyuser__MMColParam) ' adDouble
monthlyuser_cmd.Parameters.Append monthlyuser_cmd.CreateParameter("param2", 5, 1, -1, monthlyuser__MMColParam2) ' adDouble
 
Set monthlyuser = monthlyuser_cmd.Execute
monthlyuser_numRows = 0
%>
<%
Dim ADVERTUSERS__MMColParam
ADVERTUSERS__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  ADVERTUSERS__MMColParam = Session("SITEID") 
End If
%>
<%
Dim ADVERTUSERS__MMColParam2
ADVERTUSERS__MMColParam2 = "0"
If (Session("EMPLOYERID")  <> "") Then 
  ADVERTUSERS__MMColParam2 = Session("EMPLOYERID") 
End If
%>
<%
Dim ADVERTUSERS
Dim ADVERTUSERS_cmd
Dim ADVERTUSERS_numRows
 
Set ADVERTUSERS_cmd = Server.CreateObject ("ADODB.Command")
ADVERTUSERS_cmd.ActiveConnection = MM_recruta2_STRING
ADVERTUSERS_cmd.CommandText = "SELECT JBCLID, JBCLSiteID, JBCLAccountType FROM dbo.JBClient WHERE JBCLSiteID = ? AND JBCLAccountType = 'a' AND JBCLID = ?" 
ADVERTUSERS_cmd.Prepared = true
ADVERTUSERS_cmd.Parameters.Append ADVERTUSERS_cmd.CreateParameter("param1", 5, 1, -1, ADVERTUSERS__MMColParam) ' adDouble
ADVERTUSERS_cmd.Parameters.Append ADVERTUSERS_cmd.CreateParameter("param2", 5, 1, -1, ADVERTUSERS__MMColParam2) ' adDouble
 
Set ADVERTUSERS = ADVERTUSERS_cmd.Execute
ADVERTUSERS_numRows = 0
%>
<%
Dim news__MMColParam
news__MMColParam = "0"
If (Session("SITEID") <> "") Then 
  news__MMColParam = Session("SITEID")
End If
%>
<%
Dim news
Dim news_cmd
Dim news_numRows
 
Set news_cmd = Server.CreateObject ("ADODB.Command")
news_cmd.ActiveConnection = MM_recruta2_STRING
news_cmd.CommandText = "SELECT JBNewsSiteID FROM dbo.JBNews WHERE JBNewsSiteID = ?" 
news_cmd.Prepared = true
news_cmd.Parameters.Append news_cmd.CreateParameter("param1", 5, 1, -1, news__MMColParam) ' adDouble
 
Set news = news_cmd.Execute
news_numRows = 0
%>
<%
Dim muser__MMColParam
muser__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  muser__MMColParam = Session("SITEID") 
End If
%><%
Dim muser__MMColParam2
muser__MMColParam2 = "0"
If (Session("EMPLOYERID")  <> "") Then 
  muser__MMColParam2 = Session("EMPLOYERID") 
End If
%><%
Dim muser
Dim muser_cmd
Dim muser_numRows
 
Set muser_cmd = Server.CreateObject ("ADODB.Command")
muser_cmd.ActiveConnection = MM_recruta2_STRING
muser_cmd.CommandText = "SELECT JBCLID, JBCLSiteID, JBCLAccountType, JBCLMStartDate, JBCLMEndDate FROM dbo.JBClient WHERE JBCLSiteID = ? AND JBCLAccountType = 'm' AND JBCLID = ?" 
muser_cmd.Prepared = true
muser_cmd.Parameters.Append muser_cmd.CreateParameter("param1", 5, 1, -1, muser__MMColParam) ' adDouble
muser_cmd.Parameters.Append muser_cmd.CreateParameter("param2", 5, 1, -1, muser__MMColParam2) ' adDouble
 
Set muser = muser_cmd.Execute
muser_numRows = 0
%>
<%
Dim valueclick__MMColParam
valueclick__MMColParam = "0"
If (Session("SITEID") <> "") Then 
  valueclick__MMColParam = Session("SITEID")
End If
%>
<%
Dim valueclick
Dim valueclick_cmd
Dim valueclick_numRows
 
Set valueclick_cmd = Server.CreateObject ("ADODB.Command")
valueclick_cmd.ActiveConnection = MM_recruta2_STRING
valueclick_cmd.CommandText = "SELECT EClickLink FROM dbo.JBAEClickMedia WHERE JBAEClickSiteID = ? AND ECLlickLive = 'y'" 
valueclick_cmd.Prepared = true
valueclick_cmd.Parameters.Append valueclick_cmd.CreateParameter("param1", 5, 1, -1, valueclick__MMColParam) ' adDouble
 
Set valueclick = valueclick_cmd.Execute
valueclick_numRows = 0
%>
<%
%>
<%
' WA eCart Notification Checkout Authentication
' Vendor: Protx Service: VSP Server FullName: Protx VSP Server
if ((Request.ServerVariables("Request_Method") = "POST") AND (inStr(Unescape(cStr(Request.ServerVariables("HTTP_REFERER"))),Unescape(Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("SCRIPT_NAME"))) > 0)) then
	NotifyCheckout_TestingServer = true
	set NotifyCheckout_Parameters = new Protx_VSPServer_Authenticate_Object
	NotifyCheckout_Parameters.Vendor = ""
	NotifyCheckout_Parameters.VendorTxCode = "" & cStr(WAEC_getTimestamp()) & ""
	NotifyCheckout_Parameters.TxType = "PAYMENT"
	NotifyCheckout_Parameters.Amount = "" & cStr(WA_eCart_GrandTotal(adverteCart)) & ""
	NotifyCheckout_Parameters.CurrencyCode = "GBP"
	NotifyCheckout_Parameters.OrderDescription = "" & cStr(WAEC_getTimestamp()) & ""
	NotifyCheckout_Parameters.NotificationURL = "http://www.thesite.co.uk/employer/checkout_notify.asp"
	NotifyCheckout_Parameters.CustomerEmail = "" & cStr(Request.Form("email")) & ""
	NotifyCheckout_Parameters.BillingAddress1 = "" & cStr(Request.Form("street1")) & ""
	NotifyCheckout_Parameters.BillingPostCode = "" & cStr(Request.Form("postcode")) & ""
	NotifyCheckout_Parameters.BillingSurname = "" & cStr(Request.Form("lastname")) & ""
	NotifyCheckout_Parameters.BillingFirstnames = "" & cStr(Request.Form("firstname")) & ""
	NotifyCheckout_Parameters.BillingCity = "" & cStr(Request.Form("city")) & ""
	NotifyCheckout_Parameters.BillingCountry = "" & cStr(Request.Form("country")) & ""
	NotifyCheckout_Parameters.DeliveryAddress1 = ""
	NotifyCheckout_Parameters.DeliveryPostCode = ""
	NotifyCheckout_Parameters.DeliverySurname = ""
	NotifyCheckout_Parameters.DeliveryFirstnames = ""
	NotifyCheckout_Parameters.DeliveryCity = ""
	NotifyCheckout_Parameters.DeliveryCountry = ""
	NotifyCheckout_Parameters.ContactNumber = "" & cStr(Request.Form("phone")) & ""
	NotifyCheckout_Parameters.ContactFax = "" & cStr(Request.Form("fax")) & ""
	NotifyCheckout_Parameters.AllowGiftAid = "0"
	NotifyCheckout_Parameters.ApplyAVSCV2 = "0"
	NotifyCheckout_Parameters.Apply3DSecure = "0"
	NotifyCheckout_Parameters.UseSimulator = "true"
 
	NotifyCheckout_FailureRedirect = "checkout_failure.asp"
	set Protx_VSPServer_Auth = Protx_VSPServer_Authenticate(adverteCart, NotifyCheckout_Parameters, NotifyCheckout_TestingServer)
	if (Protx_VSPServer_Auth.Success) then
		adverteCart_redirStr = Protx_VSPServer_Auth.Redirect
	elseif (NotifyCheckout_FailureRedirect <> "") then
		Response.Redirect(NotifyCheckout_FailureRedirect)
		Response.End()
	end if
end if
%>
<%' WA eCart Store Cart Summary in Db
if ((Request.ServerVariables("Request_Method") = "POST") AND (inStr(Unescape(cStr(Request.ServerVariables("HTTP_REFERER"))),Unescape(Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("SCRIPT_NAME"))) > 0))  then
  WA_connection = MM_recruta2_STRING
  WA_table = "dbo.JBOrder"
  WA_redirectURL = ""
  WA_indexField = "JBOrderID"
  WA_fieldNamesStr = "JBOSiteID|JBOClientID|JBOTokens|JBOTotalPrice|JBOTotalDiscount|JBOTotalTax|VendorTransCode|VSPTransID|SecurityKey|JBOPrice|JBOGrandTotal|OrderReferenceID"
  WA_fieldValuesStr = WA_eCDB_ConvertNumber("" & cStr( Session("SITEID") ) & "") & "|" & WA_eCDB_ConvertNumber("" & cStr( Session("EMPLOYERID") ) & "") & "|" & WA_eCDB_ConvertNumber("" & cStr(WA_eCart_DisplayInfo(adverteCart, "Quantity")) & "") & "|" & WA_eCDB_ConvertNumber("" & cStr(WA_eCart_DisplayInfo(adverteCart, "TotalPrice")) & "") & "|" & WA_eCDB_ConvertNumber("" & cStr(WA_eCart_GetDiscounts(adverteCart)) & "") & "|" & WA_eCDB_ConvertNumber("" & cStr(WA_eCart_GetTax(adverteCart)) & "") & "|" & "" & cStr(Protx_VSPServer_Auth.VendorTxCode) & "" & "|" & "" & cStr(Protx_VSPServer_Auth.VPSTxId) & "" & "|" & "" & cStr(Protx_VSPServer_Auth.SecurityKey) & "" & "|" & WA_eCDB_ConvertNumber("" & cStr(WA_eCart_DisplayInfo(adverteCart, "Price")) & "") & "|" & WA_eCDB_ConvertNumber("" & cStr(WA_eCart_GrandTotal(adverteCart)) & "") & "|" & WA_eCDB_ConvertNumber("" & cStr(Session.SessionID) & "")
  WA_columnTypesStr = "none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL|',none,''|',none,''|',none,''|none,none,NULL|none,none,NULL|none,none,NULL"
  WA_sessionName = "adverteCart_OrderID"
  indexFieldIndex = -1
  WA_fieldValues = Split(WA_fieldValuesStr,"|")
  WA_fieldNames = Split(WA_fieldNamesStr,"|")
  WA_columns = Split(WA_columnTypesStr,"|")
  set WA_editCmd = Server.CreateObject("ADODB.Command")
  updateFieldValue = ""
  WA_editCmd.ActiveConnection = WA_connection
  if (WA_redirectURL <> "" AND Request.QueryString <> "" AND Request.QueryString.Count > 0) then
    if (inStr(WA_redirectURL,"?") > 0)  then
	  WA_redirectURL = WA_redirectURL & "&"
	else
	  WA_redirectURL = WA_redirectURL & "?"
	end if
    WA_redirectURL = WA_redirectURL & Request.QueryString
  end if
  for i = 0 to Ubound(WA_fieldNames)
    if (WA_indexField  = WA_fieldNames(i)) then
      indexFieldIndex = i
      exit for
    end if
  next
  if (indexFieldIndex >= 0) then  updateFieldValue = WA_fieldValues(indexFieldIndex)
  if (updateFieldValue = "") then updateFieldValue = cStr(Session(WA_sessionName))
  updateColType = "none,none,NULL"
  if (indexFieldIndex >= 0)  then
     updateColType = WA_columns(indexFieldIndex)
  end if
  if (updateFieldValue <> "" AND updateFieldValue <> "undefined")  then
      valueForWhere = WA_generateInsertParams(Array(WA_indexField), Array(updateColType), Array(updateFieldValue), -1)
      sqlstr = "select " & WA_indexField & " from " & WA_table & " where " & WA_indexField & " = " & valueForWhere(2) & " order by " & WA_indexField & " DESC"
      set WA_eCartRecordset = Server.CreateObject("ADODB.Recordset")
      WA_eCartRecordset.ActiveConnection = WA_connection
      WA_eCartRecordset.Source = sqlstr
      WA_eCartRecordset.CursorType = 0
      WA_eCartRecordset.CursorLocation = 2
      WA_eCartRecordset.LockType = 1
      WA_eCartRecordset.Open()
	  if (NOT WA_eCartRecordset.EOF)  then  
	    updateFieldValue = cStr(WA_eCartRecordset.Fields.Item(WA_indexField).Value)
	  else
	    updateFieldValue = ""
	  end if
	  WA_eCartRecordset.Close()
  end if
  if (updateFieldValue <> "" AND updateFieldValue <> "undefined")  then
    updateParamsObj = WA_generateInsertParams(WA_fieldNames, WA_columns, WA_fieldValues, indexFieldIndex)
	  valueForWhere = WA_generateInsertParams(Array(WA_indexField), Array(updateColType), Array(updateFieldValue), -1)
	  WA_editCmd.CommandText = "update " & WA_table & " SET " & updateParamsObj(3) & " where " & WA_indexField & " = " & valueForWhere(2)
    WA_editCmd.Execute()
	  WA_editCmd.ActiveConnection.Close()
  else
    updateFieldValue = ""
    insertParamsObj = WA_generateInsertParams(WA_fieldNames, WA_columns, WA_fieldValues, -1)
    WA_editCmd.CommandText = "insert into " & WA_table & " (" & insertParamsObj(1) & ") values (" & insertParamsObj(2) & ")"
    WA_editCmd.Execute()
    WA_editCmd.ActiveConnection.Close()
  end if
  if (indexFieldIndex < 0)  then
	if (updateFieldValue = "")  then
      obj = WA_generateWhereClause(WA_fieldNames, WA_columns, WA_fieldValues, indexFieldIndex)
      sqlstr = "select " & WA_indexField & " from " & WA_table & " where " &  obj & " order by " & WA_indexField & " DESC"
      set WA_eCartRecordset = Server.CreateObject("ADODB.Recordset")
      WA_eCartRecordset.ActiveConnection = WA_connection
      WA_eCartRecordset.Source = sqlstr
      WA_eCartRecordset.CursorType = 0
      WA_eCartRecordset.CursorLocation = 2
      WA_eCartRecordset.LockType = 1
      WA_eCartRecordset.Open()
	  if (NOT WA_eCartRecordset.EOF)  then  Session(WA_sessionName) = WA_eCartRecordset.Fields.Item(WA_indexField).Value
	  WA_eCartRecordset.Close()
	else
	  Session(WA_sessionName) = updateFieldValue
	end if
  else
    Session(WA_sessionName) = WA_fieldValues(indexFieldIndex)
  end if
  if (WA_redirectURL <> "")  then
    Response.Redirect(WA_redirectURL)
  end if
end if
%>
<%
if (WA_eCart_IsEmpty(adverteCart))     then
  adverteCart_redirStr = "employer/tokencart.asp"'_redirStr
  adverteCart_cartAction = "RedirectIfEmpty"
end if
%>
<%
' WA eCart Redirect
if (adverteCart_redirStr <> "")     then
  Response.Redirect(adverteCart_redirStr)
end if
%>
<!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"><!-- InstanceBegin template="/Templates/client.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!-- InstanceBeginEditable name="doctitle" -->
<title>Confirm Checkout</title>
<meta name="Robots" content="noindex,nofollow" />
<meta name="Revisit-After" content="10 days" />
<meta http-equiv="author" content="NetSolva" />
<meta http-equiv="X-UA-Compatible" content="IE=7" /><link href="../WA_eCart/CSS/eC_Refreshing_Nautica_Arial.css" rel="stylesheet" type="text/css" />
<link href="../WA_eCart/CSS/eC_Simple_Nautica_Arial.css" rel="stylesheet" type="text/css" />
<!-- InstanceEndEditable -->
<!-- InstanceBeginEditable name="code" -->
<link href="../styles/templatestyle.css" rel="stylesheet" type="text/css" media="all" />
<link href="../styles/formfields.css" rel="stylesheet" type="text/css" media="all" />
<script type="text/javascript" src="../scripts/formbuttonfever.js"></script>
<script src="../scripts/marquee.js" type="text/javascript"></script>
<link href="../styles/searchresults.css" rel="stylesheet" type="text/css" media="all" />
<link href="../styles/rss.css" rel="stylesheet" type="text/css" media="all" />
<!-- InstanceEndEditable -->
<script type="text/javascript">
<!--
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
 
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
 
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
 
function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</head>
<body>
<div id="wrapper">
  <div id="header"><!-- InstanceBeginEditable name="banner" -->
    <div id="banner">
<% If Not Banner.EOF Or Not Banner.BOF Then %>
<img src="<%=(Banner.Fields.Item("Banner").Value)%>" alt="<%=(Banner.Fields.Item("JBCLName").Value)%>" name="banner" border="0" id="banner2" />
        <%ELSE%>
        <% If Not valueclick.EOF Or Not valueclick.BOF Then %>
        <%=(valueclick.Fields.Item("EClickLink").Value)%>
        <%ELSE%>
		<img src="<%=(SiteBanner.Fields.Item("SiteBanner").Value)%>" />
		<% End If ' end Not valueclick.EOF Or NOT valueclick.BOF %>
	<% End If ' end Not Banner.EOF Or NOT Banner.BOF %></div>
  <!-- InstanceEndEditable --><!-- InstanceBeginEditable name="logo" -->
    <div id="logo"><img src="../images/LOGO.gif" alt="<%=(Recordset1.Fields.Item("JBSURLShort").Value)%> local recruitment" width="224" height="46" /></div>
    <!-- InstanceEndEditable --></div>
  <!-- InstanceBeginEditable name="breadcrumbs" -->
  <div id="breadcrumbs"><a href="index.asp">Home</a> &gt;<a href="tokencart.asp">Buy Tokens</a> &gt; Confirm Order </div>
  <!-- InstanceEndEditable --><!-- InstanceBeginEditable name="menubar" -->
  <div id="navbar">
    <ul>
      <li><a href="index.asp">Home</a></li>
      <% If Not news.EOF Or Not news.BOF Then %>
      <li><a href="news.asp">News</a></li>
      <% End If ' end Not news.EOF Or NOT news.BOF %>
      <li><a href="contactus.asp">Contact Us</a></li>
    </ul>
  </div>
  <!-- InstanceEndEditable -->
  <div id="mainarea"><!-- InstanceBeginEditable name="leftbar" -->
    <div id="leftbar">
      <ul class="navbl">
        <li>
          <h6>Recruiters / Employers</h6>
        </li>
        <% If Not muser.EOF Or Not muser.BOF Then %>
        <li><a href="livevacancies.asp">Vacancy Management</a></li>
        <% End If ' end Not muser.EOF Or NOT muser.BOF %>
        <% If Not ADVERTUSERS.EOF Or Not ADVERTUSERS.BOF Then %>
        <li><a href="livevacanciesac.asp">Vacancy Management</a></li>
        <% End If ' end Not ADVERTUSERS.EOF Or NOT ADVERTUSERS.BOF %>
        <% If Not monthlyuser.EOF Or Not monthlyuser.BOF Then %>
        <li><a href="searchcv.asp">Search Candidate CVs</a></li>
        <% End If ' end Not monthlyuser.EOF Or NOT monthlyuser.BOF %>
        <% If Not administrator.EOF Or Not administrator.BOF Then %>
        <li><a href="accountinfo.asp">Company Details</a></li>
        <% End If ' end Not administrator.EOF Or NOT administrator.BOF %>
        <li><a href="account.asp">Your Account</a></li>
        <% If Not administrator.EOF Or Not administrator.BOF Then %>
        <li><a href="accountusers.asp">Manage Users</a></li>
        <% End If ' end Not administrator.EOF Or NOT administrator.BOF %>
        <% If Not ADVERTUSERS.EOF Or Not ADVERTUSERS.BOF Then %>
        <li><a href="buytokens.asp">Buy Tokens</a></li>
        <% End If ' end Not ADVERTUSERS.EOF Or NOT ADVERTUSERS.BOF %>
        <% If Not ADVERTUSERS.EOF Or Not ADVERTUSERS.BOF Then %>
        <li><a href="tokenhistory.asp">Token History</a></li>
        <% End If ' end Not ADVERTUSERS.EOF Or NOT ADVERTUSERS.BOF %>
        <li><a href="logout.asp">Log Out</a></li>
      </ul>
    </div>
  <!-- InstanceEndEditable --><!-- InstanceBeginEditable name="rightbar" -->
    <div id="rightbar">
      <% If Not ADVERTUSERS.EOF Or Not ADVERTUSERS.BOF Then %>
            <div id="advertise">
              <h4>Top up your Tokens</h4>
              <p> Need more tokens, topping up is quick and easy.</p>
              <a href="register.asp">Top up Now &gt;</a><img src="../images/card.jpg" alt="advertise" /></div>
        <% End If ' end Not ADVERTUSERS.EOF Or NOT ADVERTUSERS.BOF %>
      <% If Not monthlyuser.EOF Or Not monthlyuser.BOF Then %>
  <div id="cvdatabase">
    <ul>
      <li>
        <h4>CV Database</h4>
            </li>
            <li>
              <p><a href="searchcv.asp">Search the CV Database</a> &gt;</p>
            </li>
            <li></li>
            <li></li>
            <li></li>
          </ul>
  </div>
  <% End If ' end Not monthlyuser.EOF Or NOT monthlyuser.BOF %>
</div><div id="righteightdiv"></div>
    <!-- InstanceEndEditable --><!-- InstanceBeginEditable name="maincontent" -->
 
<div id="maincontent">
      <h1>Order Confirmation</h1>
  <div class="eC_Simple_Nautica_Arial">
    <%
'WA eCart Show If Start
if (NOT WA_eCart_IsEmpty(adverteCart))     then
%>
	  <table class="eC_ShoppingCart" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <th>Name</th>
          <th  class="eC_PriceItem" >Price</th>
          <th  class="eC_PriceItem" >Quantity</th>
          <th  class="eC_PriceItem" >Total</th>
        </tr>
        <%
  while (NOT WA_eCart_EOF(adverteCart))
%>
        <tr>
          <td><%=WA_eCart_DisplayInfo(adverteCart, "Name")%></td>
          <td  class="eC_PriceItem" ><%=WA_eCart_DisplayMoney(adverteCart, WA_eCart_DisplayInfo(adverteCart, "Price"))%></td>
          <td  class="eC_PriceItem" ><%=WA_eCart_DisplayInfo(adverteCart, "Quantity")%></td>
          <td  class="eC_PriceItem" ><%=WA_eCart_DisplayMoney(adverteCart, WA_eCart_DisplayInfo(adverteCart, "TotalPrice"))%></td>
        </tr>
        <%
    set adverteCart = WA_eCart_MoveNext(adverteCart)
  wend
  set adverteCart = WA_eCart_MoveFirst(adverteCart)
%>
      </table>
	  <h3>Order Summary</h3>
	  <div class="eC_OrderSummary">
	    <table border="0" cellpadding="0" cellspacing="0" class="eC_CartSummary">
          <%
'WA eCart Merchandizing Show Start
'ecart="adverteCart"
if (WA_eCart_GetDiscounts(adverteCart) > 0 OR WA_eCart_GetCharges(adverteCart) > 0 OR WA_eCart_GetShipping(adverteCart) > 0 OR WA_eCart_GetTax(adverteCart) > 0)     then
%>
          <tr>
            <td class="eC_SummaryLabel">Sub-total</td>
            <td><%=WA_eCart_DisplayMoney(adverteCart, WA_eCart_TotalColumn(adverteCart, "TotalPrice"))%></td>
          </tr>
          <%
'WA eCart Merchandizing Show End
'ecart="adverteCart"
end if
%>
          <%
'WA eCart Merchandizing Show Start
'ecart="adverteCart"
if (WA_eCart_GetDiscounts(adverteCart) > 0)     then
%>
          <tr>
            <td class="eC_SummaryLabel">Discounts</td>
            <td>-<%=WA_eCart_DisplayMoney(adverteCart, WA_eCart_GetDiscounts(adverteCart))%></td>
          </tr>
          <%
'WA eCart Merchandizing Show End
'ecart="adverteCart"
end if
%>
          <%
'WA eCart Merchandizing Show Start
'ecart="adverteCart"
if (WA_eCart_GetCharges(adverteCart) > 0)     then
%>
          <%
'WA eCart Merchandizing Show End
'ecart="adverteCart"
end if
%>
          <%
'WA eCart Merchandizing Show Start
'ecart="adverteCart"
if (WA_eCart_GetShipping(adverteCart) > 0)     then
%>
          <%
'WA eCart Merchandizing Show End
'ecart="adverteCart"
end if
%>
          <%
'WA eCart Merchandizing Show Start
'ecart="adverteCart"
if (WA_eCart_GetTax(adverteCart) > 0)     then
%>
          <tr>
            <td class="eC_SummaryLabel">VAT</td>
            <td><%=WA_eCart_DisplayMoney(adverteCart, WA_eCart_GetTax(adverteCart))%></td>
          </tr>
          <%
'WA eCart Merchandizing Show End
'ecart="adverteCart"
end if
%>
          <tr class="eC_SummaryFooter">
            <td class="eC_SummaryLabel">Total:</td>
            <td><%=WA_eCart_DisplayMoney(adverteCart, WA_eCart_GrandTotal(adverteCart))%></td>
          </tr>
        </table>
	  </div>
	  <%
'WA eCart Show If Middle
else
%><table><tr><td>The cart is empty</td></tr></table><%
'WA eCart Show If End
end if
%>
    
    <div class="eC_PurchaserInfoWrapper">
      <h3 class="eC_InfoHeader">Billing Information</h3>
	    <div class="eC_InfoContainer"><%=Request.Form("firstname")%>&nbsp;<%=Request.Form("lastname")%><br />
		    <%=Request.Form("street1")%><br />
		    <%=Request.Form("city")%>,&nbsp;<%=Request.Form("state_province")%>&nbsp;<%=Request.Form("postcode")%><br />
	      <%=Request.Form("country")%></div>
	</div>
		  
<div class="eC_Simple_Nautica_Arial">
  
  <div class="eC_CheckoutFormWrapper">
    <form name="ecart_checkout_form" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post">
      
      <table class="eC_ButtonWrapper" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td>
            <input type="hidden" name="cc_type" id="cc_type" value="<%=Session("eCartCheckoutForm_cc_type")%>" />
  <input type="hidden" name="cc_number" id="cc_number" value="<%=Session("eCartCheckoutForm_cc_number")%>" />
  <input type="hidden" name="exp_month" id="exp_month" value="<%=Session("eCartCheckoutForm_exp_month")%>" />
  <input type="hidden" name="exp_year" id="exp_year" value="<%=Session("eCartCheckoutForm_exp_year")%>" />
  <input type="hidden" name="cvv" id="cvv" value="<%=Session("eCartCheckoutForm_cvv")%>" />
  <input type="hidden" name="firstname" id="firstname" value="<%=Session("eCartCheckoutForm_firstname")%>" />
  <input type="hidden" name="lastname" id="lastname" value="<%=Session("eCartCheckoutForm_lastname")%>" />
  <input type="hidden" name="email" id="email" value="<%=Session("eCartCheckoutForm_email")%>" />
  <input type="hidden" name="phone" id="phone" value="<%=Session("eCartCheckoutForm_phone")%>" />
  <input type="hidden" name="fax" id="fax" value="<%=Session("eCartCheckoutForm_fax")%>" />
  <input type="hidden" name="street1" id="street1" value="<%=Session("eCartCheckoutForm_street1")%>" />
  <input type="hidden" name="street2" id="street2" value="<%=Session("eCartCheckoutForm_street2")%>" />
  <input type="hidden" name="city" id="city" value="<%=Session("eCartCheckoutForm_city")%>" />
  <input type="hidden" name="state_province" id="state_province" value="<%=Session("eCartCheckoutForm_state_province")%>" />
  <input type="hidden" name="postcode" id="postcode" value="<%=Session("eCartCheckoutForm_postcode")%>" />
  <input type="hidden" name="country" id="country" value="<%=Session("eCartCheckoutForm_country")%>" />
  <input type="image" name="Submit_order" id="Submit_order"  value="Checkout" alt="Submit order" src="../WA_eCart/Images/Cabo Sunset/Btn2_EN_submitorder.gif"  />            </td>
			  </tr>
        </table>
		  </form>
	  </div>
  </div>
  
	</div>
</div>
<!-- InstanceEndEditable --></div>
  <div id="footer"><!-- InstanceBeginEditable name="footerlinks" -->
    <div id="sitedesigned">© <span class="netsolva">Recruta Ltd</span> 2007 -
      <script src="../scripts/copyrightdate.js" type="text/javascript"></script>
    All Rights Reserved | <a href="../terms/termsandconditions.asp">Terms &amp; Conditions</a> | <a href="../terms/privacypolicy.asp">Privacy Policy</a> | <a href="../terms/disclaimer.asp">Disclaimer</a> | <a href="../admin/login.asp">Webmaster</a></div>
    <!-- InstanceEndEditable -->
    <div id="copyright">
      <div id="footer2">
        <div id="copyright2"><a href="http://www.recruta.co.uk/" target="_blank">Job Board Design and Hosting by Recruta</a></div>
      </div>
    </div>
</div></div>
 
</body>
<!-- InstanceEnd --></html>
<%
ppdata.Close()
Set ppdata = Nothing
%>
<%
Banner.Close()
Set Banner = Nothing
%>
<%
SiteBanner.Close()
Set SiteBanner = Nothing
%><%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
administrator.Close()
Set administrator = Nothing
%>
<%
monthlyuser.Close()
Set monthlyuser = Nothing
%>
<%
ADVERTUSERS.Close()
Set ADVERTUSERS = Nothing
%>
<%
news.Close()
Set news = Nothing
%><%
muser.Close()
Set muser = Nothing
%>
<%
valueclick.Close()
Set valueclick = Nothing
%>

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:
682:
683:
684:
685:
686:
687:
688:
689:
690:
691:
692:
693:
694:
695:
696:
697:
698:
699:
700:
701:
702:
703:
704:
705:
706:
707:
708:
709:
710:
711:
712:
713:
714:
715:
716:
717:
718:
719:
720:
721:
722:
723:
724:
725:
726:
727:
728:
729:
730:
731:
732:
733:
734:
735:
736:
737:
738:
739:
740:
741:
742:
743:
744:
745:
746:
747:
748:
749:
750:
751:
752:
753:
754:
755:
756:
757:

Select all Open in new window