| 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
%> |
| Students:
<%
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)
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(" Full Story