急!请指教,文本框位置不对 - 编程论坛

下面是借鉴一个网页的代码并做了一些修改,但运行后显示文本框没有出现在年度和月份的表格中,本人是初学asp编程,找不到问题所在,请帮助修改一下,非常感谢!错误显示图片如下:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<% dim myn,myy,rs,sql
   myn = Request("myn")
   myy = Request("myy")
set rs=server.CreateObject("adodb.recordset")
sql="SELECT id, tj_xm,tj_n,tj_y FROM sj_tjzt"
rs.open sql,conn,1,3
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<%
'显示表头
Sub ShowHeader(tabletitle)
      Response.Write("<p>[<b>" & tabletitle & "</b>]")
      Response.Write("<table border='1' width='80%'>")
      Response.Write("<tr align='left'>")
      Response.Write("<th width='25%'>项目</th>")
      Response.Write("<th width='25%'>年度</th>")
      Response.Write("<th>月份</th>")
      Response.Write("</tr>")
   End Sub
'生成文本框
   Sub ShowTextBox(tbname, i, tbmaxlen)
      Response.Write("<td><input type=text size=16")
      Response.Write(" name=" & tbname & i)
      Response.Write(" maxlength=" & tbmaxlen)
      Response.Write("></td>")
   End Sub
'显示记录
   If rs.RecordCount > 0 Then
      Call ShowHeader("录入管理")
      For i = 1 To rs.RecordCount
         Response.Write("<tr>")
         Response.Write("<td>" & rs("tj_xm") & "</td>")
         Response.Write("<td>" & rs("tj_n") & "</td>")
         Response.Write("<td>" & rs("tj_y") & "</td>")
         Call ShowTextBox("nd", i, 3)
         Call ShowTextBox("yf", i, 3)
         Response.Write("</tr>")
         rs.MoveNext
      Next
      Response.Write("</table>")
   End If
%>
        <tr>
      <td> </td>
      <td><input type="submit" name="Submit" value="提交">
        <input type="reset" name="Submit2" value="重置"></td>
      <td> </td>
    </tr>
  </table>
</form>
<% rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>