function goBuy() {
        ilist='';
        index=document.cookie.indexOf('GCW');
        countbegin=(document.cookie.indexOf('=', index)+1);
        countend=document.cookie.indexOf(';',index);
        if(countend==-1) { countend=document.cookie.length; }
        fulllist=document.cookie.substring(countbegin,countend);
        for(var i=0; i<= fulllist.length;i++) {
            if(fulllist.substring(i,i+1)=='[') {
                itemstart=i;
            } else if (fulllist.substring(i,i+1)==']') {
                itemend=i+1;
                ilist=ilist+fulllist.substring(itemstart,itemend);
            }
        }
        ilist=changeSpaces(ilist);
        top.location='http://www.hempmarket.com/buy.htm?items='+ilist;
    }

    function changeSpaces(tstring) {
        nstring='';
        for (var i=0; i <= tstring.length; i++) {
            if (tstring.charAt(i)==' ') { nstring=nstring+'^';
            } else { nstring=nstring+tstring.charAt(i); }
        }
        return nstring;
    }



function checkAdvanced(adv) {
     newAdv='';advlist=0;
    for (var j=0;j<=adv.length;j++) {
            if (adv.substring(j,j+1) == '{') {
            thisadv=1;
            advstart=j+1;
        } else if (adv.substring(j,j+1) == '}') {
            advend=j;
            advPrice2=adv.substring(advstart,advend);
            advlist++; applicable=true;
            if (applicable==true) {
                newAdv = newAdv+ '{'+advFrom+'~'+advTo+'~'+advPrice+'~'+advPrice2+'}'
            }
        } else if (adv.substring(j,j+1)=='~') {
            if (thisadv== 1) advFrom=adv.substring(advstart,j);
            if (thisadv== 2) advTo=adv.substring(advstart,j);
            if (thisadv== 3) advPrice=adv.substring(advstart,j);
            if (thisadv== 4) advPrice2=adv.substring(advstart,j);
            thisadv++;advstart=j+1;
        }
    }
    if (newAdv=='') newAdv='none';
    return newAdv;
}


function showBasket() {
     currency=1;
     index=document.cookie.indexOf('GCW');
     countbegin=(document.cookie.indexOf('=',index)+1);
     countend=document.cookie.indexOf(';',index);
     if (countend==-1) { countend=document.cookie.length; }
     fulllist=document.cookie.substring(countbegin,countend);
     totprice=0;totprice2=0;shippingtotal=0;shippingtotal2=0;taxtotalone=0;taxtotalone2=0;taxtotaltwo=0;taxtotaltwo2=0;ordertotal=0;ordertotal2=0;
     taxablestandard=0;taxablesecond=0;taxable=0;
     document.writeln('<table width="500" border=0 cellpadding=2 cellspacing=0>');
     document.writeln('<tr>');
     document.writeln('<td  bgcolor=#EAEAEA ><font color=#000000 face="Arial" size=2>Product Name</font></td>');
     document.writeln('<td  bgcolor=#EAEAEA align=right><font color=#000000 face="Arial" size=2>Price</font></td>');
     document.writeln('<td bgcolor=#EAEAEA align=right><font color=#000000 face="Arial" size=2>Quantity</font></td><td  bgcolor=#EAEAEA align=right><font color=#000000 face="Arial" size=2>Total Cost</font></td><td  bgcolor=#EAEAEA align=right><font color=#000000 face="Arial" size=2>Action</font></td>');
     document.writeln('</tr>');
     itemlist=0;
     for (var i=0; i<=fulllist.length;i++) {
         if (fulllist.substring(i,i+1)=='[') {
             itemstart=i+1;
             thisitem=1;
         } else if (fulllist.substring(i,i+1)==']') {
             itemend=i;
             thequantity=fulllist.substring(itemstart,itemend);
             itemtotal=0;itemtotal2=0;
             if (theAP!='none') {
             if (currency==1) { tempprice=getAdvanced(theAP,1,thequantity); if (tempprice>0) theprice=tempprice; }
             if (currency==2) { tempprice=getAdvanced(theAP,2,thequantity); if (tempprice>0) theprice2=tempprice; }
             }
             itemtotal=(eval(theprice*thequantity));
             temptotal=itemtotal*100;
             totprice=totprice+itemtotal;
             itemlist=itemlist+1;
         document.writeln('<tr><td  ><font color=#000000 face="Arial" size=2>'+theitem+'</font></td>');
     document.writeln('<td   align=right><font color=#000000 face="Arial" size=2>'+presentValue(eval(theprice))+'</font></td>');
     document.writeln('<td   align=right><font color=#000000 face="Arial" size=2><input type=text name="quant'+itemlist+'" value='+thequantity+' size=3></font></td>');
     document.writeln('<td   align=right><font color=#000000 face="Arial" size=2>'+presentValue(itemtotal)+'</font></td>');
     document.writeln('<td   align=right><font color=#000000 face="Arial" size=2><input type=button name="remove'+itemlist+'" value="Remove" onClick="removeItem('+itemlist+');"></font></td></tr>');
             } else if (fulllist.substring(i,i+1)=='|') {
                 if (thisitem==1) theitem=fulllist.substring(itemstart,i);
                 if (thisitem== 2) theprice=fulllist.substring(itemstart,i);
                 if (thisitem== 3) thetaxable=fulllist.substring(itemstart,i);
                 if (thisitem== 4) theweight=fulllist.substring(itemstart,i);
                     if (thisitem== 5) theAP=fulllist.substring(itemstart,i);
               thisitem++; itemstart=i+1;
             }
         }
     document.writeln('<tr><td colspan=3  ><font color=#000000 face="Arial" size=2>Total Goods</font></td>');
     document.writeln('<td   align=right><font color=#000000 face="Arial" size=2>'+presentValue(totprice)+'</font></td>');
     document.writeln('<td   align=right><font color=#000000 face="Arial" size=2>&nbsp;</font></td>');
     document.writeln('</tr>');
     document.writeln('</table><br>');
     document.writeln('<input type=button name=clear value="Clear Basket" onClick="clearBasket();">');
     document.writeln('<input type=button name=update value="Update" onClick="updateBasket();">');
}



