我修改了科讯全站搜索（文件样式没有问题）为什么搜索底下出现了空白？如下

<%
'****************************************************
' Software name:Kesion CMS 7.0
' Email: service@kesion.com . QQ:111394,9537636
' Web: http://www.kesion.com http://www.kesion.cn
' Copyright (C) Kesion Network All Rights Reserved.
'****************************************************
'-----------------------------------------------------------------------------------------------
'科汛网站管理系统,通用刷新类
'开发:林文仲 版本 V 6.0
'-----------------------------------------------------------------------------------------------
Dim ShCls:Set ShCls=New RefreshSearchCls
Class RefreshSearchCls
  Private KS 
  Private Sub Class_Initialize()
    Set KS=New PublicCls
  End Sub
        Private Sub Class_Terminate()
   Set KS=Nothing
   Set ShCls=Nothing
  End Sub
  
  '替换网站的所有搜索
  Function Run(byVal tag)
   tag=Lcase(tag)
   if tag="getsearchbydate" then
     Run=GetSearchByDate()
   elseif tag="getsearch" then
     Run=GetSearch()
   else
    If not IsObject(Application(KS.SiteSN&"_ChannelConfig")) Then KS.LoadChannelConfig
    Dim ModelXML,Node
    Set ModelXML=Application(KS.SiteSN&"_ChannelConfig")
    For Each Node In ModelXML.DocumentElement.SelectNodes("channel")
     if tag=lcase("get" & Node.SelectSingleNode("@ks10").text & "search") then
       run="<script src=""" & KS.Setting(3) & KS.Setting(93) & "S_" & Node.SelectSingleNode("@ks10").text & ".js""></script>"
     end if
    Next
   end if
  End Function
  
  '取得高级日历搜索
  Function GetSearchByDate()
   GetSearchByDate="<iframe id=gToday:normal:agenda.js style=""BORDER-RIGHT: 0px ridge; BORDER-TOP: 0px ridge; BORDER-LEFT: 0px ridge; BORDER-BOTTOM: 0px ridge"" name=gToday:normal:agenda.js src=""" & KS.Setting(3) & "KS_Inc/iflateng.htm?../plus/search/?m=1&stype=100"" frameBorder=0 width=160 scrolling=no height=170></iframe>"
  End Function
  '取得总搜索
  Function GetSearch()
      GetSearch = "<form id=""SearchForm"" name=""SearchForm"" method=""Get"" action=""" & KS.Setting(3) &"plus/search/"">" & vbCrLf
      GetSearch = GetSearch & "<table width=570 height=42 border=0 cellpadding=0 cellspacing=0>" & vbCrLf
      GetSearch = GetSearch & "<tr>" & vbCrLf
      GetSearch = GetSearch & "<td width=10><img src=/imges/sh_1.jpg width=10 height=42></td>" & vbCrLf
      GetSearch = GetSearch & "<td width=424 background=/imges/sh_2.jpg>" & vbCrLf
      GetSearch = GetSearch & "<input name=""key"" style=""border:0px;"" type=""text"" class=""textbox"" onblur=""if (value ==''){value='请输您的关键词如：苏州计量校准、仪器校准检测'}"" ""if (value =='请输您的关键词如：苏州计量校准、仪器校准检测'){value =''}"" value=""请输您的关键词如：苏州计量校准、仪器校准检测"" size=40/></td>" & vbCrLf
      GetSearch = GetSearch & "<td width=96>" & vbCrLf
      GetSearch = GetSearch & "<table width=128 height=42 border=0 cellpadding=0 cellspacing=0>" & vbCrLf
      GetSearch = GetSearch & "<tr>" & vbCrLf
      GetSearch = GetSearch & "<td height=6><img src=/imges/sh_4.jpg width=128 height=6></td>" & vbCrLf
      GetSearch = GetSearch & "</tr>" & vbCrLf
      GetSearch = GetSearch & "<tr>" & vbCrLf
      GetSearch = GetSearch & "<td height=30 align=center valign=middle><div style=""height:30px;cursor: hand""><img src=/imges/sh_5.jpg alt=点击搜索 width=128 height=30 ""SearchForm.submit()"">" & vbCrLf
      GetSearch = GetSearch & "</div></td>" & vbCrLf
      GetSearch = GetSearch & "</tr>" & vbCrLf
      GetSearch = GetSearch & "<tr>" & vbCrLf
      GetSearch = GetSearch & "<td><img src=/imges/sh_6.jpg width=128 height=6></td>" & vbCrLf
      GetSearch = GetSearch & "</tr>" & vbCrLf
      GetSearch = GetSearch & "</table></td>" & vbCrLf
      GetSearch = GetSearch & "<td width=8><img src=/imges/sh_3.jpg width=8 height=42></td>" & vbCrLf
      GetSearch = GetSearch & "</tr>" & vbCrLf
      GetSearch = GetSearch & "</table>" & vbCrLf
      GetSearch = GetSearch & "</form>" & vbCrLf
  End Function

End Class
%>

求救！！！！！！！！！！！急