<%@ Language=VBScript %> <%Response.Buffer = True%> <%CheckUser(1)%> <% CourseID = Trim(Request.QueryString("CourseID")) ModuleID = trim(Request.QueryString("ModuleID")) QuizID = trim(Request.QueryString("QuizID")) Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open getConnect() UserName =session("userid") sql = "Select ModuleVisiting, URL From TrackingRecord Where UserName='" & UserName & "' And CourseID=" & CourseID Set Rs = Conn.Execute(sql) If ( Rs.EOF or RS.BOF ) Then sql1 = "Select * From ModuleDefinition Where CourseID=" & CourseID Set Rs1 = Conn.Execute(sql1) Do While Not Rs1.EOF sql3 = "Insert Into TrackingRecord (UserName, CourseID, ModuleID, HasQuiz, QuizVisited, HasExercise, ExerciseVisited, ModuleVisiting, URL) values ('" sql3 = sql3 & UserName & "',"& RS1("CourseID") &"," & RS1("ModuleID")&","& RS1("HasQuiz") & ", 0," & RS1("HasExercise") & ", 0, 0,'" & RS1("URL") &"')" Conn.Execute(sql3) Rs1.MoveNext() loop sql4 = "Update TrackingRecord set ModuleVisiting=1 where UserName='" & UserName &"' AND CourseID="& CourseID &" AND ModuleID=" & ModuleID Conn.Execute(sql4) set Rs1 = nothing Else ModuleVisiting=Rs("ModuleVisiting") End If set Rs = nothing %>