<% Server.Execute("../metatraffic/track.asp") %>

Home

Conf. Follow-up

Projects

Events

Business

Travel

Entertainment

Sports

Students

Inside Armenia

News

Advertise!

Results per page: 10 20 50 100   any search words all search words

Inside Events     Current programs     Pan-Armenian Games 2003     Diaspora Conference 2002     Pan-Armenian Games 2001     1700 Anniversary 2001     Diaspora Conference 1999     News Archive     100th birthday anniversary Aram Khachaturian     80th anniversary of Sergei Parajanov <% Sub REP(title1) title1 = Replace(title1,"^^","""") title1 = Replace(title1,"^","'") End Sub Set OBJdbConnection=Server.CreateObject("ADODB.Connection") OBJdbConnection.Open("DRIVER={MySQL ODBC 3.51 Driver};Server=mysql4.brinkster.com;uid=armenia1;pwd=52xmax;database=armenia1;") Set rs = Server.CreateObject("ADODB.Recordset") sql = "Select * From news Where page='Events' and fp='N' and status='use' Order By 'id' DESC" rs.Open sql, OBJdbConnection If Not rs.EOF Then title = rs.fields("news_title") Call REP(title) id = rs.fields("id") s_news = rs.fields("Short_news") Call REP(s_news) Response.Write(" ") Response.Write(title) Response.Write(" ") Response.Write(s_news) Response.Write(" ") Response.Write(" Full Story ") %>  More Headlines News: <% Set conn = Server.CreateObject("ADODB.Recordset") sql = "Select * From news Where status='use' and page='News' and fp='N' Order By 'id' DESC" conn.Open sql, OBJdbConnection title = conn.fields("news_title") Call REP(title) Response.Write("" & title & "") set conn = Nothing %> Business: <% Set conn = Server.CreateObject("ADODB.Recordset") sql = "Select * From news Where status='use' and page='Business' and fp='N' Order By 'id' DESC" conn.Open sql, OBJdbConnection title = conn.fields("news_title") Call REP(title) Response.Write("" & title & "") set conn = Nothing %> Entertainment: <% Set conn = Server.CreateObject("ADODB.Recordset") sql = "Select * From news Where status='use' and page='Entertainment' and fp='N' Order By 'id' DESC" conn.Open sql, OBJdbConnection title = conn.fields("news_title") Call REP(title) Response.Write("" & title & "") set conn = Nothing %> Inside Armenia: <% Set conn = Server.CreateObject("ADODB.Recordset") sql = "Select * From news Where status='use' and page='Inside Armenia' and fp='N' Order By 'id' DESC" conn.Open sql, OBJdbConnection title = conn.fields("news_title") Call REP(title) Response.Write("" & title & "") set conn = Nothing %> Sports: <% Set conn = Server.CreateObject("ADODB.Recordset") sql = "Select * From news Where status='use' and page='Sports' and fp='N' Order By 'id' DESC" conn.Open sql, OBJdbConnection title = conn.fields("news_title") Call REP(title) Response.Write("" & title & "") set conn = Nothing %> Events: <% Set conn = Server.CreateObject("ADODB.Recordset") sql = "Select * From news Where status='use' and page='Events' and fp='N' Order By 'id' DESC" conn.Open sql, OBJdbConnection title = conn.fields("news_title") Call REP(title) Response.Write("" & title & "") Set conn = Nothing %> <% rs.movenext While Not rs.EOF title = rs.fields("news_title") Call REP(title) id = rs.fields("id") s_news = rs.fields("Short_news") Call REP(s_news) Response.Write(" ") Response.Write(title) Response.Write(" ") Response.Write(s_news) Response.Write(" ") Response.Write(" Full Story ") Response.Write("") rs.movenext Wend End If set rs = Nothing OBJdbConnection.Close set OBJdbConnection = Nothing %>  Second Armenia-Diaspora Conference  The second Armenia - Diaspora Conference took place in Yerevan, May 27-28 for the purpose of further developing and deepening  Armenia - Diaspora cooperation.Armenians. Click Here for Conference Information Page