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("1947","1953","1957","1963","1967")
corr=new Array("0","0","1","0","0")
comm=""
valu=""
quest001 = new Question(
"Question 1",
0,
"When was the Common Agricultural Policy made?",
resp,
comm,
corr,
"<small><font face=\"Times New Roman\" size=\"4\">1957 Treaty of Rome</font><font face=\"Times New Roman\" size=\"7\">&#160;</font><font face=\"Times New Roman\" size=\"4\">article 39 </font></small>",
valu,
2,
0,
0,
"vg plough.jpg");

resp=new Array("Increase Production","Promote Technical Progress","Ensure a Fair Standard","Stabilise Markets","Assure Availability","Ensure Supplies")
corr=new Array("1","1","1","1","1","1")
comm=""
valu=""
quest002 = new Question(
"Question 2",
1,
"Why was CAP formed?<br><font size=\"2\">(tick as many as you think right)</font>",
resp,
comm,
corr,
"<small>All these aims are part of Article 39 of Treaty of Rome</small>",
valu,
1,
0,
0,
"sfbackground.jpg");

resp=new Array("&euro;50","&euro;100","&euro;300","&euro;1000","&euro;2000")
corr=new Array("0","0","1","0","0")
comm=""
valu=""
quest003 = new Question(
"Question 3",
0,
"How much does CAP cost each of us per year?",
resp,
comm,
corr,
"<small>According to the OECD...<br>The total support - in terms of higher prices or taxes, amounts to &euro;300 (= ca &#163;190) per person in the year 2000 for CAP.<br />More in <a target=\"_blank\" href=\"http://www.ncc.org.uk/food/cap_briefing.pdf\"><u>National Consumer Council CAP Briefing</u></a></small>",
valu,
1,
0,
0,
"diversity.jpg");

resp=new Array("<font face=\"Times New Roman\" size=\"4\"><i>Price Support:</i> Guarantees min. prices set by farm ministers</font>","<font face=\"Times New Roman\" size=\"4\"><i>Import Taxes:</i> Ensures external prices cannot undercut internal EU prices</font>","<font face=\"Times New Roman\" size=\"4\"><i>Intervention:</i> Supports by selling surpluses</font>","<font face=\"Times New Roman\" size=\"4\"><i>Stock Disposal:</i> Disposes of surpluses by other means e.g. Free Food Scheme</font>","<font face=\"Times New Roman\" size=\"4\"><i>Subsidised Exports </i></font>","<font face=\"Times New Roman\" size=\"4\"><i>Production Control: e.g </i>Quotas, Set Aside</font>")
corr=new Array("1","1","1","1","1","1")
comm=""
valu=""
quest004 = new Question(
"Question 4",
1,
"How does CAP work?<br><font size=\"2\">(tick as many as you think appropriate)</font>",
resp,
comm,
corr,
"<small>The CAP uses <b>All </b>these are methods to maintain supplies</small>",
valu,
1,
0,
0,
"examine.jpg");

resp=new Array("&euro;500 million","&euro;1 billion","&euro; 2 billion","&euro; 3 billion")
corr=new Array("0","0","0","1")
comm=""
valu=""
quest005 = new Question(
"Question 5",
0,
"How much does the EU spend on subsidising exports of food?",
resp,
comm,
corr,
"<small>According to the EU, <br>Subsidies on farm exports were 2.8bn euros (&#163;1.9bn; $3.3bn) in 2001. <br>About half of this goes to subsidising export of 5 million tonnes of sugar.<br><br /><br><img src=\"wbexp5_1.PNG\" width=\"253\" height=\"255\" border=\"0\" alt=\"graphic\"/><br><b>Brussels set aside 48bn euros in its 2003 to help farmers - almost half of all its annual expenditure.</b></small>",
valu,
1,
0,
0,
"");

resp=""
corr="GERMANY"
comm=valu=""
quest006 = new Question(
"Question 6",
3,
"Which EU Country is the fattest?<br>(Type your answer in the box)",
resp,
comm,
corr,
"<small>Germany has both the highest number of fat women (nearly 60%) and men (&gt;60%), as measured by those exceeding 25 BMI (Body Mass Index).<br><br /><br><img src=\"wbexp6_1.PNG\" width=\"816\" height=\"529\" border=\"0\" alt=\"graphic\"/><br><br /><br>Figures from <a target=\"_blank\" href=\"http://ec.europa.eu/health/ph_determinants/life_style/nutrition/documents/iotf_en.pdf\"><u>European Forum on Diet</u></a></small>",
valu,
1,
0,
0,
"");

resp=new Array("Commissioner Macsharry for Agriculture 1990s","Commissioner Fischler for Agriculture 2000's","Commissioner&#160; Byrne for Health and Consumer 2004","Commissioner Fischer Boel for Agriculture present")
corr=new Array("0","0","1","0")
comm=""
valu=""
quest007 = new Question(
"Question 7",
0,
"Who said: &quot;Combatting Obesity is a key issue for my Directorate&quot;",
resp,
comm,
corr,
"<small><a target=\"_blank\" href=\"http://http://www.foodnavigator.com/news/ng.asp?id=49535-eu-us-policymakers\"><u>Commissioner Byrne</u></a><font color=\"#0000ff\"><u> put obesity at the heart of his campaigns</u></font></small>",
valu,
1,
0,
0,
"");

