控件问题，急急急!知道的多指教呀!

本人用的无限未知2003版本，下载了一个整站程序，但在录入新闻时编辑框是红色的交叉，请问这是什么问题？这个整站在XP中没有问题。以下是代码，请高手指教!
<!--#include file=conn.asp -->
<%
IF not(Session("KEY")="super" or Session("KEY")="input") THEN
response.redirect "login.asp"
response.end
END IFBigClassName=Request.Form("BigClassName")
if BigClassName="" then
%>
<script language=javascript>
history.back()
alert("请选择新闻大类，如果没有新闻大类，将不能添加新闻，请在类别管理里添加您所需要的新闻大类的名称！")
</script>
<%
Response.End
end ifset rs=server.CreateObject ("ADODB.RecordSet")
rs.Source="select * from BigClass where BigClassName='" & BigClassName & "'"
rs.Open rs.source,conn,1,1
%>
<html><head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<script language="javascript">
<!--
function CheckForm()
{
document.form1.content.value=document.form1.doc_html.value;return true
}
//-->
</script>
</head><body>
<p>　</p>
<form method="POST" action="AddNews3.asp" onsubmit="return CheckForm()" name="form1">
<table border="0" width="80%" align=center bgcolor="#000000" cellspacing="1" cellpadding="3">
<tr bgcolor="#abb8d6">
<td colspan="2" width="688" height="55">
<div align="center"><b>增 加 新 闻</b></div>
</td>
</tr>
<input type=hidden name="BigClassName" value="<%=BigClassName%>">
<tr bgcolor="#FFFFFF">
<td width="17%" align="right" bgcolor="#FFFFFF">所属大类：</td>
<td width="83%"> <%=trim(rs("BigClassName"))%></td></tr>

<tr bgcolor="#FFFFFF">
<td width="17%" align="right" bgcolor="#FFFFFF">所属小类：</td>
<td width="83%"><select name="SmallClassName" size="1">
<%
set rs2=server.createobject("adodb.recordset")
rs2.Source="select * from SmallClass where BigClassName='" &  rs("BigClassName") & "' order by SmallClassid"
rs2.open rs2.Source,conn,1,1
if rs2.eof and rs2.bof then
response.write "<option value="">还没有小类</option>"
else
%>
<option value="">选择小类</option>
<%do while not rs2.eof%>
<option value='<%=trim(rs2("SmallClassName"))%>'><%=trim(rs2("SmallClassName"))%></option>
<%
rs2.movenext
loop
end if
rs2.close
%>
</select>
<tr bgcolor="#FFFFFF">
<td width="17%" align="right" bgcolor="#FFFFFF">所属专题：</td>
<td width="83%"><select name="SpecialID" size="1">
<%
set rs3=server.CreateObject ("ADODB.RecordSet")
rs3.Source="select * from Special"
rs3.Open rs3.source,conn,1,1
%>
<option value=0>不属于任何专题</option>
<%if rs3.EOF then %>
<option value=0>暂无任何专题</option>
<%else
while not rs3.EOF
%>
<option value='<%=rs3("SpecialID")%>'><%=trim(rs3("SpecialName"))%></option>
<%
rs3.MoveNext
wend
end if
rs3.close
%>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="17%" align="right">新闻标题：</td>
<td width="83%">
<input type="text" name="Title" size="86">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="17%" align="right">作者：</td>
<td width="83%">
<input type="text" name="Author" size="56">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="17%" align="right">原出处：</td>
<td width="83%">
<input type="text" name="Original" size="56">
</td>
</tr>
<tr bgcolor="#CCCCCC" align="center" valign="bottom">
<td width="17%" align="right" valign="top" bgcolor="#FFFFFF" >文章内容：</td>
<td width="83%" bgcolor="#FFFFFF" align="left">
<object id=doc_html style="LEFT: 0px; TOP: 0px" data=editor.htm width=544 height=320 type=text/x-scriptlet  VIEWASTEXT></object>
<input type="hidden" name="content" >
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="17%" align="right">编码方式：</td>
<td width="83%">
<select size="1" name="EnCode">
<option value="html">默认方式</option>
<option value="ubb">UBB</option>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="17%" align="right">热点：</td>
<td width="83%">
<input type="radio" value="1" name="hot">
是&nbsp;&nbsp;
<input type="radio" value="0" checked name="hot">
否</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="17%" align="right">图片张数：</td>
<td width="83%">
<select size="1" name="image">
<option selected>0</option>
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
<option>6</option>
<option>7</option>
<option>8</option>
<option>9</option>
<option>10</option>
</select>
<a href="HowToInsertImage.asp" target="_blank"><font color=336699>使用说明</font></a>&nbsp;&nbsp;&nbsp;&nbsp;
插入格式
<input type="text" name="textfield" value="[[p align=center]][[image1]][[/p]] " size="50">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="17%"></td>
<td width="83%"></td>
</tr>
<tr bgcolor="#abb8d6">
<td colspan="2" width="588" align="center" height="55">
<input type="submit" value=" 添 加 "
name="cmdok" class="unnamed5">
&nbsp;
<input type="reset" value=" 清 除 "
name="cmdcancel" class="unnamed5">
</td>
</tr>
</table>
</form>
</body></html>
<%Conn.Close
Set Conn=nothing%>