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

resp=new Array("Yes, Truth is a core value","Truth is possibly a value","No, truth is not a core value")
corr=new Array("1","0","0")
quest001 = new Question(
"Truth",
0,
"Truth",
resp,
corr,
"<small>Truth is an end in itself. It is a commonly held, or shared value. In fact truth, or truthfulness, also known as honesty, sometimes referred to as a virtue, has been held as such by many people through many civilisations from earliest times.</small>",
1,
0,
0,
"");

resp=new Array("Yes, Courage is a core value","Courage may be a value","Courage is not a core value")
corr=new Array("0","1","0")
quest002 = new Question(
"Courage",
0,
"Courage",
resp,
corr,
"<small> it's more of a character disposition that we value. We can say that while usually thought of as a good thing, courage can be applied to evil as well as good objectives. For example, a suicide bomber may have courage, the courage of her convictions. So to be a core value we would have to say courage to... (something for example 'courage to risk making mistakes').</small>",
1,
0,
0,
"");

resp=new Array("'Hardworking' is a core value","Hardworking may be a value","No, 'Hardworking' not a core value")
corr=new Array("0","0","1")
quest003 = new Question(
"Hardworking",
0,
"Hardworking",
resp,
corr,
"<small> because (being) hard working is a subjective assessment. Furthermore it requires qualification. Sometimes we even say 'So-and-so is far too hard working'. While we would usually encourage the disposition of being hard working, we would want to qualify its application to those activities we desire and not to those we consider unacceptable.</small>",
1,
0,
0,
"");

resp=new Array("Excellence is a core value","Excellence possibly is a value","No, its not a core value")
corr=new Array("0","0","1")
quest004 = new Question(
"Excellence",
0,
"Excellence",
resp,
corr,
"<small>It sounds like a core value (excellence means 'great worth or quality'). But it applies to tasks or activities or achievements not to people. Also if we ask 'excellence in what ?' then we see that it could be applied to any activity, desirable or undesirable. If excellence has to be qualified then it cannot be an end in itself.</small>",
1,
0,
0,
"");

resp=new Array("Yes, Effectiveness is a core value","It depends","No, Effectiveness is not a value")
corr=new Array("0","0","1")
quest005 = new Question(
"Effectiveness",
0,
"Effectiveness",
resp,
corr,
"<small>Effectiveness is, of course, valued in a management or resources conscious culture. But effectiveness is dependent on the choice of criteria - in the end it is a subjective assessment. It cannot therefore be a core value.</small>",
1,
0,
0,
"");

resp=new Array("Achievement is a core value","Possibly","No, Achievement is not a core value")
corr=new Array("0","0","1")
quest006 = new Question(
"Achievement",
0,
"Achievement",
resp,
corr,
"<small>Achievement has to be qualified. We could mean 'low achievement' or 'high achievement'. In any case we would have to say that many achievements are clearly evil - effecting the removal of millions of Jews from Europe during the last century is still seen as a unique, an incredible but terrible achievement.</small>",
1,
0,
0,
"");

resp=new Array("Yes its a core value","'Realisation of potential' may be a value","No, 'Realisation of potential' is not a core value")
corr=new Array("0","0","1")
quest007 = new Question(
"Realisation of potential",
0,
"Realisation of potential",
resp,
corr,
"<small>Clearly we all have potential, that can be realised, both for good or ill. So realisation of potential is a matter of fact not really a value. We could speak of 'realising our potential for good' or 'doing our best' as ends in themselves.</small>",
1,
0,
0,
"");

resp=new Array("Yes, 'Thoroughness' is a core value","Possibly","No, 'Thoroughness' is not a core value")
corr=new Array("0","0","1")
quest008 = new Question(
"Thoroughness",
0,
"Thoroughness",
resp,
corr,
"<small>...it's a measure of a task undertaken. We often measure tasks completed according to   a degree of thoroughness and we may even describe a person as 'thorough' but it is easy to imagine that an evil person can also be thorough.</small>",
1,
0,
0,
"");

resp=new Array("Yes, Fairness is a core value","Possibly","No its very important but not a core value")
corr=new Array("1","0","0")
quest009 = new Question(
"Fairness",
0,
"Fairness",
resp,
corr,
"<small>If we understand fairness as justice, (Justice means justness, equity or fairness) then clearly fairness is one of our most important values. Whether some particular outcome or situation represents justice or not depends on one's viewpoint. Nevertheless, the commonly held desire for justice as a goal indicates that it is a value which is shared by people everywhere. We think its a core value.</small>",
1,
0,
0,
"");

