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("1:Potassium content of the dialysate","2:Plasma bicarbonate","3:Blood glucose","4:Previous plasma potassium values","5:Control whether blood for potassium was sampled before, during or after the dialysis session","6:Albuminemia","7:All of above","8:1+2+4+5","9:3+4+5","10:2+6","11:None of above")
corr=new Array("0","0","0","0","0","0","0","1","0","0")
quest001 = new Question(
"Question 1",
0,
"<font face=\"Verdana\" size=2>In view of this hypokalaemia, which data would offer the most relevant additional information?</font>",
resp,
corr,
"<small><font face=\"Verdana\" size=2>The correct answer is 8: potassium content of the dialysate because too low dialysate potassium increases the risk for hypokalaemia (2 mmol/L here), plasma bicarbonate since alkalosis might induce hypokalaemia (bicarbonate was normal here), previous potassium values while this will indicate whether the hypokalaemia appeared suddenly or gradually, control of timing of sample because samples collected during or after dialysis more easily can show hypokalaemia (collected before dialysis here).</font></small>",
1,
0,
0,
"");

resp=new Array("1:Frequently pre-dialysis as well as post-dialysis","2:Virtually never pre-dialysis as well as post-dialysis","3:Frequently pre-dialysis but rarely post-dialysis","4:Virtually never pre-dialysis but from time to time post-dialysis","5:Virtually never pre-dialysis but almost always post-dialysis")
corr=new Array("0","0","0","1","0")
quest002 = new Question(
"Question 2",
0,
"<font face=\"Verdana\" size=2>Hypokalaemia in haemodialysis patients occurs:</font>",
resp,
corr,
"<small><font face=\"Verdana\" size=2>The correct answer is 4. Hyperkalaemia is much more prominent pre-dialysis than post-dialysis due to kidney failure-related retention, which is partly corrected by the dialysis procedure. Hypokalaemia may occur post-dialysis in function of the potassium content of dialysate. Care should be taken to avoid too high potassium pre-dialysis but also to avoid a too low value post-dialysis.</font></small>",
1,
0,
0,
"");

questions = new Array (
quest001,quest002)

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.write("\n")
document.write("<div id=\"q")
document.write(numord)
document.write("\" style=\"display:none\">\n")
document.write("  <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n")
document.write("    <tr>\n")
document.write("      <td align=\"left\" valign=\"top\">&nbsp;</td>\n")
document.write("      <td width=\"50%\">&nbsp;</td>\n")
document.write("      <td>&nbsp;</td>\n")
document.write("    </tr>\n")
document.write("    <tr> \n")
document.write("      <td align=\"left\" valign=\"top\">&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><img src=\"m_table_up_sx.gif\" width=\"60\" height=\"22\"></td>\n")
document.write("                  <td background=\"m_table_up_bord.gif\" width=\"100%\"><img src=\"m_table_up_bord.gif\" width=\"1\" height=\"22\"></td>\n")
document.write("                  <td><img src=\"m_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=\"m_table_sx_bord.gif\" align=\"right\" valign=\"top\"> \n")
document.write("                    <table width=\"42\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" height=\"37\" background=\"m_table_num.gif\">\n")
document.write("                      <tr> \n")
document.write("                        <td height=\"37\" width=\"32\" align=\"center\"> \n")
document.write("                          <font face=\"Arial, Helvetica, sans-serif\"><b><font size=\"5\" color=\"#FFFFFF\">")
document.write(numord)
document.write(" \n")
document.write("                            </font></b></font>\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\">")
document.writeln(questions[quest].qstring)
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\">&nbsp;</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(" <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=\"m_table_dx_bord.gif\"><img src=\"m_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=\"m_table_dn_sx.gif\" width=\"42\" height=\"23\"></td>\n")
document.write("                  <td background=\"m_table_dn_bord.gif\" width=\"100%\"><img src=\"m_table_dn_bord.gif\" width=\"1\" height=\"23\"></td>\n")
document.write("                  <td><img src=\"m_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("      </td>\n")
document.write("      <td>&nbsp;</td>\n")
document.write("    </tr>\n")
document.write("  </table>\n")
document.write("</div>\n")
document.write("<div id=\"q")
document.write(numord)
document.write("a\" style=\"display:none\">\n")
document.write("  <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n")
document.write("    <tr>\n")
document.write("      <td align=\"right\" width=\"50%\">\n")
document.write("        ")
if (quest>0) {
document.write("\n")
document.write("        <a href=\"javascript:void(0)\" ")
document.write(" onClick=\"myshow("+(quest)+")\"")
document.write(" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage('Image1")
document.write(numord)
document.write("','','m_back_button2.jpg',1)\"><img src=\"m_back_button.jpg\" width=\"73\" height=\"40\" border=\"0\" name=\"Image1")
document.write(numord)
document.write("\" alt=\"Indietro\"></a>\n")
document.write("        ")
}
document.write("\n")
document.write("      </td>\n")
document.write("      <td align=\"left\" width=\"50%\">\n")
document.write("        ")
if (quest<questions.length-1) {
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.jpg',1)\"><img src=\"m_next_button.jpg\" width=\"74\" height=\"40\" border=\"0\" name=\"Image2")
document.write(numord)
document.write("\" alt=\"Avanti\"></a>\n")
document.write("        ")
}
document.write("\n")
document.write("        ")
if (quest==questions.length-1) {
document.write("\n")
document.write("        <a href=\"javascript:void(0)\" ")
document.write(" onClick='correct(document.WapForm)'")
document.write(" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage('Image3','','m_eval_button2.gif',1)\"><img src=\"m_eval_button.gif\" width=\"75\" height=\"39\" border=\"0\" name=\"Image3\" alt=\"Valuta\"></a>\n")
document.write("        ")
}
document.write("      \n")
document.write("      </td>\n")
document.write("    </tr>\n")
document.write("  </table>\n")
document.write("</div>\n")
}
function doTest() {
var count, i;
if (navigator.appName!="Microsoft Internet Explorer")
{
alert('This quiz can be used\nwith Microsoft Internet Explorer only');
return;
}

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>You have made the following errors</H3>");
++errori;
winr.document.write("<p><b>"+uno+"</b><br>"+due+"<br>"+tre+"</p>");
}
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, 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,"The right answer was <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) winr.document.write("<br><b>You have made "+errori+" error.</b>");
else winr.document.write("<h3>Congratulations, you haven't made any errors</h3>")

winr.document.write("</small><hr noshade><center><form>")
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.")'
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>"
var recent, recent2, recdone=false;
function myshow(count)
{
var id, id2;
id=eval("q"+count);
id2=eval("q"+count+"a");
if (recdone==false) {
recent=wq_user;
recent2="";
recdone=true;}
recent.style.display="none";
if (recent2!="") recent2.style.display="none";
id.style.display="";
id2.style.display="";
if (questions[count-1].type>2) document.WapForm.elements[questions[count-1].qname].focus();
recent=id;recent2=id2;}

