下拉框的问题,十万紧急,请大家帮忙,先谢谢了


<%
lotto=trim(request("lotto"))
if lotto="" then
lotto=19
else
lotto=trim(request("lotto"))
end if
ch=trim(request("ch"))
if ch="" then
ch=1
else
ch=trim(request("ch"))
end ifissue=trim(request("issue"))
%>
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="../css/style.css" type=text/css rel=stylesheet>
<SCRIPT src="check_form_std.js"></SCRIPT>
<SCRIPT language=javascript src="Tabledata.js"></SCRIPT>
<SCRIPT language=vbscript src="Formatdata.vbs"></SCRIPT>
<script language="Javascript">
function openScript(url, width, height){
var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=no,status=yes' );
}
function openem1(txt)
{ 
var txt=txt;
openScript('../hopbuy/checkcase.asp?lotto='+txt,650,370); 
}
function openem2(txt)
{ 
var txt=txt;
openScript('../hopbuy/checkuser.asp?txtname='+txt,850,450);
}
</script>
<script language="javascript">
function changelocation(issueObj,lotto,ch)
{
var issue=issueObj.value;
var lotto=lotto;
var ch=ch;
window.location.href="ind_case.asp?lotto="+lotto+"&issue="+issue+"&ch="+ch;
}
</script>
<META content="MSHTML 6.00.2900.2963" name=GENERATOR>
</HEAD>
<BODY>
<TABLE width="588" border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD><table width="588" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="515" height="24" background="../images/top_8.gif"><table width="100%"  border="0" align="right" cellpadding="0" cellspacing="0">
            <tr>
  <td width="120" height="24">&nbsp;&nbsp;&nbsp;&nbsp;
    <select name="select1" onChange="javascript:changelocation(this,<%=lotto%>,<%=ch%>)">
    <%
rs.open "select issue from issue where lotto="&lotto&" and startdate<= getdate()  and enddate>=getdate() order by issue desc" ,conn,1
    if not rs.eof then
%>
    <%
do while not rs.eof
%>
    <option value="<%=rs("issue")%>"><%=rs("issue")%></option>
    <%
rs.movenext
loop
else
%>
<option value="">没有期号</option>
<%
end if
rs.close
set rs=nothing
%>
                </select></td>
              <td align="right"><a href="?lotto=19&ch=1"><%if ch=1 then%><font color="#FF0000">胜负彩</font><%else%>胜负彩<%end if%></a>&nbsp;|&nbsp;<a href="?lotto=20&ch=2"><%if ch=2 then%><font color="#FF0000">进球彩</font><%else%>进球彩<%end if%></a>&nbsp;|&nbsp;<a href="?lotto=20&ch=3"><%if ch=3 then%><font color="#FF0000">任选九场</font><%else%>任选九场<%end if%></a>&nbsp;|&nbsp;<a href="?lotto=14&ch=4"><%if ch=4 then%><font color="#FF0000">双色球</font><%else%>双色球<%end if%></a>&nbsp;|&nbsp;<a href="?lotto=15&ch=5"><%if ch=5 then%><font color="#FF0000">福彩3D</font><%else%>福彩3D<%end if%></a>&nbsp;|&nbsp;<a href="?lotto=30&ch=6"><%if ch=6 then%><font color="#FF0000">七星彩</font><%else%>七星彩<%end if%></a>&nbsp;|&nbsp;<a href="?lotto=34&ch=7"><%if ch=7 then%><font color="#FF0000">22选5</font><%else%>22选5<%end if%></a></td>
              <td width="15">&nbsp;</td>
            </tr>
        </table></td>
        <td width="73" align="right"><img src="../images/more_2.gif" width="73" height="24"></td>
      </tr>
    </table></TD>
  </TR>
  <TR>
    <TD>
 <TABLE id=tabledata1 cellSpacing=1 cellPadding=1 width="100%" border=0>
        <TBODY>
        <TR bgcolor="#C7C7C7" class=tr1>
          <TD height=24>&nbsp;&nbsp;</TD>
          <TD align=middle>方案编号</TD>
          <TD align=middle>发起人</TD>
          <TD align=middle>战绩</TD>
          <TD align=middle>方案金额</TD>
          <TD align=middle>每份金额</TD>
          <TD align=middle>剩余份数</TD>
          <TD align=middle>进度</TD>
          <TD align=middle>认购份数</TD>
          <TD align=middle>金额</TD>
          <TD align=middle>&nbsp;</TD></TR>
  <%
  set rs=server.createobject("adodb.recordset")
  if lotto<>"" then
  if issue<>"" then
  sql="select top 100 * from cases where lotto='"&lotto&"' and issue="&issue&" and buyType=0 order by submitdate desc"
  else
  sql="select top 100 * from cases where lotto='"&lotto&"' and issue=51500000  and buyType=0  order by submitdate desc"
  end if
  else
  sql="select top 100 * from cases where buyType=0 order by submitdate desc"
  end if
  'response.Write(sql)
  rs.open sql,conn,1,1
  if not rs.eof then
  %>
  <%
  i=0
  while (not rs.eof) and (i<10) 
  
  
  if (rs("total")-rs("joinNum"))=0 then
     rs.movenext
  else
  i=i+1
  Spec=conn.execute("select spec from users where username='"&rs("initiator")&"'")(0)
  %> 
        <TR class=tr3 <%if (i mod 2)=0 then%>bgcolor="#F7F7F7"<%end if%>>
          <TD height="24" align=middle class=line5><%=i%></TD>
          <TD class=line5 align=middle><a style="cursor:hand;" onClick="JavaScript:openem1(<%=rs("caseId")%>)"><%=rs("caseId")%></a></TD>
          <TD class=line5 noWrap><a style="cursor:hand;" onClick="JavaScript:openem2('<%=rs("initiator")%>')" <%if Spec=1 then%>title="专家团队"<%end if%>><%if Spec=1 then%><font color="#ff0000"><%=rs("initiator")%></font><%else%><%=rs("initiator")%><%end if%></a></TD>
          <TD class=line5 align=middle><%
    Star=conn.execute("select star from users where username='"&rs("initiator")&"'")(0) 
