<%
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='News' 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
%> |
<%
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
%> | Students:<%
Response.Write("" & title & "")
Set conn = Nothing
%> | <%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
%>
| Armenian Activity In Europe:
<%
Response.Write("" & title & "")
Set conn = Nothing
%> |
<%End If%>
<%
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
%>
|
