| News Letter |
<%
dim sql,rs,dis,dis1,dis2
set rsview=server.CreateObject("ADODB.Recordset")
'set rs=server.CreateObject("ADODB.Recordset")
sql="select top 10 * from news_letters order by news_id desc"
rsview.CursorLocation = 3
rsview.CursorType = 3
rsview.open sql,con,3
'cnt=rsview.recordcount
'if isnull(rsview(0))then
' response.write "No News in Database"
'else
'if rsview.EOF and rsview.BOF then
' Response.Write("No Record found")
'else
' if Request.QueryString("page")="" then
' pageno=1
' else
' pageno=Request.QueryString("page")
' end if
' rsview.PageSize=10
' totalpages=cint(rsview.PageCount)
' rsview.AbsolutePage=pageno%> <%
'if pageno=1 then
' i=1
'else
' i=(pageno*10)-9
'end if
'for x=0 to 9
' if rsview.EOF then
' exit for
' else
'response.write (" "&i)
%>
<%while not rsview.eof%>
|
|
<%=rsview(1)%> |
<% wholedate=day(rsview(3)) &"/"& month(rsview(3)) &"/"& year(rsview(3))%>
<%=wholedate%> |
<%
'dim dt,dd,mm,yy
'dt=rsview(3)
'dd=day(dt)
'mm=month(dt)
'yy=year(dt)
%>
<%'i=i+1
' end if
rsview.movenext
'next
wend
'end if
'end if
rsview.close
%>
|
|
print
this page