<%
'/*
' ******************************************************************************************
' * Module : AAFT - General Visitor
' * Summary : News
' * Author : Puneet Mehta
' * Mail Id's : puneet@iridiuminteractive.com
' * Started on : 17th September 2003
' * Project : AAFT
' *
' * Description: News & Events
' *
' * MODIFICATION HISTORY
' ******************************************************************************************
' * Date Comments Method Name (M/R)
'
' ******************************************************************************************
' * 18/9/2003 Next and previous Link in News_detail_back.asp Munish Satia
' * msatia@iridiuminteractive.com
' ******************************************************************************************
' Please dont make any changes to the file please intimate before making changes.
'*/
'on error resume next
dim intCurPage,strFileName
'set WEBFRONT_conn = Server.CreateObject("ADODB.Connection")
intCurPage=Request.QueryString("pg")
if intCurPage=0 or intCurPage="" then
intCurPage=1
end if
'Response.Write " intCurPage = " & intCurPage
'SQLNews="select nid,title,flag from news where nid=143 "
SQLNews="select nid,title,flag from news order by datePosted"
WEBFRONT_conn_str = "Provider=SQLOLEDB.1;Password=!sqlaaft;Persist Security Info=True;User ID=aaft;Initial Catalog=aaft;Data Source=66.36.241.36"
'WEBFRONT_conn_str = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=aaft;Data Source=ntserver"
Set RsNews = Server.CreateObject ("ADODB.Recordset")
'Response.Write "Provider=SQLOLEDB.1;Password=sql@aaft;Persist Security Info=True;User ID=aaft;Initial Catalog=aaft;Data Source=66.36.241.36"
'Response.End
RsNews.CursorLocation = 3
RsNews.PageSize = 15 'page count here
'WEBFRONT_conn.Open WEBFRONT_conn_str
RsNews.Open SQLNews,WEBFRONT_conn_str,3,3
dim strPaging, intRec, intTotPages, iPg
%>
|| ASIAN ACADEMY OF FILM AND TELEVISION ||
<%
if RsNews.RecordCount>0 then
if cint(intCurPage)>RsNews.PageCount then intCurPage=RsNews.PageCount
intTotPages=RsNews.PageCount
RsNews.AbsolutePage=cint(intCurPage)
'Response.Write " RsNews.AbsolutePage = " & RsNews.AbsolutePage
intRec=0
while not (RsNews.EOF or intRec > RsNews.PageSize-1)
intRec=intRec + 1
%>
<%
RsNews.MoveNext
Wend
strPaging=""
if int(intTotPages)>1 then
strFileName="news_new.asp"
if bSort=true then
strFileName= strFileName & "?Publication_Sort="&Publication_Sort
else
strFileName= strFileName & "?Publication_Search="&Publication_Search
end if
strPaging = "
"
strPaging= strPaging & ""
if cint(intCurPage)=1 then
'strPaging=strPaging & "Previous"
else
strPaging=strPaging & "Previous"
end if
for iPg = 1 to cint(intTotPages)
if iPg=cint(intCurPage) then
strPaging=strPaging & " " & cstr(iPg)
else
strPaging=strPaging & " "&ipg&""
end if
next
if cint(intCurPage)=cint(intTotPages) then
'strPaging=strPaging & " Next"
else
strPaging=strPaging & " Next"
end if
strPaging=strPaging & ""
strPaging=strPaging & "
"
end if
else
end if
Response.Write strPaging
RsNews.Close
Set RsNews = Nothing
'WEBFRONT_conn.Close
%>
Excellent
training in cinematography available at AAFT will produce many Radhu karmakars
and Jal Mistrys.
