<%@ Language=VBScript %> <% dim strnumMUTABdef set Conn = Server.CreateObject("ADODB.Connection") 'set ConnADD = Server.CreateObject("ADODB.Connection") 'call Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\Programas\Grammatica\datu bazes\adbCarpeDiem.mdb;user id=admin;password=;") 'call Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source '=H:\Whittaker database\b\adbCarpeDiem.mdb;user id=admin;password=dainis;") 'call Conn.Open("Provider=MSDASQL.1;Password=dainis;Persist Security Info=True;User ID=admin;Data Source=MS Access Database Latin;Mode=Read") ' call Conn.Open("dsn=Latin_Whitaker;") call Conn.Open("dsn=Whitaker LatDataBase;") 'call ConnADD.Open("dsn=Latin_Whitaker;") randomize strWord = "" strnumword="" strnumber="" MaxNuQui=10 'MaxNuQui=Request.QueryString("fld_MaxNuQui") strNumResult0=Request.QueryString("fld_snr0") strNumResult1=Request.QueryString("fld_snr1") strNumResult2=Request.QueryString("fld_snr2") strNumResult3=Request.QueryString("fld_snr3") strnumber=Request.QueryString("fld_strnumber") NuQuiz=cint(Request.QueryString("fld_NuQuiz")) score=cint(Request.QueryString("fld_SCORE")) 'I_rnd = 0 I_rnd=cint(Request.QueryString("fld_I_rnd")) YES=cbool(Request.QueryString("fld_yes")) quest=cbool(Request.QueryString("fld_quest")) quiz=cbool(Request.QueryString("fld_quiz")) l1=Request.QueryString("fld_l1") l2=Request.QueryString("fld_l2") l3=Request.QueryString("fld_l3") sstatus=1 if Request.QueryString("in_start")<>"" then sstatus=cint(Request.QueryString("in_start")) if Request.QueryString("isdata")<>"" then sstatus=cint(Request.QueryString("isdata")) if Request.QueryString("reset_quiz")<>"" then sstatus=cint(Request.QueryString("reset_quiz")) if Request.QueryString("exit_quiz")<>"" then sstatus=cint(Request.QueryString("exit_quiz")) 'if Request.QueryString("in_next")<>"" then sstatus=cint(Request.QueryString("in_next")) if Request.QueryString("lookID1")<>"" then sstatus=cint(Request.QueryString("lookID1")) if Request.QueryString("lookID2")<>"" then sstatus=cint(Request.QueryString("lookID2")) if Request.QueryString("lookID3")<>"" then sstatus=cint(Request.QueryString("lookID3")) if Request.QueryString("wordlookup")<>"" then sstatus=cint(Request.QueryString("wordlookup")) if Request.QueryString("englishlookup")<>"" then sstatus=cint(Request.QueryString("englishlookup")) if Request.QueryString("random")<>"" then sstatus=cint(Request.QueryString("random")) if Request.QueryString("radiobutton")<>"" then b_status=Request.QueryString("radiobutton") if b_status="1st" then bstatus=14 if b_status="2nd" then bstatus=15 if b_status="3rd" then bstatus=16 'lstatus=sstatus 'if Request.QueryString("status")<>"" then lstatus=cint(Request.QueryString("status")) 'lStatus = 0 'lStatus=Request.QueryString("status") lstatus=sstatus 'if sstatus=1 then 'lstatus=cint(isdata) 'lstatus=cint(Request.QueryString("status")) if Request.QueryString("fld_iibadr")<>"" then iibadr=Request.QueryString("fld_iibadr") if lstatus<>17 then iibadr=0 select case lStatus case 0 'sākums:ieiet lapā 'quiz=true 'quest=true 'lstatus=1 'quest=false case 1 'sākt quiz: jā:resursu apstāsts score=100 quiz=true lstatus=4 NuQuiz=0 quest=false case 2 'sākt quiz: nē: case 3: case 4 YES=false SCORE=100 NuQuiz=0 quest=false quiz=true strNumResult1="" strNumResult2="" strNumResult3="" strNumResult0="" lstatus=13 case 5 lstatus=3 case 7 'parsē vārdu strWord = Request.QueryString("word") 'svfrque =Request.QueryString("frequency") if b_status = "on" then svfrque="A" else svfrque="" '"CHECKED" frque=svfrque strResult = Parseword(strWord, svfrque) if quiz and quest then score=score-7 case 8 ' random iii=cint(100*rnd+1) strnumber=cstr(iii) strNumResult = rndMultTabNumber(iii)+"
"+strnumMUTABdef score=score-1 case 9 if (i_rnd=1) and (b_status="1st") then 'if (Request.QueryString("fld_I_rnd")="1")and(Request.QueryString("radiobutton")="1st") then strNumResult0=Request.QueryString("fld_l1") strNumResult4=strNumResult1 YES=true quest=false elseif (i_rnd=2) and (b_status="2nd") then 'elseif (Request.QueryString("fld_I_rnd")="2")and(Request.QueryString("radiobutton")="2nd") then strNumResult0=Request.QueryString("fld_l2") strNumResult4=strNumResult2 YES=true quest=false elseif (i_rnd=3) and (b_status="3rd") then 'elseif (Request.QueryString("fld_I_rnd")="3")and(Request.QueryString("radiobutton")="3rd") then strNumResult0=Request.QueryString("fld_l3") strNumResult4=strNumResult3 YES=true quest=false elseif (bstatus>0) and quest and not YES then score=score-5 end if case 10 'jauns query NuQuiz=NuQuiz+1 YES=false if NuQuiz > MaxNuQui then 'quiz soļi pabeigti quiz=false NuQuiz=0 strNumResult1="" strNumResult2="" strNumResult3="" strNumResult0="" else 'vēl soļi pieliekami strNumber=cstr(cint(100*rnd+1)) do l1= rndMultTabNumber(strNumber) loop until l1<>"Error" strNumResult1=strnumMUTABdef strNumber=cstr(cint(100*rnd+1)) do l2 = rndMultTabNumber(strNumber) loop until (l2<>"Error")and (l1<>l2) strNumResult2=strnumMUTABdef strNumber=cstr(cint(100*rnd+1)) do l3 = rndMultTabNumber(strNumber) loop until (l3<>"Error")and (l2<>l3)and (l1<>l3) strNumResult3=strnumMUTABdef I_rnd=int(3*rnd+1) quest=true if i_rnd=1 then strNumResult0 = L1 if i_rnd=2 then strNumResult0 = L2 if i_rnd=3 then strNumResult0 = L3 end if case 11 quiz=false quest=false strNumResult0="" case 17 'parsē angļu vārdu strenglishWord = Request.QueryString("englishword") if iibadr<>nil then iisadr=iibadr else iisadr=0 strenglishResult = ParseEnglishword(cstr(strEnglishWord),iisadr,iibadr) 'lstatus=18 if quiz and quest then score=score-3 case 20 'start quiz score=100 NuQuiz=0 YES=false strNumResult1="" strNumResult2="" strNumResult3="" strNumResult0="" is_answer=false quiz=true quest=false case 21 strNumResult1_look = L1 score=score-4 case 22 strNumResult2_look = L2 score=score-4 case 23 strNumResult3_look = L3 score=score-4 case 24 'reset 'elseif len(Request.QueryString("reset_quiz"))>0 then 'reset quiz=false NuQuiz=0 case 29 'exit 'if len(Request.QueryString("exit_quiz"))>0 then 'exit quiz=false 'action to exit quiz NuQuiz=0 case else quiz=true end select conn.Close strCommonHiddenFields = "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" %>
<%if not quiz then%> <%end if%>
Push to start
<%=strCommonHiddenFields%>
Your Score <%=SCORE%> points
<%select case lstatus case 21%>For looking 1st expression:
You loose 4 points <% case 22%>For looking 2nd expression:
You loose 4 points <% case 23%>For looking 3rd expression:
You loose 4 points <%case 4 %>You may get maximal 10 marks
thus your score now <%=SCORE%> points
Push start
! <%case 7 %>You may look up some word,
but you loose 3 points <%case 8 %>In multiplication table 100 items:
points
You loose 1 point <%case 12 %>All done:
Look resulting mark
Next step? <%case 11 %>Your mark <%=SCORE / 10%>
Do you want start next quiz?
Do Push start! <%case 24 %>Did reset:
Start new quiz?
Push start! <%case 13 %>You may get maximal 10 marks
thus your score now<%=SCORE%> points
Push start! <%case 10 %> Starting <%=NuQuiz%> <%if NuQuiz=1 then%> -st<%elseif NuQuiz=2 then%> -nd<%elseif NuQuiz=3 then%> -rd<%else%> -th<%end if%> guess!
Make guess! <%case 9 %> <%if YES then %>You guessed right
Proceed quiz! <%elseif b_status<>"" then%>You did not right choice
Do next guess! <%else%>You did not your choice
Do guess! <%end if%> <%case else%> <%end select%>
<%if len(strNumResult0) > 0 then%>
Latin:
 <%= strNumResult0%>