resp=new Array("Stewardship is a core value","Possibly","No, its not a core value")
corr=new Array("1","0","0")
quest010 = new Question(
"Stewardship",
0,
"Stewardship",
resp,
corr,
"<small>... stewardship is a modern equivalent or near equivalent of prudence, one of the traditional virtues. It is commonly applied to the environment but can apply also to our own gifts and abilities.</small>",
1,
0,
0,
"");

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

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=\"60\" height=\"22\"></td>\n")
document.write("                <td background=\"s_table_up_bord.gif\" width=\"100%\"><img src=\"s_table_up_bord.gif\" width=\"1\" height=\"22\"></td>\n")
document.write("                <td><img src=\"s_table_up_dx.gif\" width=\"26\" height=\"22\"></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("                  <table width=\"42\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" height=\"37\" background=\"s_table_num.gif\">\n")
document.write("                    <tr> \n")
document.write("                      <td height=\"37\" width=\"32\"> \n")
document.write("                        <div align=\"center\"><font face=\"Arial, Helvetica, sans-serif\"><b><font size=\"5\" color=\"#FFFFFF\">")
document.write(numord)
document.write(" \n")
document.write("                          </font></b></font></div>\n")
document.write("                      </td>\n")
document.write("                    </tr>\n")
document.write("                  </table>\n")
document.write("                </td>\n")
document.write("                <td width=\"100%\" bgcolor=\"F0F9FD\" 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(" <input type="+gadget+" name=\""+myname);
if (type<3) document.write("\" value=\""+i+"\">\n")
else document.write("\" 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=\"26\" height=\"1\"></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=\"42\" height=\"23\"></td>\n")
document.write("                <td background=\"s_table_dn_bord.gif\" width=\"100%\"><img src=\"s_table_dn_bord.gif\" width=\"1\" height=\"23\"></td>\n")
document.write("                <td><img src=\"s_table_dn_dx.gif\" width=\"26\" height=\"23\"></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;
questions.sort(myrandom);
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) winr.document.write("<H3>Our responses !</H3>");
++errori;
winr.document.write("<p><b>"+uno+"</b><br>"+due+"<br>"+tre+"</p>");
}
function correct(wapf)
{
var i, ii, t, re, tmp, selection, multi, type, isnull, iswrong, iscorrect, evaluation=0, total=0, udat;
errori=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>";}}
winr=window.open('','wapres', 'titlebar=1,location=0,directories=0,menubar=1,toolbar=0,scrollbars=1,resizable=1,status=1')
winr.document.write("<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>")
now= new Date()
winr.document.write("<small><p>"+fill((now.getMonth()+1),2)+"/"+fill(now.getDate(),2)+"/"+now.getYear()+"&nbsp;&nbsp;"+fill(now.getHours(),2)+":"+fill(now.getMinutes(),2)+"</p>")
if (udat.length>0) {
winr.document.write("<b>Information</b><br>\n");
for (i=0; i<udat.length; i++) winr.document.write(udat[i]);}

for (i=0; i<questions.length; i++) {
type=questions[i].type;
if (type==1) multi=1;
else multi=0;
isnull=true;
iscorrect=false;iswrong=false;
selection=0;
evaluation=0;
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 (isnull) isnull=false;
if (questions[i].corrects[selection]=="1") iscorrect=(iswrong==false)?true:false;
else {
iswrong=true;
if (multi) errore(questions[i].qname,"The checkbox  <i>"+questions[i].response[selection]+"</i>  shouldn't have been selected.",questions[i].explan)
}} else {
if (questions[i].corrects[selection]=="1") {
iswrong=true;
if (multi) 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;
}}}
errore(questions[i].qname,"We think that <i>"+okresp+":</i>",questions[i].explan);
}
if (isnull) evaluation+=questions[i].ifnull;
else if (iswrong) evaluation+=questions[i].ifwrong;
else if (iscorrect) evaluation+=questions[i].ifcorrect;
total+=evaluation;}
if (errori) {var voc=(errori==1)?"":"s";winr.document.write("<br><b>We agree with you on "+total+ " and we disagree with you on "+errori+" word/phrase"+voc+".</b>");}
else winr.document.write("<h3>We agree with you !</h3>")


winr.document.write("</small><hr noshade><center><form>")
printest=(((navigator.appName=='Netscape') && (navigator.appVersion.charAt(0)>='4')) || (navigator.appVersion.lastIndexOf('MSIE 5') !=-1))? '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.")'
winr.document.write("<input type='button' value='Print...' onClick='"+printest+"'>&nbsp;&nbsp;&nbsp;&nbsp;")
winr.document.write("<input type='button' value='Close' onClick='window.close()'></form></center>")
winr.document.write(aknw)
winr.document.close()
if (navigator.appVersion.lastIndexOf('MSIE 3') == -1) nomsie3=true
else nomsie3=false
if (nomsie3) winr.focus()
}
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);
}