为什么查询出的记录循环两次呢?请帮忙
<%
UserID=Session("UserID")
rMonth=Request.Form("D1") & "-" & Request.Form("D2")
rInput=Request.Form("I1")
if UserID="Admin" then
sql3="select Dealer,Model,SN,Result,Fee,MonthTime from products where UserID='" & rInput & "' and MonthTime='" & rMonth & "'"
set ProductRs=conn.execute(sql3)
set RS1=conn.execute(sql3)
else
sql1="select * from tblUser where UserID='" & UserID & "'"
sql2="select Dealer,Model,SN,Result,Fee,MonthTime from products where UserID='" & UserID & "' and MonthTime='" & rMonth & "'"
set ProductRs=conn.execute(sql2)
set RS1=conn.execute(sql1)
end if
%>
<%
response.write "<table border='0' cellpadding='2' cellspacing='2' bordercolor='#111111' width='100%' bordercolorlight='#FFFFFF' bordercolordark='#398AD9'>"
response.write "<tr>"
response.write "<td width='14%' bgcolor='#4A6173' align='center'><font size='2' face='Arial' color='#FFFFFF'>经销商</font></td>"
response.write "<td width='10%' bgcolor='#4A6173' align='center'><font size='2' face='Arial' color='#FFFFFF'>机型</font></td>"
response.write "<td width='17%' bgcolor='#4A6173' align='center'><font size='2' face='Arial' color='#FFFFFF'>序列号</font></td>"
response.write "<td width='14%' bgcolor='#4A6173' align='center'><font size='2' face='Arial' color='#FFFFFF'>结果</font></td>"
response.write "<td width='7%' bgcolor='#4A6173' align='center'><font size='2' face='Arial' color='#FFFFFF'>费用</font></td>"
response.write "<td width='10%' bgcolor='#4A6173' align='center'><font size='2' face='Arial' color='#FFFFFF'>月份</font></td>"
response.write "</tr>"
while not ProductRs.eof
response.write "<tr bgcolor='#DFE0EA' align='center'>"
for i=0 to ProductRs.fields.count-1
if i=1 then
response.write "<td><font size='2' face='Arial'>" & ProductRs.fields(i).value & "</font></td>"
else
response.write "<td><font size='2' face='Arial'>" & ProductRs.fields(i).value & "</font></td>"
end if
next
response.write "<tr>"
ProductRs.movenext
wend
response.write "</tr>"
response.write "</tr>"
%>