<% else Response.Write " " end if%>
<%select case lstatus%> <%case 1 %> <%case 4 %> <%case 5 %> <%case 11,24,29 %> <%case 27 %> <%case else ' 7,8,9,10,14,21,22,23 %> <%if score<=0 then%> <%elseif quest then%> <%elseif NuQuiz=MaxNuQui then%> <%elseif NuQuiz<>0 then%> <%end if%> <%'case else%> <%end select%> <%=strCommonHiddenFields%>
Let Start:
 <%'= strNumResult4%>
 
Let Start:
 <%'= strNumResult4%>
 
Let Start:
 <%'= strNumResult4%>
 
Your score is gone out:
 
Choices:
<%=strNumResult1%>
<%=strNumResult2%>
<%=strNumResult3%>
 
Expression in Latin :
 <%= strNumResult4%>
 
Expression in Latin:
 <%= strNumResult4%>
 
<%if quest then%> Hint
Expressions in Latin of:

<%if len(strNumResult1_look) > 0 then Response.Write "First value looked:
" & strNumResult1_look & "" else%>
<%=strCommonHiddenFields%>
<%end if%>
<%if len(strNumResult2_look) > 0 then Response.Write "Second value looked:
" & strNumResult2_look & "" else%>
<%=strCommonHiddenFields%>
<%end if%>
<%if len(strNumResult3_look) > 0 then Response.Write "Third value looked:
" & strNumResult3_look & "" else%>
<%=strCommonHiddenFields%>
<%end if%>
<%else Response.Write " " end if %>
      

<%if quiz and quest then%> <%end if%> <%if quiz and quest then%> <%end if%>
Dictionary tools
Look up Latin Word: Look up English Word /act. substring in meanings/:
Only 5 responses are returned:
To get more push Go repeatedly
To start new search reset counter pushing any other button
Query Randomly and learn :
You loose one point
<%=strCommonHiddenFields%> <%=strResult%>
BASE FORMS <%=frque%>
<%=strenglishResult%>
<%=strCommonHiddenFields%>
<%=strCommonHiddenFields%> <%=strNumResult%>
Latin
Multiplication
Quiz


Updated 24.11.2003

Credits      Home      Latin Dictionary Tools      Latin Words Quiz

© Dainis Zeps, University of Latvia, Institute of Mathematics and Computer Science