<%
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='Inside Armenia' 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(s_news)
Response.Write(" |  ")
Response.Write(" Full Story |
")
%>
| 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(s_news)
Response.Write(" | | ")
Response.Write(" Full Story |
")
Response.Write("")
rs.movenext
Wend
End If
set rs = Nothing
OBJdbConnection.Close
set OBJdbConnection = Nothing
%>
|
Destruction in Nakhichevan |
 |
The conference,
jointly sponsored by Research on Armenian
Architecture, the Land and Culture Association,
and the Armenian Academy of Sciences is intended
to raise awareness on contemporary actions
which result in the devastation of historical
and cultural legacy.
|
|
|
|
|
|