function ShowOrder() {
     currency=1;
     index=document.cookie.indexOf('GCW');
     countbegin=(document.cookie.indexOf('=',index)+1);
     countend=document.cookie.indexOf(';',index);
     if (countend==-1) { countend=document.cookie.length; }
     fulllist=document.cookie.substring(countbegin,countend);
	 
     totprice=0;totprice2=0;shippingtotal=0;shippingtotal2=0;taxtotalone=0;taxtotalone2=0;taxtotaltwo=0;taxtotaltwo2=0;ordertotal=0;ordertotal2=0;
     taxablestandard=0;taxablesecond=0;taxable=0;
	 
 //    document.writeln('<table width="500" border=0 cellpadding=2 cellspacing=0>');
 //    document.writeln('<tr>');
  //   document.writeln('<td  bgcolor=#EAEAEA ><font color=#000000 face="Arial" size=2>Product Name</font></td>');
//     document.writeln('<td  bgcolor=#EAEAEA align=right><font color=#000000 face="Arial" size=2>Price</font></td>');
//     document.writeln('<td bgcolor=#EAEAEA align=right><font color=#000000 face="Arial" size=2>Quantity</font></td><td  bgcolor=#EAEAEA align=right><font color=#000000 face="Arial" size=2>Total Cost</font></td><td  bgcolor=#EAEAEA align=right><font color=#000000 face="Arial" size=2>Action</font></td>');
//     document.writeln('</tr>');


     itemlist=0;
     for (var i=0; i<=fulllist.length;i++) {
         if (fulllist.substring(i,i+1)=='[') {
             itemstart=i+1;
             thisitem=1;
         } else if (fulllist.substring(i,i+1)==']') {
             itemend=i;
             thequantity=fulllist.substring(itemstart,itemend);
             itemtotal=0;itemtotal2=0;
             if (theAP!='none') {
             if (currency==1) { tempprice=getAdvanced(theAP,1,thequantity); if (tempprice>0) theprice=tempprice; }
             if (currency==2) { tempprice=getAdvanced(theAP,2,thequantity); if (tempprice>0) theprice2=tempprice; }
             }
             itemtotal=(eval(theprice*thequantity));
             temptotal=itemtotal*100;
             totprice=totprice+itemtotal;
             itemlist=itemlist+1;

             } else if (fulllist.substring(i,i+1)=='|') {
                 if (thisitem==1) theitem=fulllist.substring(itemstart,i);
                 if (thisitem== 2) theprice=fulllist.substring(itemstart,i);
                 if (thisitem== 3) thetaxable=fulllist.substring(itemstart,i);
                 if (thisitem== 4) theweight=fulllist.substring(itemstart,i);
                     if (thisitem== 5) theAP=fulllist.substring(itemstart,i);
               thisitem++; itemstart=i+1;
             }
         }
//     document.writeln('<tr><td colspan=3  ><font color=#000000 face="Arial" size=2>Total Goods</font></td>');
//     document.writeln('<td   align=right><font color=#000000 face="Arial" size=2>'+presentValue(totprice)+'</font></td>');
//     document.writeln('<td   align=right><font color=#000000 face="Arial" size=2>&nbsp;</font></td>');
//     document.writeln('</tr>');
//     document.writeln('</table><br>');
//     document.writeln('<input type=button name=clear value="Clear Basket" onClick="clearBasket();">');
//     document.writeln('<input type=button name=update value="Update" onClick="updateBasket();">');
     document.writeln('<table width=125  border=1 cellpadding=2 cellspacing=0 bordercolor=#C4C4FF class=border><tr>');
document.writeln('<td height=60 bgcolor=#F2F2F2><p align=center class=order > <span class=order2 >Your Basket</span>');
document.writeln('<br> No Items: '+itemlist+'<br> Order Value: '+presentValue(totprice)+'</p></td></tr></table><span class=fill>.</span>');
				 


}





