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("<font face=\"verdana\" size=2>New South Wales.</font>","<font face=\"verdana\" size=2>Queensland.</font>","<font face=\"verdana\" size=2>Victoria.</font>","<font face=\"verdana\" size=2>Eastern Territory.</font>")
corr=new Array("1","0","0","0")
comm=""
valu=""
quest001 = new Question(
"Question 1",
0,
"<font face=\"verdana\" size=2>Sydney er ikke Australias hovedstad som mange tror, men den er i hvertfall hovedstad i en australsk delstat. Hvilken deltstat er dette?</font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Sant","Usant")
corr=new Array("0","1")
comm=""
valu=""
quest002 = new Question(
"Question 2",
0,
"<font face=\"verdana\" size=2>Sydneys mest karakteristiske landemerke er uten tvil Operahuset, som ble innviet i 1937.</font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("<font face=\"verdana\" size=2>1788.</font>","<font face=\"verdana\" size=2>1770.</font>","<font face=\"verdana\" size=2>1752.</font>","<font face=\"verdana\" size=2>1799.</font>")
corr=new Array("0","1","0","0")
comm=""
valu=""
quest003 = new Question(
"Question 3",
0,
"<font face=\"verdana\" size=2>Sydneys moderne historie begynte da kaptein James Cook seilte inn i Botany Bay med skipet Endeavour. Når skjedde dette?</font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("<font face=\"verdana\" size=2>Ca 3,1 millioner mennesker</font>","<font face=\"verdana\" size=2>Ca 4,2 millioner mennesker</font>","<font face=\"verdana\" size=2>Ca 5,1 millioner mennesker</font>","<font face=\"verdana\" size=2>Ca 6 millioner mennesker</font>")
corr=new Array("0","1","0","0")
comm=""
valu=""
quest004 = new Question(
"Question 4",
0,
"<font face=\"verdana\" size=2>Sydney er Australias eldste og største by, men hvor mange mennesker bor det egentlig i Sydney sånn omtrent?</font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("<font face=\"verdana\" size=2>Australske Pund.</font>","<font face=\"verdana\" size=2>Australske dollar.</font>","<font face=\"verdana\" size=2>Guinea.</font>","<font face=\"verdana\" size=2>Rand.</font>")
corr=new Array("0","1","0","0")
comm=""
valu=""
quest005 = new Question(
"Question 5",
0,
"<font face=\"verdana\" size=2>Hva er den offisielle myntenheten i Australia?</font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("<font face=\"verdana\" size=2>Sydney Kingsford Smith International Airport.</font>","<font face=\"verdana\" size=2>Sydney James Cook International Airport.</font>","<font face=\"verdana\" size=2>Sydney Malcolm Young International Airport.</font>","<font face=\"verdana\" size=2>Sydney Arthur Phillip International Airport.</font>")
corr=new Array("1","0","0","0")
comm=""
valu=""
quest006 = new Question(
"Question 6",
0,
"<font face=\"verdana\" size=2>Hva er det fulle, offisielle navnet på Sydneys internasjonale flyplass?</font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("<font face=\"verdana\" size=2>Manly Beach.</font>","<font face=\"verdana\" size=2>Bondi Beach.</font>","<font face=\"verdana\" size=2>Long Beach.</font>","<font face=\"verdana\" size=2>Coogee Beach.</font>")
corr=new Array("0","1","0","0")
comm=""
valu=""
quest007 = new Question(
"Question 7",
0,
"<font face=\"verdana\" size=2>Australia er kjent for strender og ikke minst surfing. Hva heter Sydneys mest berømte strand?</font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("<font face=\"verdana\" size=2>Nei, det er visumfritt inntil 90 dager for nordmenn.</font>","<font face=\"verdana\" size=2>Ja, men dette kan de fleste reisebyråer utstede for deg på timen.</font>","<font face=\"verdana\" size=2>Ja, men dette får du ved ankomst på flyplassen for cirka 300 kroner.</font>","<font face=\"verdana\" size=2>Ja, og det må ordnes på forhånd hos det australske konsulatet i Norge.</font>")
corr=new Array("0","1","0","0")
comm=""
valu=""
quest008 = new Question(
"Question 8",
0,
"<font face=\"verdana\" size=2>Trenger norske statsborgere visum for å besøke Australia?</font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("<font face=\"verdana\" size=2>Sydney ligger ni timer bak Norge.</font>","<font face=\"verdana\" size=2>Sydney ligger ni timer foran Norge.</font>","<font face=\"verdana\" size=2>Sydney ligger ti timer foran Norge.</font>","<font face=\"verdana\" size=2>Sydney ligger åtte timer bak Norge.</font>")
corr=new Array("0","1","0","0")
comm=""
valu=""
quest009 = new Question(
"Question 9",
0,
"<font face=\"verdana\" size=2>Hvordan ligger Sydney i forhold til Norge tidsmessig, i vinterhalvåret?</font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("<font face=\"verdana\" size=2>Den heter The Rocks.</font>","<font face=\"verdana\" size=2>Den heter Whitecliffs.</font>","<font face=\"verdana\" size=2>Den heter Darling Harbour.</font>","<font face=\"verdana\" size=2>Den heter Woolloomooloo.</font>")
corr=new Array("1","0","0","0")
comm=""
valu=""
quest010 = new Question(
"Question 10",
0,
"<font face=\"verdana\" size=2>Hva heter den historiske og svært koselige bydelen i Sydney, som er en av byens eldste?</font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Sant","Usant")
corr=new Array("1","0")
comm=""
valu=""
quest011 = new Question(
"Question 11",
0,
"<font face=\"verdana\" size=2>Hvis en australsk restaurant ikke har alkoholservering, er det oftest helt greit at du har med deg din egen vin eller øl.</font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("<font face=\"verdana\" size=2>Rugby.</font>","<font face=\"verdana\" size=2>Fotball.</font>","<font face=\"verdana\" size=2>Australsk Fotball.</font>","<font face=\"verdana\" size=2>Cricket.</font>")
corr=new Array("0","0","1","0")
comm=""
valu=""
quest012 = new Question(
"Question 12",
0,
"<font face=\"verdana\" size=2>Hva regnes som Australias suverent mest populære sport?</font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("<font face=\"verdana\" size=2>Den er 134 meter høy.</font>","<font face=\"verdana\" size=2>Den er 75 meter høy.</font>","<font face=\"verdana\" size=2>Den er 91 meter høy.</font>","<font face=\"verdana\" size=2>Den er 112 meter høy.</font>")
corr=new Array("1","0","0","0")
comm=""
valu=""
quest013 = new Question(
"Question 13",
0,
"<font face=\"verdana\" size=2>Sydney har to verdensberømte landemerker. Ett av disse er broen Harbour Bridge. Broen forener nordlige og sydlige Sydney. Hvor høyt over vannet strekker broens buer seg?</font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("<font face=\"verdana\" size=2>Hunter Valley.</font>","<font face=\"verdana\" size=2>Blue Mountains.</font>","<font face=\"verdana\" size=2>Ayers Rock.</font>","<font face=\"verdana\" size=2>Helms Deep.</font>")
corr=new Array("0","1","0","0")
comm=""
valu=""
quest014 = new Question(
"Question 14",
0,
"<font face=\"verdana\" size=2>Hva heter de flotte turområdene like vest for Sydney, som både er nasjonalpark og er med på UNESCOs Verdensarvliste?</font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("<font face=\"verdana\" size=2>Kirribilli Zoo.</font>","<font face=\"verdana\" size=2>Luna Park.</font>","<font face=\"verdana\" size=2>Taronga Zoo.</font>","<font face=\"verdana\" size=2>Katoomba Park.</font>")
corr=new Array("0","0","1","0")
comm=""
valu=""
quest015 = new Question(
"Question 15",
0,
"<font face=\"verdana\" size=2>Hva heter Sydneys store og flotte zoo, hvor du kan se dyr som koalaer, kenguruer, dingoer, tasmanske djevler, platypuser og emuer?</font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

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

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;}

