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();
P7_OpResizeFix();
function P7_OpResizeFix(a) { //v1.1 by PVII
if(!window.opera){return;}if(!document.p7oprX){
 document.p7oprY=window.innerWidth;document.p7oprX=window.innerHeight;
 document.onmousemove=P7_OpResizeFix;
 }else{if(document.p7oprX){
  var k=document.p7oprX-window.innerHeight;
  var j=document.p7oprY - window.innerWidth;
  if(k>1 || j>1 || k<-1 || j<-1){
  document.p7oprY=window.innerWidth;document.p7oprX=window.innerHeight;
  do_reposition();}}}
}
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("a hospital","a prison","a shopping mall","a factory","a sports centre")
corr=new Array("1","0","0","0","0")
comm=""
valu=""
quest001 = new Question(
"Question 1",
0,
"The Singers performed here in 2002. It is an unusual type of venue for choral concerts.<br><br>What kind of building is this?",
resp,
comm,
corr,
"<small>This is the main atrium at Chelsea and Westminster Hospital in London.</small>",
valu,
5,
0,
0,
"013.jpg");

resp=new Array("Thea Musgrave","Phyllis Tate","Elizabeth Maconchy","Judith Weir")
corr=new Array("1","0","0","0")
comm=""
valu=""
quest002 = new Question(
"Question 2",
0,
"This composer was born in Scotland and wrote <i>Four Madrigals</i> for mixed voice choir.<br><br>Who is she?",
resp,
comm,
corr,
"",
valu,
5,
0,
0,
"001.jpg");

resp=new Array("Peter Naylor","Richard Rodney Bennett","Kenneth Leighton","Arthur Oldham","William Mathias","Alan Ridout")
corr=new Array("0","0","1","0","0","0")
comm=""
valu=""
quest003 = new Question(
"Question 3",
0,
"This composer was Professor of Music at Edinburgh University until he died in 1988. He composed a magnificent Mass for Double Choir and was a prolific composer of choral and organ music.<br><br>Who was he?",
resp,
comm,
corr,
"",
valu,
5,
0,
0,
"002.jpg");

resp=new Array("Andrew Parrott","David Haslam","John Rutter","Fred West","Michael Brewer")
corr=new Array("1","0","0","0","0")
comm=""
valu=""
quest004 = new Question(
"Question 4",
0,
"This conductor has guest conducted The Singers.<br><br>Who is he?",
resp,
comm,
corr,
"",
valu,
5,
0,
0,
"003.jpg");

resp=new Array("Harold Shipman","David Haslam","George Guest","Kit Widdows","Alan Fearon")
corr=new Array("0","1","0","0","0")
comm=""
valu=""
quest005 = new Question(
"Question 5",
0,
"This conductor conducts The Singers at his Christmas concerts in the north of England. He also conducts the Northern Sinfonia on a regular basis.<br><br>Who is he?",
resp,
comm,
corr,
"<small>Harold Shipman and Kit Widdows cannot conduct.</small>",
valu,
5,
0,
0,
"004.jpg");

resp=""
corr="Cuthbert"
comm=valu=""
quest006 = new Question(
"Question 6",
3,
"This is an extract from Bairstow's <i>I sat down under his shadow</i>. This was written in 1925 for unaccompanied choir.<br><br>What was Bairstow's <i><u>middle</u></i> name?",
resp,
comm,
corr,
"",
valu,
5,
0,
0,
"005.jpg");

resp=""
corr="Caen"
comm=valu=""
quest007 = new Question(
"Question 7",
3,
"The Singers have performed in this magnificent abbey in Normandy. It is the Abbaye aux Hommes.<br><br>Which town is it in?",
resp,
comm,
corr,
"",
valu,
5,
0,
0,
"006.jpg");

