function Question (qname,
type,
qstring,
response,
comment,
corrects,
explan,
score,
ifcorrect,ifwrong,ifnull,
img)
{this.qname=qname;
this.type=type;
this.qstring=qstring;
this.response=response;
this.comment=comment;
this.corrects=corrects;
this.explan=explan;
this.score=score;
this.ifcorrect=ifcorrect;
this.ifwrong=ifwrong;
this.ifnull=ifnull;
this.img=img;
}

var zin=1,top=0, mycount=0, waitTime=0, qright=0, mycomment;
var global=new Array(3);
var recent, recent2, recdone=false, opera7, opera=CheckOpera56();
function cachewrite(s,idx){global[idx]+=s;}
function CheckOpera56()
{
var version;
if (navigator.userAgent.toLowerCase().indexOf('opera') == -1) return false;
version=parseInt(navigator.appVersion.toLowerCase());
if (version>6) {opera7=true; return false;}
if (version<5) return false;
return true;
}
resp=new Array("America","France","Italy","Spain")
corr=new Array("1","0","1","0")
comm=""
valu=""
quest001 = new Question(
"Question 1",
1,
"Where did our new UK coffee culture come from? (tick as many as you like)",
resp,
comm,
corr,
"<small>Our new <a target=\"_blank\" href=\"http://en.wikipedia.org/wiki/Coffee_culture\"><u>coffee culture</u></a> derives from the home of quick espresso coffee - Italy, together with 12oz of milk that comes with each cappuccinno to slow us down. This is bought courtesy of US multinational (eg Starbucks) and UK chains like Costa Coffee (belongs to Whitbreads the UK brewers) and Cafe Nero (biggest independent). In many ways the new cafes offer places to meet like the&#160; <a target=\"_blank\" href=\"http://en.wikipedia.org/wiki/Coffeehouse\"><u>Coffee Houses</u></a> of the early 1700s, one of which became the Stock Exchange.</small>",
valu,
2,
0,
0,
"culture.gif");

resp=new Array("Italy","Brazil","Ethiopia","Indonesia")
corr=new Array("0","0","1","0")
comm=""
valu=""
quest002 = new Question(
"Question 2",
0,
"Where did coffee originate?",
resp,
comm,
corr,
"<small>Coffee originated in the highlands of Ethopia, was taken up in Middle East arriving in Turkey, before reaching Vienna in the mid 1600's. The Dutch took some beans from the Yemen and planted them in Java around 1700. A few years later some of this crop was taken to Amsterdam, where via France, it went to Brazil &amp;&#160; Caribbean (cv.'Blue Mountain') - so much of New World coffee originates from just one plant (Purseglove in <a target=\"_blank\" href=\"http://www.worldagroforestrycentre.org/Sea/Products/AFDbases/AF/asp/SpeciesInfo.asp?SpID=547\"><u>Coffee Cultivation</u></a>).&#160; More on <a target=\"_blank\" href=\"http://en.wikipedia.org/wiki/Coffee#History\"><u>Coffee History</u></a></small>",
valu,
2,
0,
0,
"Irish-Coffee-175b.jpg");

resp=new Array("Fairtrade","Organic","Shade","Green")
corr=new Array("0","0","1","0")
comm=""
valu=""
quest003 = new Question(
"Question 3",
0,
"When you want to show off your environmental credentials, which of the following sort of coffee do you ask for?",
resp,
comm,
corr,
"<small><a target=\"_blank\" href=\"http://www.eartheasy.com/eat_shadegrown_coffee.htm\"><font face=\"Arial\"><u>Shade Grown Coffee</u></font></a><font face=\"Arial\">&#160;</font>is the most environmentally freindly, as it is usually organic, and also protects trees and birds.</small>",
valu,
2,
0,
0,
"cappuccino-cup.gif");

resp=new Array("&gt;1p","2-5p","5-10p","10-20p")
corr=new Array("1","0","0","0")
comm=""
valu=""
quest004 = new Question(
"Question 4",
0,
"If you spent &#163;2 on a cup of coffeee, how much goes to the coffee grower?",
resp,
comm,
corr,
"<small><p><font face=\"Arial\">Less than 1p. Coffee sells on world markets for about &#163;1 a kilo.(This makes about 100-150 cups, although prices a bag of coffee or use in a cafe costs around 15 times that amount). Through 1990's and early 2000's prices were lower because of oversupply in the coffee market, due largely to Vietnamese production encouraged by World Bank.Prices were one eighth of mid 90's prices. There are signs of price rises in 2007 as crop failures are predicted. See Movie clips from </font><a target=\"_blank\" href=\"http://www.blackgoldmovie.com/\"><font face=\"Times New Roman\" size=\"4\"><u>Black Gold</u></font></a></p><font face=\"Arial\">The </font><a target=\"_blank\" href=\"http://www.fairtrade.org.uk/\"><font face=\"Arial\"><u>Fairtrade</u></font></a><font face=\"Arial\">&#160;</font><img src=\"wbexp4_1.PNG\" width=\"55\" height=\"68\" border=\"0\" alt=\"graphic\"/><font face=\"Arial\">&#160;minimum price paid to farmers' associations and co-operatives is guaranteed at about &#163;1.75 - &#163;2 a kilo for arabica coffee. This includes a 5 cents per pound 'premium' to be used for agreed social and commercial development projects. </font></small>",
valu,
2,
0,
0,
"coffeelady.jpg");

