高手，帮我看看哪里不对？

接上
<%
strTime = request("ye")
stryear = CInt(strTime)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<!--#include file="../inc/js.asp"-->
<!--#include file="../inc/function.asp"-->
<script language="JavaScript">
function suby(z){
document.location.href="newcard.asp?ye="+z+""
}
function subm(z,x){
document.location.href="newcard.asp?ye="+z+"&mo="+x+""
}
function subd(z,x,y){
document.location.href="newcard.asp?ye="+z+"&mo="+x+"&da="+y+""
}
</script></head><body>
<div align="center"><font size="2">新建节目单</font></div>
<FORM method=post name=ecform action="addcard.asp">
<table width="60%" align="center" cols=1 id=PLList rules=rows border="1" bordercolor="#999999" >
<tr id=tdt>
<Th width="10%">
<FONT color=000000>删除
          <INPUT name=PLID type=hidden >
          <INPUT name=edit type=hidden >
          </FONT>
  </th>

      <td ln="1" align=center> 
  <select name="yea" onChange='suby(this.options[selectedIndex].value);'>
  <%
  
  if request("ye")<>"" then
if stryear mod 4=0 or stryear mod 400 = 0 then
ry="y"
end if
%>
   <option value="<%=stryear%>" selected><%=stryear%></option>
<%else%>
<option value="#">请选择</option>
<%end if%>
   <option value="2003">2003</option>
<option value="2004">2004</option>
<option value="2005">2005</option>
<option value="2006">2006</option>
<option value="2007">2007</option>
<option value="2008">2008</option>
  </select>年&nbsp;&nbsp;选择日期 
        <INPUT name=cname type=hidden>
<select name="month" onChange='subm(<%=stryear%>,this.options[selectedIndex].value)'>
<%
moth = request("mo")
dt = request("da")
if moth<>"" then
%>
<option value="<%=moth%>" selected><%=moth%></option>
<%else%>
<option value="#" selected>请选择</option>
<% end if%>
<option value="1">1</option>


</select>月
<input type="hidden" name="mo" value="<%=moth%>">
<%
if moth<>"" then
if CInt(moth)=1 or CInt(moth)=3 or CInt(moth)=5 or CInt(moth)=7 or CInt(moth)=8 or CInt(moth)=10 or CInt(moth)=12 then
%>
<select name="day" onChange="subd(<%=moth%>,this.options[selectedIndex].value)">
<% if dt<>"" then%>
<option value="<%=dt%>" selected><%=dt%></option>
<%else%>
<option value="#" selected>请选择</option>
<%end if%>
<option value="1">1</option>
<option value="2">2</option>

</select>
<% else 
if CInt(moth)=2 and ry="y" then
%>
<select name="day" onChange="subd(<%=stryear%>,<%=moth%>,this.options[selectedIndex].value)">
<% if dt<>"" then%>
<option value="<%=dt%>" selected><%=dt%></option>
<%else%>
<option value="#" selected>请选择</option>
<%end if%>
<option value="1">1</option>
<option value="2">2</option>
</select>
<%else 
if CInt(moth)=2 then
%>
<select name="day" onChange="subd(<%=stryear%>,<%=moth%>,this.options[selectedIndex].value)">
<% if dt<>"" then%>
<option value="<%=dt%>" selected><%=dt%></option>
<%else%>
<option value="#" selected>请选择</option>
<%end if%>
<option value="1">1</option>
<option value="2">2</option>
</select>
<%else 
if CInt(moth)=4 or CInt(moth)=6 or CInt(moth)=9  or CInt(moth)=11 then
%>
<select name="day" onChange="subd(<%=stryear%>,<%=moth%>,this.options[selectedIndex].value)">
<% if dt<>"" then%>
<option value="<%=dt%>" selected><%=dt%></option>
<%else%>
<option value="#" selected>请选择</option>
<%end if%>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select>
<%
end if
end if
end if
end if
end if
%>日&nbsp;&nbsp;
<input type="hidden" name="dt" value="<%=dt%>">
<%
if stryear<>"" and moth<>"" and dt<>"" then
call week(stryear,moth,dt)
end if
%>
</td>
</tr>

<tr id=tdt onclick=lightOn() ln="1">
<td onclick=delIt() onmouseout=mouseOut() 
    onmouseover=mouseOver() ln="1" background="../image/font.jpg" >&nbsp;</a></td>
<td  ln="1">
          <INPUT name=PLID type=hidden 
      value=54 ln="1">
          <INPUT name=edit type=hidden value=0>&nbsp;时间
<%call datetime()%>&nbsp;&nbsp;
节目名：<input type="text" name=cname
      onkeyup=modifiedIt(this) size=25 value="" 
    ln="1">


</td>
</tr>
</table>
<SCRIPT>
allCount=2
</SCRIPT>
<table align=center border=1  bordercolor="#999999" 
cellPadding=1 cellSpacing=1 class=controlPanel cols=4 rules=all width="60%" 
nowrap>
<tr><TD  colspan="2" align="center" class=controlPanel  
    onmouseout="this.className='controlPanel'" 
    onmouseover="this.className='controlPanelMouseOver'" style="cursor:hand" >
<input type="button" onclick=newHospitalVisit() value="增加一条">&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" value="提交节目单"></TD></tr>
</table>
</form>
</body>
</html>