<% dbFolder = "" Dim dicLang Set dicLang = Server.CreateObject("Scripting.Dictionary") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath("\") & "\SubscribersChineseTest.mdb" set rs = Server.CreateObject("ADODB.recordset") lang=Request.QueryString("lang") rs.Open "SELECT * FROM [Translations] WHERE [Language] ='" & lang & "'", conn x = 0 'Initialize language dictionary do until rs.EOF txtId = rs.Fields("Text_Id") contents = rs.Fields("TextContents") dicLang.Add txtId, contents rs.MoveNext x = x + 1 loop rs.close conn.close '--------------------------- dbFolder = "" set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath("\") & "\SubscribersChineseTest.mdb" exist = 0 Session("authenticated") = "false" set rs = Server.CreateObject("ADODB.recordset") lang=Request.QueryString("lang") email = Request.Form("LoginEmail") pwd = Request.Form("LoginPassword") rs.Open "SELECT [EmailAddress], [Verified] FROM [SubscriberChinese] where [EmailAddress] ='" & _ email & "' AND [Password] ='" & pwd & "' AND [LanguagePage] = '" & lang & "'" , conn passwordExist = "" do until rs.EOF valid = rs.Fields("Verified") exist = exist + 1 rs.MoveNext loop rs.close conn.close adminemail = "patmotjeriza" adminpass = "patmotjeriza" if (email= adminemail AND pwd = adminpass) then Session("authenticated") = true Response.Redirect("lessons.asp") end if if exist > 0 then if valid = true then Session("authenticated") = true 'Log customer login recaffected = 0 'Session("oktoProceedChinese") = "true" currDate = month(Date()) & "/" & day(Date()) & "/" & Year(Date()) & " " & time() queryAdd = "INSERT INTO [UserLogs] ([Password], [TimeAndDate], [ModuleAccessed]) VALUES ('" & _ email & "',#" & currDate & "#,'" & lang & "')" set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath("\") & "\SubscribersChineseTest.mdb" conn.Execute queryAdd, recaffected Response.Redirect("/lesson/" & lang & "/lessons.asp") else Response.Write("") end if else Response.Write("") Session("oktoProceedChinese") = "false" end if %>