%@ 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)+"
|
|