<% nh = Trim(Request("nh")&"") nh = DecodeStr(nh) dash = Instr(nh,"-") If dash>0 then typeofrecord = Left(nh,dash-1) newsid = mid(nh,dash+1,Len(nh)) Else typeofrecord = "" newsid = "" End if If typeofrecord<>"" and newsid<>"" then SQL = "" SQL = SQL & "Select * from tblnews " SQL = SQL & "where 1=1 " 'SQL = SQL & "and id_country='"&typeofrecord&"' " SQL = SQL & "and id_news="&newsid&" " SQL = SQL & "and status='1'" Set RS=Conn.Execute(SQL) If CheckRS(RS) Then newstitle_en = Trim(RS("newstitle_en")&"") newsstitle_en = Trim(RS("newsstitle_en")&"") newscontent_en = Trim(RS("newscontent_en")&"") lastupdate = Trim(RS("lastupdate")&"") End if Rs.Close Set RS=Nothing End if %>

Press Releases

PR Contact

Press Releases

<%=newstitle_en%>

<%=newscontent_en%>