document.writeln ("<a name=\""+questions[quest].qname+"\"></a>")
document.write("\n")
document.write("       ")
if (questions[quest].img!="") {
document.write("\n")
document.write("          <p><img border=\"0\" src=\"")
document.write(questions[quest].img)
document.write("\"></p>\n")
document.write("       ")
}
document.write("\n")
document.write("       <p><big><font face=\"Verdana,Arial\">")
document.write(numord)
document.write(". ")
document.writeln(questions[quest].qstring)
document.write("</font></big></p>\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("          ")
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(" <small><font face=\"Verdana,Arial\">")
if (type<3) document.write(questions[quest].response[i]);
document.write("</font></small><br>\n")
document.write("       ")
}
document.write("\n")
document.write("    ")
}
function doTest() {
var count, i;
questions.sort(myrandom);
for (i=0; i<questions.length; i++) {
questions[i].qname="Spørsmål "+(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>Du har gjort følgende feil</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>Gratulerer - alle spørsmål er riktig besvart</h3>";
cachewrite("<html><head><title>Resultat for reisequiz om Sydney</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;Resultat på Sydney reisequiz</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("<big>Sydney Reisequiz hos Reiseplaneten.no</big><br><br>\n",0);
if (udat.length>0) {
cachewrite("<b>Informasjon</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>  skulle ikke vært valgt.",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>  skulle blitt valgt.",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,"Riktig svar: <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>Du har "+errori+" "+(errori==1?"feil":"feil")+".</b>",2);
cachewrite("<br><b>Total poengsum: "+total+".</b><br>",2);

cachewrite("<br><b>Evaluering av reisequiz om Sydney:</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 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(0,5,11,15);
maxval=new Array(5,10,14,15);
valstr=new Array("<font face=\"verdana\" size=2>Dette var ikke s&aring; bra. Du m&aring; nok lese v&aring;r reiseguide om Sydney grundig og gj&oslash;re testen p&aring; nytt. Les mer her </font><a href=http://www.reiseplaneten.no><font face=\"verdana\" size=2><u>Reiseplaneten</u></font></a><font face=\"verdana\" size=2>&nbsp;</font>","<font face=\"verdana\" size=2>Ikke s&aring; verst, men leser du Reiseplanetens guide om Sydney blir du enda flinkere.</font>","<font face=\"verdana\" size=2>Meget bra. Du m&aring; ha lest v&aring;re gode reiseguider? Man f&aring;r mye mer ut av en reise hvis man har brukt tid p&aring; &aring; sette seg litt inn i destinasjonen man bes&oslash;ker</font>","<font face=\"verdana\" size=2>Helt fantastisk. Send oss dine reisetips!&nbsp; Eller har du jukset?</font>","non disponibile.");
top=minval.length;
for (i=0;i<top;i++) if (total>=minval[i] && total<=maxval[i]) break;
return(valstr[i]);}