ASP脚本运行过长，帮忙看下如何修改

<%
dim id,company,intro,graph2,description,remarks,price,rs2,strSorts,strCategory
id=Int(saferequest("id",1))


set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from product where id="& id ,conn,1,3
if rs2.eof and rs2.bof then
response.Write " <script language='javascript'>alert('查无此记录，请正确操作！');history.go(-1); </script>"
response.End
end if
rs2("viewnum")=rs2("viewnum")+1
rs2.update
IntCatID = rs2("categoryid")
IntCatIDLong=IntCatID

      set rs=server.CreateObject("adodb.recordset")
  do while not IntCatID = 0
  rs.open "Select categoryid,category,ParentID from category Where categoryid="&IntCatID,conn
 
  if rs.eof and rs.bof then
  response.Write " <script LANGUAGE='javascript'>alert('您输入的参数非法，请正确操作！');history.go(-1); </script>"
  rs.close
  set rs = Nothing
  conn.Close
  set conn=nothing
  response.end
  end if

  strCategory = " <a href=b2b_cplist.asp?catid="&rs("categoryid")&">"&rs("category")&" </a>－