<%
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 fp='Y'"
rs.Open sql, OBJdbConnection
sometext=rs.fields("Short_news")
z = Instr(sometext, "0 Then
a = z-1
z = mid(sometext, z)
k = Mid(sometext,1,a) 'minchev nkar@
a = Instr(z, ">")
t = len(z)-a
t = Mid(z, 1, a) 'nkar@
a=a+1
a = Mid(z,a) 'nkaric heto
sometext = k & a 'text@ aranc nkar
k = Instr(t, "src=")
k = k + 4
k = Mid(t, k)
a = Instr(k, " ")
a = a-1
k = Mid(k, 1, a) ' nkari src-n
End If
Call REP(k)
title = rs.fields("news_title")
Call REP(title)
Call REP(sometext)
Response.Write("
Participate
in the National Dialogue, share your thoughts and ideas. Click
here
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * From vote Where page='Home' and status='use'"
rs.Open sql, OBJdbConnection
IF Not rs.EOF Then
%>
<%
Set ast = Server.CreateObject("ADODB.Recordset")
sql_ast = "Select * From jobs Order By 'id' DESC"
ast.Open sql_ast, OBJdbConnection
If Not ast.EOF Then
Response.Write("
Subscribe to our Job Mailing list to get updates on new
job postings.
<%
Set OBJdbConnection=Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open("DRIVER={MySQL ODBC 3.51 Driver};Server=mysql4.brinkster.com;uid=armenia1;pwd=52xmax;database=armenia1;")
Sub REP(title1)
title1 = Replace(title1,"^^","""")
title1 = Replace(title1,"^","'")
End Sub
%>
More
Headlines
News:
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * From news Where status='use' and page='News' and fp='N' Order By 'id' DESC"
rs.Open sql, OBJdbConnection
title = rs.fields("news_title")
Call REP(title)
Response.Write("" & title & "")
set rs = Nothing
%>
Business:
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * From news Where status='use' and page='Business' and fp='N' Order By 'id' DESC"
rs.Open sql, OBJdbConnection
title = rs.fields("news_title")
Call REP(title)
Response.Write("" & title & "")
set rs = Nothing
%>
Entertainment:
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * From news Where status='use' and page='Entertainment' and fp='N' Order By 'id' DESC"
rs.Open sql, OBJdbConnection
title = rs.fields("news_title")
Call REP(title)
Response.Write("" & title & "")
set rs = Nothing
%>
Inside
Armenia:
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * From news Where status='use' and page='Inside Armenia' and fp='N' Order By 'id' DESC"
rs.Open sql, OBJdbConnection
title = rs.fields("news_title")
Call REP(title)
Response.Write("" & title & "")
set rs = Nothing
%>
Sports:
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * From news Where status='use' and page='Sports' and fp='N' Order By 'id' DESC"
rs.Open sql, OBJdbConnection
title = rs.fields("news_title")
Call REP(title)
Response.Write("" & title & "")
set rs = Nothing
%>
Events:
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * From news Where status='use' and page='Events' and fp='N' Order By 'id' DESC"
rs.Open sql, OBJdbConnection
title = rs.fields("news_title")
Call REP(title)
Response.Write("" & title & "")
Set rs = Nothing
%>
<%
k=date()
z=k-1
pos=InStr(z,"/")
t = mid(z, 1, pos-1)
z = mid(z, pos+1)
pos=InStr(z,"/")
m = mid(z, 1, pos-1)
z = mid(z, pos+1)
data1 = MonthName(t) & " " & m & ", " & z
pos=InStr(k,"/")
t = mid(k, 1, pos-1)
k = mid(k, pos+1)
pos=InStr(k,"/")
m = mid(k, 1, pos-1)
k = mid(k, pos+1)
data2 = MonthName(t) & " " & m & ", " & k
Set conn = Server.CreateObject("ADODB.Recordset")
sql = "Select * From news Where status='use' and page='Students' and fp='N' Order By 'id' DESC"
conn.Open sql, OBJdbConnection
title = conn.fields("news_title")
Call REP(title)
data = conn.fields("post_date")
If data=data1 or data=data2 then
%>
<%End If%>
<%
Set conn = Server.CreateObject("ADODB.Recordset")
sql = "Select * From news Where status='use' and page='Europe' and fp='N' Order By 'id' DESC"
conn.Open sql, OBJdbConnection
title = conn.fields("news_title")
Call REP(title)
data = conn.fields("post_date")
If data=data1 or data=data2 then
%>
<%End If%>
<%
Set conn = Server.CreateObject("ADODB.Recordset")
sql = "Select * From news Where status='use' and page='Genocide' and fp='N' Order By 'id' DESC"
conn.Open sql, OBJdbConnection
title = conn.fields("news_title")
Call REP(title)
data = conn.fields("post_date")
If data=data1 or data=data2 then
%>
<%
mon = MonthName(month(date))
k = Day(date)
If len(k)<2 Then
k = "0" & k
End If
data = k & " " & mon
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * From today Where data='" & data & "'"
rs.Open sql, OBJdbConnection
If Not rs.EOF Then
Response.Write("
TODAY
" & rs.fields("data") & " ")
While Not rs.EOF
title = rs.fields("tod")
Call REP(title)
Response.Write(title)
Response.Write(" ")
If rs.fields("data1")<>"" Then
Response.Write("(" & rs.fields("data1") & ")")
Response.Write(" ")
End If
rs.movenext
Wend
Response.Write("
")
End If
%>
Stats & Graphs
Transportation:
Roads Paved
#1 United Kingdom 100%
#7 France 100% #19 Armenia 96.3%
#25 Georgia 93.5%
#26 Azerbaijan 92.3%
#56 Russia 67.4%
#64 United States 58.8%
<%
redim advert(7)
advert(0)=""
advert(1)=""
advert(2)=""
advert(3)=""
advert(4)=""
advert(5)=""
advert(6)=""
advert(7)=""
max = 7
min = 0
do while max >= 0
Randomize
a = Int((max-min+1)*Rnd+min)
Response.Write(advert(a))
Do while a < max
advert(a) = advert(a+1)
a = a + 1
Loop
max = max - 1
Loop
%>