Data | database-----index.asp------
<title> Floating Forum </title>
<body marginwidth= "0" marginheight= "0" >
<div align= "center" >
<table width= "100%" border= "0" cellspacing= "0" cellpadding= "0" height= ">"
<tr>
<TD width= > </td>
<td><a href= "#form" > New stickers </A></td>
</tr>
</table>
<br>
<table border= "0" width= "90%" cellspacing= "0" cellpadding= "0" >
<% Set DBR = Server.CreateObject ("Adodb.recordset")%>
<% dbr.pagesize =%>
<% DBR. CacheSize = Dbr.pagesize%>
<% dbr.open "SELECT * from forum where (Isdel = ' n ') Order BY id DESC", Application ("OLE DB"),1,1%>
<% Msgcount=dbr.recordcount%>
<% Msgpcount=dbr.pagecount%>
<% pagelist=request ("PageList")%>
<% if CINT (pagelist) > Dbr.pagecount then pagelist = Dbr.pagecount%>
<% if CINT (pagelist) < 1 then pagelist=1%>
<% DBR. Absolutepage=pagelist%>
<% for i= 1 to Dbr.pagesize%>
<tr>
<TD width= "100%" valign= "Top" align= "left" colspan= "2" >
<table border= "0" width= "100%" cellspacing= "0" cellpadding= "0" >
<tr>
<TD width= "25%" > Name: <%=rtrim (DBR ("name"))%></td>
<TD width= "25%" ><% if RTrim (DBR ("email")) <> "Then%><%rtrim (DBR (" email))%><% End If%> </td>
<TD width= "25%" > Time: <%= datevalue (DBR ("Thedate"))%></td>
<% a= CDbl (DBR ("id"))%>
<% Next%>
<TD width= "25%" ><a href= "reply.asp?id=<%=a%>" > Reply </a></td>
</tr>
</table>
</td>
</tr>
<tr>
<TD width= "100%" valign= "Top" align= "left" colspan= "2" ><%=rtrim (DBR ("title"))%></td>
</tr>
<tr>
<TD width= "100%" valign= "Top" align= "left" colspan= "2" ><%=replace (Server.HTMLEncode (RTrim ("DBR")) Chr (%></td>), "<br>"
</tr>
<% Dbr.movenext%>
<% if DBR. EOF Then Exit for%>
<% Next%>
<tr>
<TD align= "Right" height= "width=" ><a href= "Index.asp?pagelist=<%=cint (pagelist) +1%>" > <span class= "link" >>> more </span></td>
<TD align= "right" height= "> </td>
</tr>
</table>
<form method= "POST" action= "add.asp" >
<table border= "0" width= "90%&q