resp=new Array("timpani","organ","harp","piano","flute","it is unaccompanied")
corr=new Array("1","0","0","0","0","0")
comm=""
valu=""
quest008 = new Question(
"Question 8",
0,
"This is an extract from Samuel Barber's choral piece <i>A stopwatch and an ordnance map</i>.<br><br>It is scored for male voice choir and what instrument?",
resp,
comm,
corr,
"",
valu,
5,
0,
0,
"007.jpg");

resp=""
corr="Nystedt"
comm=valu=""
quest009 = new Question(
"Question 9",
3,
"This is an extract from the score of <i>Immortal Bach</i>. Based on the Bach chorale <i>Komm s&uuml;sser Tod</i>, it was written in 1988 for the celebration of the Bach 250 anniversary in 2000. It is written for four part SATB choir which splits into 5 four part choirs.<br><br>What is the <i><u>surname</u></i> of the Norwegian composer who wrote it?",
resp,
comm,
corr,
"",
valu,
5,
0,
0,
"008.jpg");

resp=new Array("Richard Rodgers","Leslie Woodgate","Maurice Duruflé","William Walton")
corr=new Array("0","0","0","1")
comm=""
valu=""
quest010 = new Question(
"Question 10",
0,
"The 100th anniversary of the birth of this composer was celebrated in 2002.<br><br>Who is he?",
resp,
comm,
corr,
"<small>All were born in 1902 - but the picture is of the young William Walton.</small>",
valu,
5,
0,
0,
"009.jpg");

resp=""
corr="Frank Martin"
comm=valu=""
quest011 = new Question(
"Question 11",
3,
"This composer wrote a Mass for choir in the 1920s. However, it was not performed until 1962 because the composer regarded it as <i>'a matter between me and God'</i>.<br><br>What is the name of the composer? Enter his first and last name.",
resp,
comm,
corr,
"",
valu,
5,
0,
0,
"010.jpg");

resp=""
corr="Gesualdo"
comm=valu=""
quest012 = new Question(
"Question 12",
3,
"This composer murdered his wife.<br><br>Who was he?",
resp,
comm,
corr,
"",
valu,
5,
0,
0,
"011.jpg");

resp=""
corr="Foxy"
comm=valu=""
quest013 = new Question(
"Question 13",
3,
"Many singers will know and love Vaughan Williams' Mass in G minor for double choir as well as his other choral music. In this photograph Vaughan Williams is seen holding a cat.<br><br>What is the name of this particular cat?",
resp,
comm,
corr,
"<small>You really should know the names of people's cats!</small>",
valu,
5,
0,
0,
"012.jpg");

resp=new Array("Southwark Cathedral","Holy Trinity, Brompton","Brompton Oratory","Carmelite Priory, Kensington","Our Lady of the Victories, Kensington","St Margaret's, Westminster")
corr=new Array("1","0","0","0","0","0")
comm=""
valu=""
quest014 = new Question(
"Question 14",
0,
"This large London church is often referred to as London's 'Cinderella' cathedral.<br><br>Which church is it?",
resp,
comm,
corr,
"",
valu,
5,
0,
0,
"014.jpg");

resp=new Array("Gorecki","Paart","Macmillan","Zimmermann","Ligeti")
corr=new Array("1","0","0","0","0")
comm=""
valu=""
quest015 = new Question(
"Question 15",
0,
"<p><font size=2>This composer said:</font></p><p><font size=2>&quot;Tarkowski said that art is prayer. It is something that I also emphasize. But it is difficult to understand: one has to mature to this thought. It seems to many people that prayer means to &quot;recite the Hail Mary&quot; - but someone may recite &quot;Hail Mary&quot; as many times as one wants and it will not be prayer. Olivier Messiaen said during a meeting in Katowice that he is a man of prayer. But what does he do? He writes his notes down, he listens to his birds. And this is supposed to be prayer?&quot;</font></p><p><font size=2>Identify the composer.</font></p>",
resp,
comm,
corr,
"",
valu,
5,
0,
0,
"015.jpg");

