i also experienced this problem,my web page showing multiple entries also. Please help me
This is my code \:-
userid=Session("username")
%>
<html>
<head> <title>Tax Invoices</title>
<script language="JavaScript">
function openwindow(path)
{
window.open(path,"bill","menubar=yes,resizable=yes,scrollbars=yes,width=800,height=450,top=50,left=50");
}
</script>
<link rel="stylesheet" type="text/css" title="CSS" href="Include/Styles/style.css" media="screen" />
</head>
<body>
<table topmargin="0" leftmargin="0" align="center" ID="Table1">
<tr>
<td><img src="images/headerksphc.jpg" WIDTH="600" HEIGHT="50">
<center><h3><font face="verdana,arial" color="black">Pending Files</font></h3></center>
</td>
</tr>
</table>
<table width="100%" ID="Table2">
<tr>
<td width="80%" align="left"><a href="filemovement.asp"><font face="verdana,arial" size="1"><b><font color="blue">Home</b></font></a></td>
<td width="20%" align="right"><a href="logout.asp"><font face="verdana,arial" size="1"><b><font color="blue">Log Out</b></font></a></font></td>
</tr>
</table>
<%
Set objConn = server.CreateObject ("ADODB.connection")
objConn.Open StrConnectionstring
''Querry to get the catalog name from the orderlist
'----------------------------------------------------
set invoiceinfoRs=server.CreateObject("ADODB.Recordset")
invoiceinfosql="select * from InvoiceInfo where mail_type = 'Tax Invoice' order by invoiceno desc"
invoiceinfoRs.Open invoiceinfosql,objconn,1,1
''set ordergroupinfoRs=server.CreateObject("ADODB.Recordset")
'' ordergroupinfosql="select ordergroup_id from ordergroup where order_number='"&invoiceinfoRs(0)&"' "
''ordergroupinfoRs.Open ordergroupinfosql,objconn,1,1
''ordernumber= invoiceinfoRs(0)
''Response.Write ordernumber
''Response.End
%>
<table width="100%" ID="Table3">
<tr Class="TableHead">
<td width="20%"><font color=red>Online Order No.</font></td>
<td width="20%"><font color=red>File From</font></td>
<td width="20%"><font color=red>File To</font></td>
<td width="20%"><font color=red>File Date</font></td>
<td width="20%"><font color=red>File Type</font></td>
</tr>
</table>
<hr>
<%
if not invoiceinfoRs.EOF then
while not invoiceinfoRs.EOF
%>
<table width="100%" ID="Table4">
<tr>
<%
path="http://mystore.ksphc.org/admin/"
''ins=instr(invoiceinfoRs.Fields("mailbody"),"admin/")
''midd=mid(invoiceinfoRs.Fields("mailbody"),instr(invoiceinfoRs.Fields("mailbody"),"admin/"))
Path1 = split(mid(invoiceinfoRs.Fields("mailbody"),instr(invoiceinfoRs.Fields("mailbody"),"admin/")),"/")
path=path&path1(1)
%>
<%if cdbl(invoiceinfoRs(0))>2010000 then %>
<td width="20%"><a href="<%=path%>" target="_blank"><%=mid(invoiceinfoRs(0),5,4)%></td>
<%else %>
<td width="20%"><a href="<%=path%>" target="_blank"><%=invoiceinfoRs(0)%></td>
<%end if %>
<td width="20%"><%=invoiceinfoRs(1)%></td>
<td width="20%"><%=invoiceinfoRs(2)%></td>
<td width="20%"><%=ConvertDate(invoiceinfoRs(3))%></td>
<td width="20%"><%=invoiceinfoRs(5)%></td>
</tr>
</table>
<%
invoiceinfoRs.MoveNext
wend
else
%>
<center>
<font face="verdana,arial" color="black" size="2">No Records</font>
</center>
<%
end if