Nag, Your profile indicates that you joined the Group in August 2007. Although, you do not have many posts to your credit, I would expect you to know that this is not a Classic ASP group. Please find a more appropriate group for your question.
-- Cerebrus. Group Moderator. On Nov 12, 5:20 pm, nag <[EMAIL PROTECTED]> wrote: > hi > i am trying to list the reocrd from database which i inserted.Listing > is done properly.but records are duplicated.records are duplicated.i > saw it in database there is no duplicate entry. > here is my code please help me to do > > <!-- #include file = "../common/admin_session.asp" --> > <!-- #include file = "../common/conn.asp" --> > <!-- #'INCLUDE FILE="../common/header.html" --> > <!-- #INCLUDE FILE="../common/header.html" --> > <%on error resume next %> > <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" > "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";> > <html xmlns="http://www.w3.org/1999/xhtml";> > <head> > <meta http-equiv="Content-Type" content="text/html; > charset=iso-8859-1" /> > <title>Clients List</title> > <style type="text/css"> > <!-- > .style2 {font-size: 20px; font-family: "AvantGarde Bk BT"; > color:#a86a58; font-weight:bold; } > .style3:hover { font-size: 13px; font-family:Arial, Helvetica, sans- > serif; color: #000000; text-decoration:none;} > .style3 { > font-family: Arial, Helvetica, sans-serif; > font-weight: bold;} > > --> > </style> > </head> > > <body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" > marginheight="0"> > <form name ="frm" action="report.asp" > > <div align="center"> > <table id="Table_01" width="1001" height="596" border="0" > cellpadding="0" cellspacing="0"> > <tr valign="top"> > <td rowspan="3"></td> > > </td> > <td> > > </tr> > <tr> > > </tr> > <tr> > <td rowspan="2"><TABLE WIDTH=874 BORDER=0 CELLPADDING=0 > CELLSPACING=0 style="border-collapse: collapse" bordercolor="#111111" > height="442"> > <TR> > <TD height="414" bgcolor="#FFFFFF" valign="top"> > <div align="center"> > <table border="0" width="100%" height="308"> > <tr> > <td width="81%" valign="top" height="210" class="subhead"> > <p align="center"><big><font face="Arial"> <br> > </font><span class="style2">Report </span></big></p> > > <div align="center"> > <center> > > <table border="1" width="94%" cellspacing="0" > cellpadding="0"> > <tr> > <td width="35%" align="center" bgcolor="#CCCCCC" > class="text2"><p class="style3"><font color="#000080">Posted Date </ > font></p></td> > <td width="17%" align="center" bgcolor="#CCCCCC" > class="text2"><span class="style3"><font color="#000080">Galahad</ > font></span></td> > <td width="20%" align="center" bgcolor="#CCCCCC" > class="text2"><span class="style3"><font color="#000080">Description</ > font></span></td> > <td width="15%" align="center" bgcolor="#CCCCCC" > class="text2"><span class="style3"><font color="#000080">Document > Writer </font></span></td> > <td width="15%" align="center" bgcolor="#CCCCCC" > class="text2"><span class="style3"><font color="#000080">Photography</ > font></span></td> > </tr> > <% > > 'if (Request.Form("frm")) then > > dim rs, rsttr, rs1, i > Dim todate, totime, txntime1, txntime2, gentime > set rsttr=Server.CreateObject("ADODB.Recordset") > rsttr.CursorType = 1 > 'rsttr > dim strclient,id > id = Session("uid") > strclient = "select > doc_warhouse.doc_id,doc_warhouse.doc_name,doc_warhouse.doc_type,doc_warhouse.doc_data,doc_warhouse.galahad,doc_warhouse.description,doc_warhouse.posteddt,doc_warhouse1.doc_id1,doc_warhouse1.uid1,doc_warhouse1.doc_name1,doc_warhouse1.doc_type1,doc_warhouse1.doc_data1 > from doc_warhouse RIGHT JOIN doc_warhouse1 on doc_warhouse.uid= > doc_warhouse1.uid1 where uid="&id > > 'strclient = "select * from doc_warhouse where uid="&id > rsttr.Open strclient,con > 'Response.Write(strclient) > 'rsttr.Open "select * from doc_warhouse order by doc_id asc", ObjCon > > dim txndate > > DIM intPageRecords, intRecords, intRecordCount, intCurrentPage > DIM intNumberOfPages, intDisplayPage > Dim strHREF, strFieldName, strFieldValue, intCounter > intPageRecords = Request.Querystring("page") > IF intPageRecords = "" THEN intPageRecords = 1 : intRecords = 1 > intRecords = intPageRecords > intPageRecords = ((intPageRecords - 1) * 50) +1 > intRecordCount = 0 > > IF NOT rsttr.EOF THEN > rsttr.Move (intPageRecords - 1) > DO WHILE intRecordCount < 50 and NOT rsttr.EOF > > intCounter=0 > strFieldName = rsttr.Fields(intCounter).Name > strFieldValue=rsttr.Fields(intCounter).Value > dname = rsttr("doc_name") > dname1 = rsttr("doc_name1") > > If(strFieldName = "doc_id")Then > names = rsttr("doc_name") > strHREF = "<A HREF=""" & "Download.asp?id=" & > strFieldValue & > "&name="&names &" "">" & strFieldValue & " </A>" > strHREF1 = "<A HREF=""" & "Download.asp?name="&dname &" > "">" > & dname & " </A>" > strHREF2 = "<A HREF=""" & > "Download1.asp?name="&dname1 &" "">" & > dname1 & " </A>" > > ElseIf(IsNull(strFieldValue))Then > call Response.Write(" ") > End If > %> > <tr> > <td width="35%" align="center"><%=rsttr("posteddt") > %></td> > <td width="17%" align="center"><%=rsttr("galahad") %></ > td> > <td width="20%" align="center"><%=rsttr("description") > %></td> > <td width="15%" align="center"><a target="page"><% > Response.Write(strHREF1) %></a></td> > <td width="15%" align="center"><% Response.Write > (strHREF2)'=rsttr("doc_name1") %></td> > </tr> > > <% > > 'DO WHILE intRecordCount < 50 and NOT rsttr.EOF > rsttr.MoveNext > intRecordCount = intRecordCount +1 > Loop > END IF > rsttr.Nothing > 'end if > %> > </table> > > </center> > </div> > > </td> > </tr> > <tr> > <td width="81%" height="51"> > <font face="Arial" size="2" style="bold" color="red"> <p > align="center"> <%=intPageRecords%>- <%=(rsttr.RecordCount)%> > of <%=intPageRecords+(intRecordCount-1)%> > </p> > <p align="center">Scroll Through More Transaction > <% > intCurrentPage = Request.Querystring("page") > IF intCurrentPage = "" THEN intCurrentPage = 1 > intNumberOfPages = int(rsttr.RecordCount \ 50) > IF rsttr.RecordCount MOD 10<> 0 THEN intNumberOfPages = > intNumberOfPages + 1 > Response.Write("Pages: [") > FOR intDisplayPage = 1 TO intNumberOfPages > IF Cint(intDisplayPage) = Cint(intCurrentPage) THEN > Response.Write " <b>" & intDisplayPage & "</b> " > ELSE > Response.Write " <a href=""report.asp?page=" & intDisplayPage & """>" > & intDisplayPage &_ > "</a> " > END IF > NEXT > Response.Write ("]") > Set rsttr = Nothing > > %> > > </font> > </td> > </tr> > > </table> > </div> > </TD> > </TR> > </TABLE> > </td> > <td> > <img src="images/spacer.gif" width="1" height="85" > alt=""></td> > </tr> > <tr> > <td> </td> > <td> > <img src="images/spacer.gif" width="1" height="308" > alt=""></td> > </tr> > <tr> > <td colspan="2"> > </td> > <td> > <img src="images/spacer.gif" width="1" height="16" > alt=""></td> > </tr> > </table> > > <img class="ru47se tZCA6c" id=":a7" alt="Status menu" > src="http://mail.google.com/mail/images/cleardot.gif"; /></div> > </form> > </body> > </html>
![http://mail.google.com/mail/images/cleardot.gif"](https://mail.google.com/mail/images/cleardot.gif"){kind=link}