resp=new Array("Mendelssohn","Beethoven","Mahler","Schumann","Stravinsky","Bruckner")
corr=new Array("1","0","0","0","0","0")
comm=""
valu=""
quest016 = new Question(
"Question 16",
0,
"<p><font size=2>A new underground station was inaugurated in October 1998 on Berlin's U2 line. It was named after the composer whose gravestone is shown on the left.</font></p><p><font size=2>Identify the composer.<br><br></font></p>",
resp,
comm,
corr,
"",
valu,
5,
0,
0,
"016.jpg");

resp=new Array("Der Goldene Hahn","Starbuck's","Wintergarten im Literaturhaus","Zimmermann's","Caf<font face=\"Verdana\">&eacute; Sch&ouml;nbrunn</font>","Barconi's")
corr=new Array("0","0","0","1","0","0")
comm=""
valu=""
quest017 = new Question(
"Question 17",
0,
"Bach wrote his <i>Coffee Cantata </i>as a commercial for which famous coffee house?",
resp,
comm,
corr,
"",
valu,
5,
0,
0,
"017.jpg");

resp=new Array("Peter Maxwell Davies","James MacMillan","Iain Matheson","John MacLeod","Kevin Mayo","Nigel Osborne")
corr=new Array("0","1","0","0","0","0")
comm=""
valu=""
quest018 = new Question(
"Question 18",
0,
"Calum Colvin painted this beautiful portrait of a Scottish composer in 1996 for the Scottish National Portrait Gallery.<br><br>Who is the composer?",
resp,
comm,
corr,
"",
valu,
5,
0,
0,
"018.jpg");

resp=new Array("Psalm 139","Psalm 23","Psalm 121","Psalm 150","Psalm 69")
corr=new Array("1","0","0","0","0")
comm=""
valu=""
quest019 = new Question(
"Question 19",
0,
"This picture shows the start of the lying in state of the Queen Mother in Westminster Hall in 2002. In the background the gentlemen of the choir of Westminster Abbey are singing words from a psalm to an anglican chant.<br><br>Which psalm do the words come from?",
resp,
comm,
corr,
"",
valu,
5,
0,
0,
"019.jpg");

resp=new Array("Croatia","Slovenia","Latvia","Macedonia","Bosnia-Herzegovina","Lithuania")
corr=new Array("0","1","0","0","0","0")
comm=""
valu=""
quest020 = new Question(
"Question 20",
0,
"There was considerable controversy in this country when it was revealed that their entry in the 2002 Eurovision Song Contest would be sung by three men cross-dressing as air hostesses.<br><br>Which country's entry was it?",
resp,
comm,
corr,
"<small>It didn't do too well ... unfortunately!<br><img src=\"wbexp20_1.PNG\" width=400 height=245 border=0></small>",
valu,
5,
0,
0,
"020.jpg");

