【求教】关asp循环选择、赋值的问题。excel导入数据库

<div id="basediv" style="display:none">
<select name="baseselect" style="height:20px;">
<option value="">----</option>
<%
if request("xls_table")="" then
    showerr "请选择EXCEL表"
end if
if request("mdb_table")="" then
    showerr "请选择ACCESS表"
end if
     sql="select * from ["&request("xls_table")&"]"
     set rs=Server.CreateObject("ADODB.Recordset")
     rs.open sql,xls_conn,1,1
     dim i
     response.write rs.Fields.count
     for i=0 to rs.Fields.count-1%>
     <option value="<%=rs.Fields(i).Name%>"><%=rs.Fields(i).Name%></option>  
    <%next
      rs.close
%></select></div>
<table width="400" border="0" cellspacing="1" cellpadding="2">
<form action="import.asp?action=import" method="post">
     <tr>
    <td class="title">选择导入字段
       <input name="mdb_table" type="hidden" id="mdb_table" value="<%=request("mdb_table")%>" />
    <input name="xls_table" type="hidden" id="xls_table" value="<%=request("xls_table")%>" /></td>
    </tr>
     <tr>
    <td align="center">
    <table border="0" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF" style="background-color:#FFFFFF">
            <tr>
              <td align="left">ACCESS<span class="word"><%=request("mdb_table")%></span>表</td>
              <td width="30" align="center">　</td>
              <td>EXCEL<span class="word"><%=request("xls_table")%></span>表</td>
            </tr>
            <%sql="select * from ["&request("mdb_table")&"] where 1<>1"
      rs.open sql,mdb_conn,1,1
      for i=0 to rs.Fields.count-1%>
            <tr>
              <td align="center" class="border"><%=rs.Fields(i).Name %></td>
              <td width="30" align="center" class="word"> &lt;-</td>
              <td id="div_<%=rs.Fields(i).Name%>">　</td>
     <script>setdiv("<%=rs.Fields(i).Name%>");</script>
            </tr>
            <%next%>
          </table></td>
     </tr>
     <tr>
    <td align="center"><input type="submit" name="Submit4" value="开始导入" /></td>
     </tr>
    </form>