resp=new Array("Large UK farms","Small UK farms","French Farms","Tate &amp; Lyle")
corr=new Array("0","0","0","1")
comm=""
valu=""
quest008 = new Question(
"Question 8",
0,
"Who receives most EU funds for food?",
resp,
comm,
corr,
"<small>Tate &amp; Lyle are top with nearly &#163;125million - compared to first farm (Co-operative's Farmcare) with just over &#163;2mil - in 14 th place. More from <a target=\"_blank\" href=\"http://www.farmsubsidy.org/?q=new_england_data\"><u>Farm Subsidy 4 UK</u></a></small>",
valu,
2,
0,
0,
"beet.jpg");

resp=new Array("Cereals","Fruit &amp; Vegetables","Animals","Wine","Poultry")
corr=new Array("0","0","1","0","0")
comm=""
valu=""
quest009 = new Question(
"Question 9",
0,
"Which agricultural product group receives most on farm funding?",
resp,
comm,
corr,
"<small>20.5 % goes to the animals, like cows and sheep, yet there is a further 14% for dairy. <br><br /><br>14.3 to cereals, 6.3 and 8.1 for fruit &amp; vegetables.<br><img src=\"wbexp9_1.PNG\" width=\"1045\" height=\"622\" border=\"0\" alt=\"graphic\"/><br></small>",
valu,
2,
0,
0,
"");

resp=new Array("Cereals","Fruit &amp; Vegetables","Animals","Wine","Poultry")
corr=new Array("1","1","0","0","0")
comm=""
valu=""
quest010 = new Question(
"Question 10",
1,
"What should we eat most?",
resp,
comm,
corr,
"<small>Cereals (30%) and Fruit and Vegtables (30%) should constitute most. <img src=\"wbexp10_1.PNG\" width=\"499\" height=\"256\" border=\"0\" alt=\"graphic\"/></small>",
valu,
1,
0,
0,
"");

resp=new Array("Dough","Doha","Dubya","Dubai","Dubious")
corr=new Array("0","1","0","0","0")
comm=""
valu=""
quest011 = new Question(
"Question 11",
0,
"What is the name of the present Round of negotiations between the EU and the rest of the world that affect CAP subsidies.",
resp,
comm,
corr,
"<small>During the present Doha Round of the WTO (<a target=\"_blank\" href=\"http://www.wto.org/English/tratop_e/dda_e/dohaexplained_e.htm\"><u>WTO explains Doha)</u></a>:<br />The EU offered&#160; to cut farm tariffs by an average of 39 per cent, while insisting that 8 per cent of tariff lines should be exempted from the cuts. The G20 group of emerging countries led by Brazil has asked for a 54 per cent overall cut, while the US is holding out for 66 per cent.<br><a target=\"_blank\" href=\"http://commonagpolicy.blogspot.com/\"><u>Doha Blog</u></a></small>",
valu,
1,
0,
0,
"poordevils.jpg");

questions = new Array (
quest001,quest002,quest003,quest004,quest005,quest006,quest007,quest008,quest009,quest010,quest011)

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>\n")
document.write("                  <table width=\"52\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" background=\"s_table_up_sx.gif\" height=\"52\">\n")
document.write("                    <tr height=\"7\"> \n")
document.write("                      <td></td> \n")
document.write("                    </tr> \n")
document.write("                    <tr> \n")
document.write("                      <td class=\"numbers\" align=\"center\" valign=\"middle\">")
document.write(numord)
document.write("</td>\n")
document.write("                    </tr>\n")
document.write("                  </table>\n")
document.write("                </td>\n")
document.write("                <td background=\"s_table_up_bord.gif\" width=\"100%\"><img src=\"s_table_up_bord.gif\" width=\"150\" height=\"52\"></td>\n")
document.write("                <td><img src=\"s_table_up_dx.gif\" width=\"42\" height=\"52\"></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\"><img src=\"s_table_sx_bord.gif\" width=\"52\" height=\"55\"></td>\n")
document.write("                <td width=\"100%\" bgcolor=\"FFCC66\" 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("                  </table>\n")
document.write("                 </td>\n")
document.write("                <td background=\"s_table_dx_bord.gif\"><img src=\"s_table_dx_bord.gif\" width=\"42\" 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=\"52\" height=\"35\"></td>\n")
document.write("                <td background=\"s_table_dn_bord.gif\" width=\"100%\"><img src=\"s_table_dn_bord.gif\" width=\"150\" height=\"35\"></td>\n")
document.write("                <td><img src=\"s_table_dn_dx.gif\" width=\"42\" height=\"35\"></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>Does CAP make us fat?</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("</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>"