var PostAction  = "https://www.paypal.com/cgi-bin/webscr?cmd=_xclick";
var PPBusID = "&business=trevormarr%40blueyonder.co.uk";
var ItmName = "";
var Custm = "";
var ImgURL = "&image_url=http://www.cs4u.biz/images/cs4ulogo.gif";
var NoShip = "&no_shipping=1";
var PayReturn = "";
var CancelReturn = "";
var NoNote = "&no_note=1";
var ItemQty = "&quantity=1";
var ItemAmt  = "&amount=0";
var CurCode = "&currency_code=GBP";
var ItmNo = "";
var Optn0Name = "";
var Optn0Val = "";
var Optn1Name = "";
var Optn1Val = "";
var gMaint = "";

var winpar = "width=650,height=400,scrollbars," +
             "location,resizable,status";

function SetMaint(odesc){
gMaint = odesc;
}

function CallPay () {
var ppstr;
	ppstr = PostAction + PPBusID + ItmName + Custm + 
        ImgURL + NoShip + PayReturn + CancelReturn + NoNote + ItemQty +
        ItemAmt + CurCode + ItmNo + Optn0Name + Optn0Val + 
	Optn1Name + Optn1Val;
	ClearAll ();
	window.open (ppstr, "paypal", winpar);
}

function ClearAll () {
	ItemAmt = "";
	Custm = "";	// vat indicator
	ItmName = "";
	ItmNo = "";	// email number
	PayReturn = "";
	CancelReturn = "";
	gMaint = "";
	Optn0Name = "";
	Optn0Val = "";
	Optn1Name = "";
	Optn1Val = "";
}

function Coder (strn) {
var	aray = new Array ();
	aray = strn.split (" ");
	return aray.join ("+");
}

function ReadForm (obj) {
	var Hdr1="", OServ="";
	ItemAmt = "&amount=" + escape(Coder(obj.GrandTotal.value));
	ItmName = "&item_name=" + escape(Coder(obj.ItemName.value));
	ItmNo = "&item_number=" + escape(Coder(obj.Email.value));
	PayReturn = "&return=" + escape(Coder(obj.PayReturn.value));
	CancelReturn = "&cancel_return=" + escape(Coder(obj.CancelReturn.value));
	OServ = escape(Coder(obj.SpecifyDesc.value));

	if (parseFloat(obj.TemplateAmt.value) != 0) 
		Hdr1 = "Template";

	if (obj.MaintAmt.value != 0) {
		if (Hdr1.length != 0) {
			Hdr1 += " plus " + gMaint;
		} else {
			Hdr1 = gMaint;
		}
	} else {
		if (Hdr1.length != 0)
			Hdr1 += " (no maintenance)";
	}
	Optn0Name = "&on0=Development Options";
	if (Hdr1.length > 0) {
		Optn0Val = "&os0=" + Hdr1;
	} else {
		Optn0Val = "&os0=None";
	}
	if (parseFloat(obj.AgreedAmt.value) != 0)  {
		Optn1Name = "&on1=Other Services";
		if (OServ.length > 0)
			Optn1Val = "&os1=" + OServ + "+(GBP" + obj.AgreedAmt.value + ")";
		else
			Optn1Val = "&os1=Payment:+GBP" + obj.AgreedAmt.value;
	} else {
		if (OServ.length > 0) {
			Optn1Name = "&on1=Other Services";
			Optn1Val = "&os1=" + OServ + "+(no payment made)";
		} else {
			Optn1Name = "";
			Optn1Val = "";
		}
	}
	if (obj.VatAmtInd.checked)
		ItmName += escape(Coder(" (UK/EEC resident)"));
	else
		ItmName += escape(Coder(" (Non UK/EEC)"));
}