r57.txt, r57 c99.txt, c99 Security ADANALI dizisi,ligtv,bedava Ligtv izle,justin.tv,Mac ozetleri izle,Fimler,Fragmanlar,Gundemdeki Haberler,Spor Haberleri,Gunluk yasam UNAIDS Camobodia Country Office <% ' SET SESSION LANGUAGE if not session("language") > "" then Session("language") = "Eng" end if if request.queryString("language") = "khm" then Session("language") = "Khm" end if if request.queryString("language") = "eng" then Session("language") = "Eng" end if if session("accesslevel") = "" or session("accesslevel") < 1 then session("accessLevel") = 0 end if Session.Timeout=60 ' CREATE CONNECTION TO DATABASE Dim oConn Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & getFilePath() ' CREATE RECORDSET FOR LINK NAMES Dim oRs Dim oRsSub Set oRs = Server.CreateObject("ADODB.Recordset") oRs.CursorType = 2 oRs.LockType = 3 Dim pageID if not Request.queryString("pageID") = "" then pageID = Request.queryString("pageID") else pageID = 1 end if oRs.open "SELECT * FROM tblCat WHERE catID = " & pageID, oConn oRs.moveFirst Sub writeLocation Dim strHTML strHTML = "> " & oRs("catText" & Session("Language")) & "" Dim oRsPar1 Set oRsPar1 = Server.CreateObject("ADODB.Recordset") oRsPar1.CursorType = 2 oRsPar1.LockType = 3 oRsPar1.open "SELECT * FROM tblCat WHERE catID = " & oRs("catParentID"), oConn if not (oRsPar1.EOF and oRsPar1.BOF) then oRsPar1.moveFirst strHTML = "> " & oRsPar1("catText" & Session("Language")) & " " & strHTML Dim oRsPar2 Set oRsPar2 = Server.CreateObject("ADODB.Recordset") oRsPar2.CursorType = 2 oRsPar2.LockType = 3 oRsPar2.open "SELECT * FROM tblCat WHERE catID = " & oRsPar1("catParentID"), oConn if not (oRsPar2.EOF and oRsPar2.BOF) then oRsPar2.moveFirst strHTML = "> " & oRsPar2("catText" & Session("Language")) & " " & strHTML Dim oRsPar3 Set oRsPar3 = Server.CreateObject("ADODB.Recordset") oRsPar3.CursorType = 2 oRsPar3.LockType = 3 oRsPar3.open "SELECT * FROM tblCat WHERE catID = " & oRsPar2("catParentID"), oConn if not (oRsPar3.EOF and oRsPar3.BOF) then oRsPar3.moveFirst strHTML = "> " & oRsPar3("catText" & Session("Language")) & " " & strHTML end if oRsPar3.close end if oRsPar2.close end if oRsPar1.close Response.write(strHTML) End Sub %>
UNAIDS - Joint United Nations Program on AIDS [logo] Welcome to Cambodia[logo]
<% Server.Execute("header.asp") %>
  <% if not pageID=1 then writeLocation() end if %> " align="right"> <% if session("language") = "Eng" then %> <%= getLabel2(30) %> <% else %> English Version <% end if %>
" type="text" style="WIDTH:100px;" name="search" value="<%= getLabel(17) %>">
<% if request.queryString("pageID")>1 then Response.write("
" width="150px;">  "><% Response.write(oRs("catText" & Session("language")))%>
<% Server.execute("sidebar.asp") %> ") if CInt(Session("AccessLevel")) < CInt(oRs("catAccessLevel")) then Response.redirect("default.asp?pageID=45") else if oRs("catASPLink") > " " then Server.execute(oRs("catASPLink")) else ' PICK CORRECT LANGUAGE Response.write(oRs("catCode" & session("language"))) end if end if else Response.write("") Server.execute("home.asp") end if %>
" align="right"> <%= getLabel(33) %>  <%= getLabel(34) %>