arshadarsal 0 Newbie Poster

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
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.