function removeItem(itemno) {
        newItemList=null;
        itemlist=0;
        for(var i=0;i<=fulllist.length;i++) {
            if (fulllist.substring(i,i+1)=='[') {
                itemstart=i+1;
            } else if (fulllist.substring(i,i+1)==']') {
                itemend=i;
                theitem = fulllist.substring(itemstart,itemend);
                itemlist=itemlist+1;
                if(itemlist != itemno) {
                    newItemList = newItemList+'['+fulllist.substring(itemstart,itemend)+']';
                }
            }
        }
        index = document.cookie.indexOf('GCW');
        document.cookie='GCW='+newItemList+'; path=/; expires=Friday, 31-Dec-2020 08:00:00 GMT';
        self.location = '../cgi-bin/hmp-my-basket.cgi';
    }


    function clearBasket() {
        if (confirm('Are you sure you wish to clear the basket?')) {
            index=document.cookie.indexOf('GCW');
            document.cookie='GCW=.' +'; path=/';
            self.location='../cgi-bin/hmp-my-basket.cgi';
        }
    }
    function changeCurrency(num) {
         index=document.cookie.indexOf('TheCurrency');
         document.cookie='TheCurrency='+num+';  path=/; expires=Friday, 31-Dec-2020 08:00:00 GMT';
         self.location='../cgi-bin/hmp-my-basket.cgi';
    }

    function updateBasket() {
        newItemList='';
        itemlist=0;
        for(var i=0;i<=fulllist.length; i++) {
            if(fulllist.substring(i,i+1)=='[') {
                thisitem=1;
                itemstart=i+1;
                fullstart=i+1;
            } else if(fulllist.substring(i,i+1)==']') {
                itemend=i;itemlist++;
                thiselement=document.basketform.elements['quant'+itemlist].value;
                newItemList=newItemList+'['+partList+'|'+thiselement+']'
            } else if(fulllist.substring(i,i+1)=='|') {
                partList=fulllist.substring(itemstart,i);
            }
        }
        index=document.cookie.indexOf('GCW');
        document.cookie='GCW='+newItemList+'; path=/; expires=Friday, 31-Dec-2020 08:00:00 GMT';
        self.location='../cgi-bin/hmp-my-basket.cgi';
    }


function getAdvanced(adv,curr,qty) {
     newAdv='';advlist=0;applicable=true;advnewprice=0;
    for (var j=0;j<=adv.length;j++) {
            if (adv.substring(j,j+1) == '{') {
            thisadv=1;
            advstart=j+1;
        } else if (adv.substring(j,j+1) == '}') {
            advend=j;
            advPrice2=adv.substring(advstart,advend);
            advlist++; applicable=true;
            if (applicable==true) {
             if (eval(advFrom) > 0 && eval(advFrom) > eval(qty)) applicable=false;
             if (eval(advTo) > 0 && eval(advTo) < eval(qty)) applicable=false;
             if (curr==1 && applicable==true) advnewprice=advPrice;
             if (curr==2 && applicable==true) advnewprice=advPrice2;
            }
        } else if (adv.substring(j,j+1)=='~') {
            if (thisadv== 1) advFrom=adv.substring(advstart,j);
            if (thisadv== 2) advTo=adv.substring(advstart,j);
            if (thisadv== 3) advPrice=adv.substring(advstart,j);
            if (thisadv== 4) advPrice2=adv.substring(advstart,j);
            thisadv++;advstart=j+1;
        }
    }
     return advnewprice;
}


function presentValue(value) {
        if(value<=0.9999) {
            newPounds='0';
        } else {
            newPounds=parseInt(value);
        }
        dec='1';
        for (var i=1; i<=2;i++) {
            dec=dec+'0';
        }
        if (value>0) {
            newPence=Math.round((value+.000008 - newPounds)*(eval(dec)));
        } else {
            newPence=0;
        }
        compstring='9';
        for (var i=1; i <=2-1;i++) {
            if (eval(newPence) <= eval(compstring)) newPence='0'+newPence;
            compstring=compstring+'9';
        }
        if (2>0) {
            newString='£' + newPounds + '.' + newPence + '';
        } else {
            newString='£' + newPounds + '';
        }
        return (newString);
    }
	
	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_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_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];}
}