Se cuelga el servidor al tratar de llamar una página ASP

emont · #1 (**permalink**) 07/04/2003, 09:20

Hola, tengo la siguiente inquietud, tengo un par de paginas en asp las cuales cuando las invoco a travès de un link se queda aparentenmente en un loop, me toca salir de la intranet y tambièn me toca reiniciar el servidor por lo que se presentan problemas con los usuarios

Coloco el codigo completo de una pàgina para me puedan hacer el favor de ayudarme:

<%@ Language=VBScript %>
<%
if session("autor")<>616 then
%>
<SCRIPT LANGUAGE=javascript>
window.top.location.href="http://ser_fac05/webfac/caducidad.html";
</SCRIPT>
<%
end if

sql="Select * from llamadas where fchate<>'null' and fchcie<>'null'"
if session("tipo")<> "S" then
sql=sql + " and interfaceu = '"&session("interfaceu")&"'"
end if
sql=sql& " order by fllamada"

set conn=server.CreateObject("ADODB.Connection")
conn.Open Application("Connection2_ConnectionString")

set rs_consulta=conn.Execute(sql)

set rs_problema=server.CreateObject("ADODB.recordset")

set rs_servicio=server.CreateObject("ADODB.recordset")

set rs_grp=server.CreateObject("ADODB.recordset")

set rs_ingeniero=server.CreateObject("ADODB.recordset" )

%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY topmargin=0>
 <center>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD colspan=10 BGCOLOR=#FFFFCC>
LLAMADAS
<%'arch_excel.writeline "LLAMADAS"%></TD>
</TR>
<TR>
<TD bgcolor=#FFFFCC>
N.Llamada</TD>
<TD bgcolor=#FFFFCC>
Fecha</TD>
<TD bgcolor=#FFFFCC>
Tipo</TD>
<TD bgcolor=#FFFFCC>
Proveedor</TD>
<TD bgcolor=#FFFFCC>
Técnico</TD>
<TD bgcolor=#FFFFCC>
</TR>
<%
'arch_excel.writeline " "
'arch_excel.writeline "Llamada"&chr(9)&"Fecha"&chr(9)&"Tipo"&chr(9)&"Pro veedor"&chr(9)&"Técnico"&chr(9)&"Modelo"&chr(9)&"S oftware"&chr(9)&"Componente"&chr(9)&"Problema"&chr (9)&"Detalle Llamada"&chr(9)&"Detalle Solución"
'arch_excel.writeline " "

if rs_consulta.EOF then
%>
<TR>
<TD align=center colspan=8>No hay registros</TD>
</TR>
<%
else
while not rs_consulta.eof
sql_p="select * from problema where codigo="&rs_consulta("problema")
set rs_problema=conn.Execute(sql_p)

sql_se="select * from tipo_local where tipo="&rs_consulta("servicio")
set rs_servicio=conn.Execute (sql_se)

sql_gr="select * from grupos_ing where codigo="&rs_consulta("grupo")
set rs_grp=conn.Execute (sql_gr)

sql_i="select codigo,nombre from ingeniero where codigo="&rs_consulta("ingeniero")
set rs_ingeniero=conn.Execute(sql_i)
'linea = rs_consulta("numero")&chr(9)&rs_consulta("fllamada ")&chr(9)&rs_consulta("mantenim")&chr(9)&rs_consul ta("xgrup")&chr(9)&rs_consulta("xing")&chr(9)&rs_c onsulta("modelo")&chr(9)&rs_consulta("software")&c hr(9)&rs_consulta("xser")&chr(9)&rs_consulta("xpro b")&chr(9)&rs_consulta("detalle")&chr(9)&rs_consul ta("solucion")
'arch_excel.writeline linea
%>
<TR>
<TD bgcolor=#E8E8FF> <%=rs_consulta("numero")%></TD>
<TD bgcolor=#E8E8FF> <%=rs_consulta("fllamada")%></TD>
<TD bgcolor=#E8E8FF>
<%if rs_consulta("mantenim")="S" then
Response.Write("Software")
end if
if rs_consulta("mantenim")="H" then
Response.Write("Hardware")
end if
if rs_consulta("mantenim")="C" then
Response.Write("Comunicación")
end if
%></TD>
<TD bgcolor=#E8E8FF> <%=rs_grp("nombre")%></TD>
<TD bgcolor=#E8E8FF> <%=rs_ingeniero("nombre")%></TD>
</tr>
<TR>

<TD bgcolor="#FFFFCC" >
Placa 
</TD>
<TD bgcolor=#FFFFCC>
Modelo</TD>
<TD bgcolor=#FFFFCC>
Software</TD>
<TD bgcolor=#FFFFCC>
Componente</TD>
<TD bgcolor=#FFFFCC>
Problema</TD>
</TR>
<tr>
<TD> <%=rs_consulta("host")%></TD>
<TD> <%=rs_consulta("modelo")%></TD>
<TD> <%=rs_consulta("software")%></TD>
<TD> <%=rs_servicio("descripcion")%></TD>
<TD> <%=rs_problema("descripcion")%></TD>
</TR>

<TR>
<TD>
 </TD>
<TD colspan=2 bgcolor=#FFFFCC>
Llamada</TD>
<TD colspan=2 bgcolor=#FFFFCC>
Solución</TD>
<TD>
</TR>
<tr>
<TD> </TD>
<TD colspan=2> <%=rs_consulta("detalle")%></TD>
<TD colspan=2> <%=rs_consulta("solucion")%></TD>
</tr>
<TR>
<TD colspan=10 BGCOLOR=#FFFFCC>
_______________</TD>
</TR>

<%
rs_consulta.MoveNext
wend

end if
%>
</table>

</center>
</BODY>
</HTML>

Que es lo que esta mal y como puedo solucionarlo?
Muchas gracias por la ayuda.

maestro · #2 (**permalink**) 07/04/2003, 09:53

En ningun caso un codigo ASP (salvo extraños scripts maliciosos, tipo gusano, cuya funcion sera consumir todos los recursos del sistema) deberia poder colgar un servidor, en todo caso devolverte un mensaje de error informandote de que la pagina no se puede ejecutar y el error correspondiente.

Sospecho que ese equipo o su S.O. no esta muy catolico.

ElAprendiz · #3 (**permalink**) 07/04/2003, 09:58

no es necesario colocar todo el codigo html eso hace mas dificil la lectura....

maestro · #4 (**permalink**) 07/04/2003, 10:03

Sobre todo el HTML, si el problema es de ASP basta con aislar unas pocas lineas del codigo ASP.