questions = new Array (
quest001,quest002,quest003,quest004,quest005,quest006,quest007,quest008,quest009,quest010,quest011,quest012,quest013,quest014,quest015,quest016,quest017,quest018,quest019,quest020)

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;
if (type<3) {
respcopy=new Array(numdo);corrcopy=new Array(numdo);
for (i=0; i<numdo; i++) respcopy[i]=questions[quest].response[i];
respcopy.sort(myrandom);
for (i=0; i<numdo; i++) {
for (ii=0; ii<numdo; ii++) {
if (respcopy[i]==questions[quest].response[ii]) {
corrcopy[i]=questions[quest].corrects[ii];break;}}}
questions[quest].response=respcopy;
questions[quest].corrects=corrcopy;}
if (opera && top==0) top=document.getElementById("wq_user").style.top;document.write("\n")
document.write("<div id=\"q")
document.write(numord)
document.write("\" ")
document.write(opera?" style=\"position: absolute; visibility:hidden; top:"+top+"; z-index:"+(++zin)+";\"":" style=\"display:none\"");
document.write(">\n")
document.write("<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n")
document.write("  <tr> \n")
document.write("    <td>&nbsp;</td>\n")
document.write("    <td width=\"50%\">\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=\"50\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" background=\"m_table_up_sx.gif\" height=\"30\">\n")
document.write("                    <tr> \n")
document.write("                      <td> \n")
document.write("                        <div align=\"center\"></div>\n")
document.write("                      </td>\n")
document.write("                    </tr>\n")
document.write("                  </table>\n")
document.write("                </td>\n")
document.write("                <td background=\"m_table_up.gif\" width=\"100%\"><img src=\"m_table_up.gif\" width=\"282\" height=\"30\"></td>\n")
document.write("                <td> \n")
document.write("                  <table width=\"31\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" background=\"m_table_up_dx.gif\" height=\"30\">\n")
document.write("                    <tr> \n")
document.write("                      <td> \n")
document.write("                        <div align=\"center\"><b><font color=\"#FFFFFF\" face=\"Arial, Helvetica, sans-serif\" size=\"2\">")
document.write(numord)
document.write("</font></b></div>\n")
document.write("                      </td>\n")
document.write("                    </tr>\n")
document.write("                  </table>\n")
document.write("                </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=\"m_table_border_sx.gif\" align=\"right\" valign=\"top\"><img src=\"m_question_sx.gif\" width=\"57\" height=\"48\"></td>\n")
document.write("                <td width=\"100%\" bgcolor=\"ECE9D8\" 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>\n")
document.write("                      <td colspan=\"2\"></td>\n")
document.write("                    </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=\"m_table_border_dx.gif\"><img src=\"m_table_border_dx.gif\" width=\"31\" height=\"24\"></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=\"m_table_dn_sx.gif\" width=\"50\" height=\"15\"></td>\n")
document.write("                <td background=\"m_table_dn_bord.gif\" width=\"100%\"><img src=\"m_table_dn_bord.gif\" width=\"282\" height=\"15\"></td>\n")
document.write("                <td><img src=\"m_table_dn_dx.gif\" width=\"31\" height=\"15\"></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("    </td>\n")
document.write("    <td>&nbsp;</td>\n")
document.write("  </tr>\n")
document.write("</table>\n")
document.write("</div>\n")
document.write("\n")
document.write("<div id=\"q")
document.write(numord)
document.write("a\" ")
document.write(opera?" style=\"position: absolute; visibility:hidden; top:"+top+"; z-index:"+(++zin)+";\"":" style=\"display:none\"");
document.write(">\n")
document.write("<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n")
document.write("  <tr> \n")
document.write("    <td>&nbsp;</td>\n")
document.write("    <td width=\"50%\" align=\"right\">\n")
document.write("      ")
if (quest>0) {
document.write("\n")
document.write("      <a href=\"javascript:void(0)\" ")
document.write(" onClick=\"myshow("+(quest)+",0)\"")
document.write(" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage('Image1")
document.write(numord)
document.write("','','m_back_button2.gif',1)\"><img src=\"m_back_button.gif\" width=\"80\" height=\"24\" border=\"0\" name=\"Image1")
document.write(numord)
document.write("\" alt=\"Back\"></a>\n")
document.write("      ")
}
document.write("\n")
document.write("      ")
if (quest<questions.length) {
document.write("\n")
document.write("      <a href=\"javascript:void(0)\" ")
document.write(" onClick=\"myshow("+quest+",2)\"")
document.write(" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage('Image2")
document.write(numord)
document.write("','','m_next_button2.gif',1)\"><img src=\"m_next_button.gif\" width=\"80\" height=\"24\" border=\"0\" name=\"Image2")
document.write(numord)
document.write("\" alt=\"Next\"></a>\n")
document.write("      ")
}
document.write("\n")
document.write("      ")
document.write(" \n")
document.write("    </td>\n")
document.write("    <td>&nbsp;</td>\n")
document.write("  </tr>\n")
document.write("</table>\n")
document.write("</div>\n")
}
function doTest() {
var count, i, newq;
questions.sort(myrandom);
newq=questions.slice(0,10);questions=newq;
for (i=0; i<questions.length; i++) {
questions[i].qname="Question "+(i+1);}
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 correct(wapf)
{
var i, ii, t, re, tmp, selection, multi, multipage=1, 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>The Singers 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="print()";
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 myrandom(a,b)
{
var rc;
do {rc=Math.floor(Math.random()*3)-1;} while (rc==2);
return(rc);
}
function GetEval(total)
{
var minval, maxval, valstr, top, i;
minval=new Array(50,40,25,0);
maxval=new Array(50,49,39,29);
valstr=new Array("A perfect score! You're a genius.","Well done! an excellent score.","A good attempt!","Oh dear. Not very good .. was it?","non disponibile.");
top=minval.length;
for (i=0;i<top;i++) if (total>=minval[i] && total<=maxval[i]) break;
return(valstr[i]);}
function checkBrowser()
{
var browser=new Array('microsoft internet explorer','netscape','opera');
var version=new Array(5,5,6);
for (i=0; i<3; i++) {
var ref, pos=navigator.appVersion.lastIndexOf('MSIE ');
if (pos == -1) ref=parseInt(navigator.appVersion);
else {pos+=5;ref=eval(navigator.appVersion.charAt(pos));}
if (navigator.appName.toLowerCase()==browser[i] && ref>=version[i])
break;}
if (i==3) {
alert('The browser'+navigator.appName+' '+navigator.appVersion+' is not supported');
return false;}
return true;}
function myshow(count,dif)
{
var id, id2, wq_user, id_str, id2_str;
if (recdone==false && checkBrowser()==false) return;
if (recdone==false && waitTime!=0) checkTime();
if (dif!=-1) count+=dif;
mycount=count;
if (count==questions.length+1) {id_str="wq_final";id2_str="wq_final2"}
else {id_str="q"+count;id2_str="q"+count+"a";}
if (document.getElementById){
id=document.getElementById(id_str);
id2=document.getElementById(id2_str);
wq_user=document.getElementById("wq_user");
if (count==questions.length+1 && opera) {id2.style.top=id.style.top+id.style.height;}
} else if (document.all) {
id=document.all[id_str];
id2=document.all[id2_str];
wq_user=document.all["wq_user"];
} else {
id=eval(id_str);
id2=eval(id2_str);
wq_user=eval("wq_user");}
if (recdone==false) {
recent=wq_user;
recent2="";
recdone=true;}
opera?recent.style.visibility="hidden":recent.style.display="none";
if (recent2!="") opera?recent2.style.visibility="hidden":recent2.style.display="none";
opera?id.style.visibility="visible":id.style.display="block";
opera?id2.style.visibility="visible":id2.style.display="block";
if (count<questions.length+1 && questions[count-1].type>2) document.WapForm.elements[questions[count-1].qname].focus();
recent=id;recent2=id2;}
function do_reposition(){
var id, id2, wq_user, wq_final, wq_footer, i, y, h, max=0;
wq_user=document.getElementById("wq_user");
if (mycount>0) wq_user.style.visibility="hidden";
for (i=1; i<=questions.length; i++) {
id=document.getElementById("q"+i);
id2=document.getElementById("q"+i+"a");
id2.style.top=id.style.top+id.style.height;
h=id2.style.height;y=id2.style.top;
if (mycount==i) id.style.visibility=id2.style.visibility="visible";
if (y+h>max) max=y+h;}
wq_final=document.getElementById("wq_final");
wq_footer=document.getElementById("wq_footer");
if (wq_final.style.visibility!="hidden") {
wq_final.style.top=max;max+=wq_final.style.height;}
if (wq_footer.style.visibility!="hidden") {
wq_footer.style.top=max;}
}