select case Star
case "0"
response.write "--"
case "1"
response.write "<img src='../images/star2.gif' border='0'>"
case "2"
response.write "<img src='../images/star1.gif' border='0'>"
case "3"
response.write "<img src='../images/star1.gif' border='0'>&nbsp;<img src='../images/star2.gif' border='0'>"
case "4"
response.write "<img src='../images/star1.gif' border='0'>&nbsp;<img src='../images/star1.gif' border='0'>"
case "5"
response.write "<img src='../images/star1.gif' border='0'>&nbsp;<img src='../images/star1.gif' border='0'>&nbsp;<img src='../images/star2.gif' border='0'>"
case "6"
response.write "<img src='../images/star1.gif' border='0'>&nbsp;<img src='../images/star1.gif' border='0'>&nbsp;<img src='../images/star1.gif' border='0'>"
    end select
%></TD>
          <TD class=line5 align=right><%=rs("price")* rs("total") %></TD>
          <TD class=line5 align=right><%=rs("price")%></TD>
          <TD class=line5 align=right><%=rs("total")-rs("joinNum") %></TD>
          <TD class=line5 align=middle><%=Cint(rs("joinNum")/rs("total")*100)%>%</TD>
          <TD class=line5 align=middle><INPUT class=input onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" onkeyup="this.value=this.value.replace(/[^\d]/g,'');Static_Money(1,<%=i%>)" maxLength=5 size=3 name=textfield32></TD>
          <TD class=font1 align=right>￥0</TD>
          <TD class=line5 align=middle><A onclick="return submitOrder(1,<%=i%>);" href="#"> <IMG src="../images/queding.gif" border=0></A></TD>
</TR>
<%
rs.movenext
end if
wend
else
 %>
<tr><td colspan="11">暂时还没有发布方案！</td></tr>

<%end if
rs.close
set rs=nothing
%>
<tr>
  <td height="22" colspan="11" align="left"> <p>半颗星：(代购)合买方案成功或者(代购)合买方案流产盈利超过5万，且超过方案金额10倍。</p></td>
...
  相关说明:本页为一个彩票合买,
          通过点击不同的"lotto"来调出不同的下拉框信息也就是"issue"
          在下拉框中选不同的"issue"又在下面显示不同的方案.
           
          
          错误有两了:一.下拉框选了issue时,刷新时总是最后一个.
                    比喻下拉框中有(110.111.112.)如果我选择111.刷新后还是选中的112.
            二.提取数据的判断出错.没有数据.(以下两处可能有错)
           1.startdate<= getdate()  and enddate>=getdate() 
           2.if lotto<>"" then
             if issue=issue1 then
 情况紧急,先谢谢大家了.