牛人帮忙啊？asp程序，转向不成功。

[code=text]


<form action ="?action=save" method=post name="theForm" id="theForm" onSubmit="return doCheck();">
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="tableborder">
  <tr>
    <td colspan="2" class="header" align="center">添加信息</td>
  </tr>
  <tr>
    <td class="altbg1" width="100">文章类别</td>
    <td class="altbg2"><select name="tid">
<option value=""><-请选择文章类别-></option>
<%
Dim optioncase,tname,color,id,isselect
id=request("id")
if id<>"" then checkid(id)
Set Rs=Conn.Execute("select ID,Tname,tn,tj from "&Table_Pre&"_Class where tj>0 and include=1 order by ts")
Do While not rs.eof
tname=replace(rs("tname"),"|","->")
if rs("tj")=2 and rs("tn")<>"" then
i=i+1
if i=2 then
i=0
color="#FF0000"
else
color="#000000"
end if
end if
if rs("id")=clng(id) then isselect="selected"
optioncase=optioncase&"<option value='"&rs("id")&"' "&isselect&">"&tname&"</option>"
isselect=""
rs.MoveNext
loop
Rs.close:Set Rs = Nothing
Response.write optioncase%></select></td>
  </tr>
<%
hid=rtnreplaceint(request("hid"),0)
lpname=changechr(request("lpname"))
if len(lpname)<2 then
slpname="请选择楼盘..."
else
slpname=lpname
end if
%>
  <tr>
    <td class="altbg1">文章标题</td>
    <td class="altbg2"><input type="text" style="height: 20px; border: 1px solid #999999; background: url('../../Images/rule.gif')" maxLength="160" size="50" name="title" value="<%=request("title")%>"> 
      
  <% Dim n
if id>0 then
Set Rs=Conn.Execute("Select Format from "&Table_Pre&"_Class where id="&id)
n=rs("Format")
Rs.Close:Set Rs=Nothing
else
n=1
End if
%>
<script language="JavaScript" type="text/javascript">
<!--
function ChkLink(){
if (document.getElementById('IsLink').checked == true) {
document.getElementById('ChkIsLink').style.display = '';
document.getElementById('ChkNoLink').style.display = 'none';
}else{
document.getElementById('ChkIsLink').style.display = 'none';
document.getElementById('ChkNoLink').style.display = '';
}
}
//-->
</script>



  <tr>
            <td width="100" align="right"><strong>转向链接：</strong></td>
            <td><input name="IsLink" type="checkbox" id="IsLink" value="1" OnClick="ChkLink();">&nbsp;转向链接</td>