%@ 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+"
<%if lstatus<>24 then%>
|
|