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

<% Set MyConnSC = Server.CreateObject("ADODB.Connection") MyConnSC.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & connn & ";" '--------- List events----------- start if request("ztitle") <> "" and request("level_2") <> "" then sqll1="Select * from tbl_about_us where "&_ " level_1_link = '"& request("ztitle") &"' and "&_ " level_2_link = '"& request("level_2") &"' " else sqll1="Select * from tbl_about_us where "&_ " level_1_link = '"& request("ztitle") &"' and "&_ " level_2_link = 'profile' " end if q1 = "&ztitle=about_us" if sqll1 <> "" then if dev = "yes" then response.write " sqll1"& sqll1 '@ Set rsl1=MyConnSC.Execute(sqll1) If rsl1.eof = false then response.Write "" response.Write "" response.Write "" response.Write " " response.Write " "& rsl1("zcontent") response.write " " response.Write " " else 'rsl1 'response.Write "no record 2" end if 'rsl1 else end if 'sqll1 '--------- List events----------- end %> <% '--------- List events content----------- start if request("id") <> "xxx" then sqll2="Select * from tbl_events where "&_ " zactive = 'yes' and "&_ " events_type = '"& request("event_type") &"' and "&_ " date_start > #"& mydate1(now()) &"#" &_ " order by events_date desc" 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 events_content = rsl2("events_content") events_title= rsl2("events_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 "" 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 " "& events_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 " "& events_content response.Write " " end if ' rsl2 end if 'sqll2 end if ' if request("id") <> "" then '--------- List events content----------- end %>