DaniWeb Forum Index > Web Development > ASP

Record Duplicate ?

Please support our ASP advertiser: PostgreSQL or MySQL? Compare and contrast the two most popular open source databases

Thread Solved

•

Join Date: Aug 2009

Posts: 2

Reputation: katec is an unknown quantity at this point

Solved Threads: 0

katec

Offline

Newbie Poster

Record Duplicate ?

Aug 14th, 2009

Hi. This should be simple for the experienced. This code pulls the first record twice, but the rest are fine. I can't figure it out! Thanks for looking!
--------

 Help with Code Tags 
 asp Syntax (Toggle Plain Text) 
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("products.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
 
 
 
sql="SELECT Model, Volts_Hz, BTUH, Max_Amps, Max_Temp, '<a href='+Drawing+'>'+Model+'</a>' AS Drawing FROM VAirConditioners ORDER BY BTUH ASC"
rs.Open sql, conn
%>
 
 
<table id="header205" align="center">
<tr>
<%
 
 
for each x in rs.Fields
    response.write("<th>" & x.name & "</th>") 
%>
 <td "nowrap="nowrap" class="tablesytle4"><%Response.Write(x.value)%></tr>
<tr><%next %>
 
 
<%do until rs.EOF%>
  </tr>
    <%
 
	for each x in rs.Fields
	response.write("<th>" & x.name & "</th>") %>
       <td "nowrap="nowrap" class="tablesytle4"><%Response.Write(x.value)%>
 <tr>
	<%next
    rs.MoveNext%>
   </td> </tr>
 
<%loop
rs.close
conn.close
%></table>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("products.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
    
    
 
sql="SELECT Model, Volts_Hz, BTUH, Max_Amps, Max_Temp, '<a href='+Drawing+'>'+Model+'</a>' AS Drawing FROM VAirConditioners ORDER BY BTUH ASC"
rs.Open sql, conn
%>


<table id="header205" align="center">
<tr>
<%


for each x in rs.Fields
    response.write("<th>" & x.name & "</th>") 
%>
 <td "nowrap="nowrap" class="tablesytle4"><%Response.Write(x.value)%></tr>
<tr><%next %>


<%do until rs.EOF%>
  </tr>
    <%
	
	for each x in rs.Fields
	response.write("<th>" & x.name & "</th>") %>
       <td "nowrap="nowrap" class="tablesytle4"><%Response.Write(x.value)%>
 <tr>
	<%next
    rs.MoveNext%>
   </td> </tr>

<%loop
rs.close
conn.close
%></table>

Last edited by peter_budo; Aug 14th, 2009 at 1:03 pm. Reason: Keep It Organized - For easy readability, always wrap programming code within posts in [code] (code blocks) and [icode] (inline code) tags.