questions = new Array (
quest001,quest002,quest003,quest004)

function doQuestion(quest)
{
var numdo;
var numord=eval(quest+1);
var i=-1, ii, type, myname, gadget;
type=questions[quest].type;
numdo=type>=3?1:questions[quest].response.length;


document.writeln ("<a name=\""+questions[quest].qname+"\"></a>")
document.write("\n")
document.write("      <table width=\"470\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">\n")
document.write("        <tr> \n")
document.write("          <td align=\"left\" valign=\"bottom\"> \n")
document.write("            <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n")
document.write("              <tr> \n")
document.write("                <td><img src=\"s_table_up_sx.gif\" width=\"31\" height=\"31\"></td>\n")
document.write("                <td background=\"s_table_up_bord.gif\" width=\"100%\"><img src=\"s_table_up_bord.gif\" width=\"180\" height=\"31\"></td>\n")
document.write("                <td><img src=\"s_table_up_dx.gif\" width=\"32\" height=\"31\"></td>\n")
document.write("              </tr>\n")
document.write("            </table>\n")
document.write("          </td>\n")
document.write("        </tr>\n")
document.write("        <tr> \n")
document.write("          <td> \n")
document.write("            <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" height=\"100%\">\n")
document.write("              <tr> \n")
document.write("                <td background=\"s_table_sx_bord.gif\" align=\"right\" valign=\"top\"> \n")
document.write("                  <img src=\"s_table_sx_bord.gif\" width=\"31\" height=\"55\">\n")
document.write("                </td>\n")
document.write("                <td width=\"100%\" bgcolor=\"FFFFCC\" align=\"left\" valign=\"top\">\n")
document.write("                  <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n")
document.write("                    <tr>\n")
document.write("                      <td colspan=\"2\">\n")
document.write("                        <table >\n")
document.write("                          ")
if (questions[quest].img!="") {
document.write("\n")
document.write("                          <td width=1>\n")
document.write("                            <img border=\"0\" src=\"")
document.write(questions[quest].img)
document.write("\">\n")
document.write("                          </td>\n")
document.write("                          ")
}
document.write("\n")
document.write("                          <td class=question valign=\"top\">\n")
document.write("                            ")
document.writeln(questions[quest].qstring)
document.write("\n")
document.write("                          </td>\n")
document.write("                        </table>\n")
document.write("                      </td>\n")
document.write("                    </tr>\n")
document.write("                    <tr height=10></tr>\n")
document.write("                    ")
for (i=0; i<numdo; i++) {
myname=questions[quest].qname;
gadget="radio";
if (type>=3) gadget="text";
else if (type==1) {
myname+="_"+(i<9?"0":"")+(i+1);
gadget="checkbox";}
document.write("\n")
document.write("                    <tr>\n")
document.write("                      <td width=\"1%\" valign=\"top\">")
document.write(type==7?"<textarea name=\""+myname+"\" rows=5 cols=30 class=\"input\">":" <input type="+gadget+" name=\""+myname);
if (type<3) document.write("\" value=\""+i+"\">\n")
else document.write(type==7?"</textarea>":"\" class=\"input\" value=\"\">\n")
document.write("</td>\n")
document.write("                      <td width=\"99%\" class=answer align=\"left\">")
if (type<3) document.write(questions[quest].response[i]);
document.write("</td>\n")
document.write("                    </tr>\n")
document.write("                    ")
}
document.write("\n")
document.write("                    <tr height=5></tr>\n")
document.write("                  </table>\n")
document.write("                 </td>\n")
document.write("                <td background=\"s_table_dx_bord.gif\"><img src=\"s_table_dx_bord.gif\" width=\"32\" height=\"55\"></td>\n")
document.write("              </tr>\n")
document.write("            </table>\n")
document.write("          </td>\n")
document.write("        </tr>\n")
document.write("        <tr> \n")
document.write("          <td> \n")
document.write("            <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n")
document.write("              <tr> \n")
document.write("                <td><img src=\"s_table_dn_sx.gif\" width=\"32\" height=\"27\"></td>\n")
document.write("                <td background=\"s_table_dn_bord.gif\" width=\"100%\"><img src=\"s_table_dn_bord.gif\" width=\"180\" height=\"27\"></td>\n")
document.write("                <td><img src=\"s_table_dn_dx.gif\" width=\"32\" height=\"27\"></td>\n")
document.write("              </tr>\n")
document.write("            </table>\n")
document.write("          </td>\n")
document.write("        </tr>\n")
document.write("      </table>\n")
document.write("	  <br>\n")
document.write("      ")
}
function doTest() {
var count, i;

count=questions.length;
for (i=0; i<count; i++) doQuestion(i);
}
function fill(s,l){
s=s+""
for (y=1;y<=l;y++)
if (s.length>=l) break; else s="0"+s;
return s
}
function CheckQName(wapf,ii,i,multi,selection){
var len;
if (!multi) return(wapf.elements[ii].name==questions[i].qname);
len=questions[i].qname.length;
if (wapf.elements[ii].name.substring(0,len)!=questions[i].qname) return false;
if (wapf.elements[ii].name.substring(len,len+1)!="_") return false;
if (eval(wapf.elements[ii].name.substring(len+1,len+3))==(selection+1)) return true;
return false;
}
function errore(uno,due,tre)
{
if (!errori) global[1]="<H3>You have made the following errors</H3>";
++errori;
cachewrite("<p><b>"+uno+"</b><br>"+due+"<br>"+mycomment+tre+"</p>",2);
mycomment="";
}
function testIE5plus(){
var pos=navigator.appVersion.lastIndexOf('MSIE ');
if (pos != -1) {
pos+=5;
if (eval(navigator.appVersion.charAt(pos))>4)
return true;}
return false;}
function correct(wapf)
{
var i, ii, t, re, tmp, selection, multi, multipage=0, type, isnull, iswrong, iscorrect, evaluation=0, total=0, udat;
errori=waitTime=0;
udat=new Array();
for (i=0, ii=0; i<wapf.elements.length; i++)
{tmp=wapf.elements[i];
if (tmp.name.substring(0,13)=="Quiz.UserData"){
t=tmp.name.substring(14,tmp.name.length);
re=new RegExp("_", "g");
t=t.replace(re," ");
udat[ii++]=t+": <i>"+tmp.value+"</i><br>";
if (opera) tmp.value="";}}
global[0]=global[2]="";
global[1]="<h3>Congratulations, you haven't made any errors</h3>";
cachewrite("<html><head><title>Results</title><BASE target='_blank'></head><body bgcolor='#FFFFFF'><font face='Verdana, Arial'><table border=0 cellpadding=0 cellspacing=0 width='100%' bgcolor='#C0C0C0'><tr><td width='100%'><font face='Verdana, Arial' size=5 color='#FFFFFF'><b>&nbsp;Results</b></font></td></tr></table>",0)
now= new Date()
cachewrite("<small><p>"+fill((now.getMonth()+1),2)+"/"+fill(now.getDate(),2)+"/"+now.getYear()+"&nbsp;&nbsp;"+fill(now.getHours(),2)+":"+fill(now.getMinutes(),2)+"</p>",0)
cachewrite("<b>Quick Coffee Culture Quiz</b><br><br>\n",0);
if (udat.length>0) {
cachewrite("<b>Information</b><br>\n",0);
for (i=0; i<udat.length; i++) cachewrite(udat[i],0);}
if (opera7 && multipage) {
for (i=0; i<questions.length; i++) {
id=document.getElementById("q"+(i+1));
id2=document.getElementById("q"+(i+1)+"a");
id.style.display=id2.style.display="block";}
document.getElementById('wq_final').style.display='block';
}

for (i=0; i<questions.length; i++) {
if (opera && multipage) {
id=document.getElementById("q"+(i+1));
id2=document.getElementById("q"+(i+1)+"a");
id.style.visibility=id2.style.visibility="visible";}
type=questions[i].type;
if (type==1) multi=1;
else multi=0;
isnull=true;
iscorrect=false;iswrong=false;
selection=0;
evaluation=0;
mycomment="";
for (ii=0; ii<wapf.elements.length; ii++) {
if (CheckQName(wapf,ii,i,multi,selection)) {
if (type>=3 && wapf.elements[ii].value!="") {
isnull=false;
if (wapf.elements[ii].value.toLowerCase()==questions[i].corrects.toLowerCase()) iscorrect=true;
else iswrong=true;
++selection;}
else if (wapf.elements[ii].checked) {
if (questions[i].score!="") evaluation+=questions[i].score[selection];
if (isnull) isnull=false;
if (questions[i].corrects[selection]=="1") iscorrect=(iswrong==false)?true:false;
else {
iswrong=true;
if (multi && questions[i].corrects!='') errore(questions[i].qname,"The checkbox  <i>"+questions[i].response[selection]+"</i>  shouldn't have been selected.",questions[i].explan)
}
if (questions[i].comment!="" && questions[i].comment[selection]!="")
mycomment+=((iscorrect || questions[i].corrects=='')?"<b>"+questions[i].qname+"</b><br>":"")+"<small>"+questions[i].comment[selection]+"</small><br>";
} else {
if (questions[i].corrects[selection]=="1") {
iswrong=true;
if (multi && questions[i].corrects!='') errore(questions[i].qname,"The checkbox  <i>"+questions[i].response[selection]+"</i>  should have been selected.",questions[i].explan);
}}
++selection;
}}
if (multi==false && (isnull || iswrong)) {
var okresp="", z;
if (type>=3) okresp=questions[i].corrects;
else {
for (z=0; z<questions[i].corrects.length; z++) {
if (questions[i].corrects[z]==1) {
okresp=questions[i].response[z];
break;
}}}
if (okresp!="") errore(questions[i].qname,"The right answer was <i>"+okresp+".</i>",questions[i].explan);
}
if (mycomment!="") cachewrite(mycomment,2);
if (questions[i].corrects!="") ++qright;
if (isnull) evaluation+=questions[i].ifnull;
else if (iswrong) evaluation+=questions[i].ifwrong;
else if (iscorrect) evaluation+=questions[i].ifcorrect;
total+=evaluation;}
if (qright==0) global[1]="<br>";
if (errori) cachewrite("<br><b>You have made "+errori+" "+(errori==1?"error":"errors")+".</b>",2);
cachewrite("<br><b>Total score: "+total+".</b><br>",2);

cachewrite("<br><b>Evaluation:</b><br>"+GetEval(total)+"<br>",2);
cachewrite("</small><hr noshade><center><form>",2)
printest=(((navigator.appName=="Netscape") && (navigator.appVersion.charAt(0)>="4")) || (testIE5plus() == true))? "print()": "alert('This button can be used with Netscape Navigator 4 or Microsoft Internet Explorer 5 only. If you want to print with other browsers, please select the Print command in the File menu.')"
cachewrite("<input type='button' value='Print...' onClick='"+printest+"'>&nbsp;&nbsp;&nbsp;&nbsp;",2)
cachewrite("<input type='button' value='Close' onClick='window.close()'></form></center>",2)
cachewrite(aknw,2)
winr=window.open('','wapres', 'titlebar=1,location=0,directories=0,menubar=1,toolbar=0,scrollbars=1,resizable=1,status=1')
for (i=0; i<3; i++) winr.document.write(global[i]);winr.document.close()
if ((opera || opera7) && multipage) {
document.forms[0].elements[0].value='Print...';
document.forms[0].elements[1].value='Close';
for (i=0; i<questions.length; i++) {
id=document.getElementById("q"+(i+1));
id2=document.getElementById("q"+(i+1)+"a");
opera?id.style.visibility=id2.style.visibility="hidden":id.style.display=id2.style.display="none";}}
}
aknw="<br><p align='center'><small><small>Created and managed with <a title='Click here to visit WebQuiz site' href='http://www.smartlite.it/go.asp?OLDLP' target = '_blank'>SmartLite WebQuiz</a></small></small></p>"
function GetEval(total)
{
var minval, maxval, valstr, top, i;
minval=new Array(0,4,7);
maxval=new Array(3,6,8);
valstr=new Array("Oh Dear!<br>You dont seem to know a lot about coffee.<br />Perhaps you would like to ask some of these same questions when you next go to your favourite coffee shop.<img src=\"wbevl11_1.PNG\" width=\"74\" height=\"62\" border=\"0\" alt=\"graphic\"/>","<img src=\"wbevl22_1.JPG\" width=\"87\" height=\"79\" border=\"0\" alt=\"graphic\"/>Hmmm<br>Not bad. You obviously have some interest in coffee and may like to find out more at our site called <a target=\"_blank\" href=\"http://www.sustainablefood.com/guide/Fairissue.html\"><u>Sustainable Food - coffee</u></a>","<img src=\"wbevl33_1.JPG\" width=\"78\" height=\"67\" border=\"0\" alt=\"graphic\"/><br>Hmmm, You can smell the coffee!<br>And where it has come from. There may be other questions we should be asking at the coffee shop - let us know info@epaw.co.uk<br><br /><br>And what it may be doing to us here. You may like to find out more a our <a target=\"_blank\" href=\"http://www.sustainablefood.com/guide/Fairissue.html\"><u>Sustainable Food - coffee</u></a>","non disponibile.");
top=minval.length;
for (i=0;i<top;i++) if (total>=minval[i] && total<=maxval[i]) break;
return(valstr[i]);}