<%@ Language=VBScript %> <% dim strlogdef dim strNumber dim strNumResult 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 n_option=4 strNumber=1111 'Words_in_dictionary=30351 'MaxNuQui=Request.QueryString("fld_MaxNuQui") if Request.QueryString("fld_n_option")<>"" then n_option=Request.QueryString("fld_n_option") strNumResult=Request.QueryString("fld_snr") strNumResult0=Request.QueryString("fld_snr0") strNumResult1=Request.QueryString("fld_snr1") strNumResult2=Request.QueryString("fld_snr2") strNumResult3=Request.QueryString("fld_snr3") if Request.QueryString("fld_strnumber")<>"" then 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("options")<>"" then sstatus=cint(Request.QueryString("options")) if Request.QueryString("goto_mult")<>"" then sstatus=cint(Request.QueryString("goto_mult")) '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 Request.QueryString("rbutton")<>"" then b_status=Request.QueryString("rbutton") if b_status="1st" then bstatus=14 if b_status="2nd" then bstatus=15 if b_status="3rd" then bstatus=16 if b_status="mtb" then bstatus=17 if b_status="eec" then bstatus=18 if b_status="eec1" then bstatus=19 if b_status="ecl" then bstatus=20 if b_status="wkl" then bstatus=21 if b_status="fwt" then bstatus=22 '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 'opcijas quiz=true score=100 lstatus=4 select case bstatus case 17 'action="multtable.asp" case 18 n_option=1 'ecl case 19 'eccl1 n_option=2 case 20 'cl n_option=3 case 21 'cl wlk n_option=4 case 22 'full wtk n_option=5 end select 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=10 case 5 lstatus=3 case 7 'parsē vārdu strWord = Request.QueryString("word") if b_status = "on" then svfrque="A" else svfrque="" frque=svfrque strResult = Parseword(strWord, svfrque) if quiz and quest then score=score-7 case 8 ' random select case n_option case 1 strNumResult = rndNumberWord_ec_e case 2 strNumResult = rndNumberWord_ec_e1 case 3 strNumResult = rndNumberWord_cl_m case 4 strNumResult = rndNumberWord_wlk case 5 strNumResult = rndNumberWord end select strNumResult = strlogdef+"
"+strNumResult strNumResult=strNumResult if quiz and quest then 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 strNumResult1 = "Error" while strNumResult1="Error" 'strrndNumber=cstr(cint(Words_in_dictionary*rnd+1)) select case n_option case 1 strNumResult1 = rndNumberWord_ec_e case 2 strNumResult1 = rndNumberWord_ec_e1 case 3 strNumResult1 = rndNumberWord_cl_m case 4 strNumResult1 = rndNumberWord_wlk case 5 strNumResult1 = rndNumberWord end select wend l1=strlogdef strNumResult2 = "Error" while strNumResult2="Error" 'strrndNumber=cstr(cint(Words_in_dictionary*rnd+1)) select case n_option case 1 strNumResult2 = rndNumberWord_ec_e case 2 strNumResult2 = rndNumberWord_ec_e1 case 3 strNumResult2 = rndNumberWord_cl_m case 4 strNumResult2 = rndNumberWord_wlk case 5 strNumResult2 = rndNumberWord end select wend l2=strlogdef strNumResult3 = "Error" while strNumResult3="Error" 'strrndNumber=cstr(cint(Words_in_dictionary*rnd+1)) select case n_option case 1 strNumResult3 = rndNumberWord_ec_e 'strnumber3=strnumber case 2 strNumResult3 = rndNumberWord_ec_e1 'strnumber3=strnumber case 3 strNumResult3 = rndNumberWord_cl_m ' strnumber3=strnumber case 4 strNumResult3 = rndNumberWord_wlk 'strnumber3=strnumber case 5 strNumResult3 = rndNumberWord 'strnumber5=strnumber end select wend l3=strlogdef I_rnd=int(3*rnd+1) quest=true select case i_rnd case 1 strNumResult0 = L1 strnumber=strnumber1 case 2 strNumResult0 = L2 strnumber=strnumber2 case 3 strNumResult0 = L3 strnumber=strnumber3 end select 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 21 strNumResult1_look = L1 score=score-4 case 22 strNumResult2_look = L2 score=score-4 case 23 strNumResult3_look = L3 score=score-4 case 20 'start quiz 'elseif not cbool(Request.QueryString("fld_quiz")) then 'start quiz score=100 NuQuiz=0 YES=false strNumResult1="" strNumResult2="" strNumResult3="" strNumResult0="" is_answer=false quiz=true quest=false 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 & "" strCommonHiddenFields = strCommonHiddenFields & "" strCommonHiddenFields = strCommonHiddenFields & "" %>
<%if not quiz then%> <%if (lstatus<>4) and (lstatus<>11) then%> <%end if%> <%end if%> <%if lstatus<>24 then%> <%end if%>
Push to start
<%=strCommonHiddenFields%>
Quiz Choices: Coose one and start
Very Easy Level /400 words/: Ecclesiastic Text Vocabulary
Easy Level /700 words/: Ecclesiastic Text Vocabulary
Easy Level /800 words/: Classic Text Vocabulary
Easy Level /800 words/: Classic /Wheelock/ Vocabulary
Hard Level /more than 30000 words/: Full Whitaker Dictionary
 
  
<%if n_option=1 then%> Very Easy Ecclesiastic<%elseif n_option=2 then%>Easy Ecclesiastic<%elseif n_option=3 then%>Very Easy Classic<%elseif n_option=4 then%>Very Easy Classic /Wheelock/<%else%>Full Dictionary /Whittaker/ <%end if%>: Your Score <%=SCORE%> points
<%select case lstatus case 21%>For looking 1st word?:
You loose 4 points <% case 22%>For looking 2nd word?:
You loose 4 points <% case 23%>For looking 3rd word?:
You loose 4 points <%case 0%>%nbsp; <%case 4 %>Starting new quiz..:
Push buttons in any order!
Go on! <%case 7 %>You may look up word in dictionary:
You loose 7 points <%case 8 %>You may learn this way
You loose 1 point <%case 12 %>All done:
Look result
Next step? <%case 11 %>Your mark <%=SCORE / 10%>
Do you want start next quiz?
Do Push start! <%case 24 %>  <%case 13 %> You get <%=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)and (lstatus<>24) then%>
Latin:
 <%= strNumResult0%>
<%else Response.Write " " end if%>
<%select case lstatus%> <%case 1 %> <%case 4 %> <%case 5 %> <%case 11,29 %> <%case 27 %> <%case 24 %>  <%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%>
 
Translation:
 <%= strNumResult4%>
 
Translation:
 <%= strNumResult4%>
 
<%if quest and (lstatus<>24) then%> Hint
Latin translation 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 lstatus<>24 then%> <%end if%>
       <%=strCommonHiddenFields%>

<%if lstatus<>24 then%> <%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%>
<%=strCommonHiddenFields%> <%=strenglishResult%>
<%=strCommonHiddenFields%> <%=strNumResult%>
<%end if%>
Latin
Words
Quiz


Updated 26.06.2003

Credits      Home      Latin Dictionary Tools      Latin Multiplication Table

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