<%if dev="yes" then response.Write "learning_centre.asp"%>

<% Set MyConnSC = Server.CreateObject("ADODB.Connection") MyConnSC.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & connn & ";" '--------- page number----------- start if request("id") = "" then if request("ztitle")= "learning_centre" and request("level_2") = "Technical News" then sqll0="Select count(zactive) from tbl_learning_centre where "&_ " zactive = 'yes' and "&_ " learn_type = '"& request("level_2") &"' and "&_ " date_start >= #"& mydate1(now()) &"#" elseif request("ztitle")= "learning_centre" and request("level_2") = ""then sqll0="Select count(zactive) from tbl_learning_centre where "&_ " zactive = 'yes' and "&_ " date_start >= #"& mydate1(now()) &"#" elseif request("level_2") <> "" then sqll0="Select count(zactive) from tbl_learning_centre where "&_ " = 'yes' and "&_ " learn_type = '"& request("level_2") &"' and "&_ " date_start >= #"& mydate1(now()) &"#" end if if dev="yes" then response.write " sqll0"& sqll0 '@ if sqll0 <> "" then Set rsl0=MyConnSC.Execute(sqll0) end if end if '--------- page number ------ end %> <% '--------- List learn----------- start if request("id") = "" then if request("ztitle")= "learning_centre" and request("level_2") = "Technical News" then sqll1="Select * from tbl_learning_centre where "&_ " zactive = 'yes' and "&_ " learn_type = '"& request("level_2") &"' and "&_ " date_start >= #"& mydate1(now()) &"#" &_ " order by learn_id asc" elseif request("ztitle")= "learning_centre" and request("level_2") = ""then sqll1="Select * from tbl_learning_centre where "&_ " zactive = 'yes' and "&_ " date_start >= #"& mydate1(now()) &"#" &_ " order by learn_id asc" elseif request("level_2") <> "" then sqll1="Select * from tbl_learning_centre where "&_ " zactive = 'yes' and "&_ " learn_type = '"& request("level_2") &"' and "&_ " date_start >= #"& mydate1(now()) &"#" &_ " order by learn_id asc" end if q1 = "&ztitle=learning_centre" if dev="yes" then response.write " sqll1"& sqll1 '@ if sqll1 <> "" then Set rsl1=MyConnSC.Execute(sqll1) If rsl1.eof = false then response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" while not rsl1.eof X = X + 1 this_bg_color = "#EDEDED" Response.Write " onMouseOver="this.style.backgroundColor='<%=this_bg_color %>';" onmouseout="this.style.backgroundColor='transparent';"> <% response.Write "" ' response.Write "" rsl1.movenext wend response.Write " "& X response.Write " Title" ' response.write " Release Date" response.Write " "& X response.write " "&rsl1("learn_title")&" "& mydate1(rsl1("learn_date")) response.Write " " else 'rsl1 'response.Write "no record 2" end if 'rsl1 else end if 'sqll1 end if 'if request("id") = "" then '--------- List learn----------- end %> <% '--------- List learn content----------- start if request("id") <> "" then sqll2="Select * from tbl_learning_centre where "&_ " zactive = 'yes' and "&_ " learn_type = '"& request("event_type") &"' and "&_ " date_start >= #"& mydate1(now()) &"#" &_ " order by learn_id asc" if sqll2 <> "" then Set rsl2=MyConnSC.Execute(sqll2) If rsl2.eof = false then next_id = "" previous_id = "" this_id = "" while not rsl2.eof if int(request("id")) = int(rsl2("id")) then learn_content = rsl2("learn_content") learn_title= rsl2("learn_title") this_id = int(rsl2("id")) previous_id = z_previous_id else if this_id = "" and previous_id = "" then z_previous_id = int(rsl2("id")) if this_id = "" and first_id = "" then first_id = int(rsl2("id")) if this_id <> "" and next_id = "" then next_id = int(rsl2("id")) end if last_id = int(rsl2("id")) rsl2.movenext wend 'rsl2 ' response.Write "" ' response.Write "" ' response.Write " " & learn_title ' response.Write " " ' if isnumeric(first_id) = true and first_id <> "" then response.Write "" ' response.Write " " ' if isnumeric(previous_id) = true and previous_id <> "" then response.Write " " ' response.Write " " ' response.Write " " ' if isnumeric(next_id) = true and next_id <> "" then response.Write "" ' response.Write " " ' if isnumeric(last_id) = true and last_id <> "" and last_id <> this_id then response.Write "" ' response.Write " " response.Write "" response.Write "" response.Write "" response.Write "" response.Write " <% response.Write " " if isnumeric(first_id) = true and first_id <> "" then response.Write "" response.Write " " if isnumeric(previous_id) = true and previous_id <> "" then response.Write " " response.Write " " & learn_title response.Write " " if isnumeric(next_id) = true and next_id <> "" then response.Write "" response.Write " " if isnumeric(last_id) = true and last_id <> "" and last_id <> this_id then response.Write "" response.Write " "& learn_content response.Write " " %> &ztitle=learning_centre" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image32','','images/btn_back_over.png',1)"> " end if ' rsl2 end if 'sqll2 end if ' if request("id") <> "" then '--------- List learn content----------- end %>