Problemas con el acceso a una pagina

Tengo el siguiente problema y es que pasa algo bastabte extraño, tengo una pagina que a veces ingresa y otras no y cuando no ingresa sale el mensaje de que no encuentra la pagina, por lo que con el mismo archivo siempre ocurren tres errores diferentes.
Se verifico que el archivo no hubiera sido borrado o cambiado de su sitio original.
Aqui esta el codigo de la pagina
<%@ Language=VBScript %>
<%
if session("autor")<>616 then
Response.Redirect("index.htm")
end if
host=Request.Form("cmbhost")
if host="0" then
host=Request.Form("host")
end if
sql="select h.codigo as harw, d.descripcion as dispo,m.descripcion as mod, c.nombre as ciu, h.modelo, m.dispositivo, h.interfaceu as unidad, h.interfacej as jefatura, h.interfaced as dependencia "
sql=sql & " from hardware h, modelos m, dispositivo d, ciudad c "
sql=sql & " where m.dispositivo=d.codigo and h.modelo=m.codigo and h.host="&host
sqlsoft="Select codigo, software from uni_software where hardware="&host & " order by software"
sqling="select codigo, nombre from ingeniero order by nombre"
sqlservicio="select * from tipo_local"
sqlproblema="select * from problema order by descripcion"
'linea añadida
set conn=server.CreateObject("ADODB.connection")
set rs=server.CreateObject("ADODB.recordset")
set rssoftware=server.CreateObject("ADODB.recordset")
set rsingeniero=server.CreateObject("ADODB.recordset")
set rsservicio=server.CreateObject("ADODB.recordset")
set rsproblema=server.CreateObject("ADODB.recordset")
conn.Open Application("Connection2_ConnectionString")
set rs=conn.Execute(sql)
if rs.EOF then
%>
<SCRIPT LANGUAGE=javascript>
alert("No existe Equipo");
history.go(-1);
</SCRIPT>
<%
end if
set rssoftware=conn.Execute(sqlsoft)
set rsingeniero=conn.Execute(sqling)
set rsservicio=conn.Execute(sqlservicio)
set rsproblema=conn.Execute(sqlproblema)
'linea añadida
set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.Open Session("orafac_ConnectionString"), Session("orafac_RuntimeUserName"), Session("orafac_RuntimePassword")
SET rs1 = Server.CreateObject("ADODB.RecordSet")
rs1.ActiveConnection = Conn1
SET rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.ActiveConnection = Conn1
SET rs3 = Server.CreateObject("ADODB.RecordSet")
rs3.ActiveConnection = Conn1
SET rs4 = Server.CreateObject("ADODB.RecordSet")
rs4.ActiveConnection = Conn1
SET rs5 = Server.CreateObject("ADODB.RecordSet")
rs5.ActiveConnection = Conn1
SET rsdn = Server.CreateObject("ADODB.RecordSet")
rsdn.ActiveConnection = Conn1
Set cmd1 = Server.CreateObject("ADODB.Command")
cmd1.ActiveConnection = Conn1
sensql="SELECT distinct b.ape_mil,b.nom_mil,b.num_doc,g.sig_gra,b.cod_mil,b.cod_dpt,y.sig_dpt,j.sig_jef,u.sig_und, y.cod_und, y.cod_jef "
sensql=sensql&" FROM basico b, m_depart y, m_jefatu j, m_unidad u,m_grado g "
sensql=sensql&"WHERE y.cod_und (+) = b.cod_und And j.cod_jef=y.cod_dpt And y.cod_jef (+) = b.cod_jef And y.cod_dpt (+) = b.cod_dpt And g.cod_gra (+) = b.cod_gra And b.cod_mil = '"&session("codigo")&"'"
sql2="SELECT cod_und, sig_und, des_und from m_unidad "
sql3="SELECT cod_und, cod_jef, des_jef from m_jefatu "
sql4="SELECT cod_und, cod_jef, cod_dpt, sig_dpt, des_dpt from m_depart "
Rs1.open sensql
nom_usuario=rs1("ape_mil")&" "&rs1("nom_mil")
cod_und=rs1("cod_und")
cod_jef=rs1("cod_jef")
cod_dpt=rs1("cod_dpt")
sig_dpt=rs1("sig_dpt")
if rs1.EOF then
%>
<SCRIPT LANGUAGE=javascript>
alert("No existe Usuario");
history.go(-1);
</SCRIPT>
<% end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sw2=0
rs2.open sql2
while not rs2.eof
if cint(mid(rs("unidad"),1,len(rs2("cod_und"))))=cint(rs2("cod_und")) then
nom_und=rs2("des_und")
sw2=1
end if
rs2.MoveNext
wend
rs2.Close
if sw2=0 then
%>
<SCRIPT LANGUAGE=javascript>
alert("No existe Unidad");
history.go(-1);
</SCRIPT>
<%
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sw3=0
rs3.open sql3
while not rs3.eof
if cint(mid(rs("unidad"),1,len(rs3("cod_und"))))=cint(rs3("cod_und")) and cint(mid(rs("jefatura"),1,len(rs3("cod_jef"))))=cint(rs3("cod_jef")) then
nom_jefatura=rs3("des_jef")
sw3=1
end if
rs3.MoveNext
wend
rs3.Close
if sw3=0 then
%>
<SCRIPT LANGUAGE=javascript>
alert("No existe Jefatura");
history.go(-1);
</SCRIPT>
<%
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sw4=0
rs4.open sql4
while not rs4.eof
if cint(mid(rs("unidad"),1,len(rs4("cod_und"))))=cint(rs4("cod_und")) and cint(mid(rs("jefatura"),1,len(rs4("cod_jef"))))=cint(rs4("cod_jef")) and cint(mid(rs("dependencia"),1,len(rs4("cod_dpt"))))=cint(rs4("cod_dpt")) then
nom_dependencia=rs4("des_dpt")
sw4=1
end if
rs4.MoveNext
wend
rs4.Close
if sw4=0 then
%>
<SCRIPT LANGUAGE=javascript>
alert("No existe Dependencia");
history.go(-1);
</SCRIPT>
<%
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY topmargin="0">
<form id=datos name=datos method=post action=adllamadai.asp>
<div ID="Layer1" STYLE="position:absolute; z-index:1; left: 660px; top: 65px"><a href="sale.htm" target="menu"><img src="images/menu/inicio.gif" WIDTH="116" HEIGHT="22"></a></div>
<TABLE WIDTH=100% BORDER=1 CELLSPACING=0 CELLPADDING=0>
<tr BGCOLOR=#FFFFCC>
<td align=center colspan=2><FONT face="Verdana, Arial, Helvetica, sans-serif" size=3 color="#09135A"><b>APERTURA DE LLAMADAS</b></font></td>
</tr>
<TR>
<TD><font face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#09135A"><b>Número de Inv.:  <%=host%></b></font>
<font face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#09135A"><b><INPUT type="hidden" id=host name=host...