Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problems with my ASP page
Message
De
07/04/2003 10:49:06
Edgar Salcedo
Bogotá, Colombie
 
 
À
Tous
Information générale
Forum:
ASP.NET
Catégorie:
Autre
Titre:
Problems with my ASP page
Divers
Thread ID:
00774715
Message ID:
00774715
Vues:
62
Hello, i have two pages with the exact same problem in both the server seems to fall into a loop and i have to quit the application but i ahve to restart the server too, causing problems to the intranet users.

I'm going to place the code for one of those pages:
<%@ 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>
<p> </p><center>
<TABLE  BORDER=1 CELLSPACING=1 CELLPADDING=1>
    <TR>
        <TD colspan=10 BGCOLOR=#FFFFCC>
      <P align=center><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=4><b>LLAMADAS
      <%'arch_excel.writeline "LLAMADAS"%></b></FONT></P></TD>
    </TR>
    <TR>
        <TD bgcolor=#FFFFCC>
      <P align=center><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1><STRONG>N.Llamada</STRONG></font></P></TD>
        <TD bgcolor=#FFFFCC>
      <P align=center><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1><STRONG>Fecha</STRONG></font></P></TD>
        <TD bgcolor=#FFFFCC>
      <P align=center><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1><STRONG>Tipo</STRONG></font></P></TD>
        <TD bgcolor=#FFFFCC>
      <P align=center><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1><STRONG>Proveedor</STRONG></font></P></TD>
        <TD bgcolor=#FFFFCC>
      <P align=center><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1><STRONG>Técnico</STRONG></font></P></TD>
        <TD bgcolor=#FFFFCC>
    </TR>
    <%
        'arch_excel.writeline " "
        'arch_excel.writeline "Llamada"&chr(9)&"Fecha"&chr(9)&"Tipo"&chr(9)&"Proveedor"&chr(9)&"Técnico"&chr(9)&"Modelo"&chr(9)&"Software"&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_consulta("xgrup")&chr(9)&rs_consulta("xing")&chr(9)&rs_consulta("modelo")&chr(9)&rs_consulta("software")&chr(9)&rs_consulta("xser")&chr(9)&rs_consulta("xprob")&chr(9)&rs_consulta("detalle")&chr(9)&rs_consulta("solucion")
        'arch_excel.writeline linea
    %>
        <TR>
            <TD bgcolor=#E8E8FF><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1> <%=rs_consulta("numero")%></font></TD>
            <TD bgcolor=#E8E8FF><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1> <%=rs_consulta("fllamada")%></font></TD>
            <TD bgcolor=#E8E8FF><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1> 
                    <%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
                     %></font></TD>
            <TD bgcolor=#E8E8FF><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1> <%=rs_grp("nombre")%></font></TD>
            <TD bgcolor=#E8E8FF><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1> <%=rs_ingeniero("nombre")%></font></TD>
        </tr>
    <TR>
        
      <TD bgcolor="#FFFFCC" > 
        <P align=center><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1><STRONG>Placa </STRONG></font></P>
      </TD>
        <TD bgcolor=#FFFFCC>
      <P align=center><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1><STRONG>Modelo</STRONG></font></P></TD>
        <TD bgcolor=#FFFFCC>
      <P align=center><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1><STRONG>Software</STRONG></font></P></TD>
        <TD bgcolor=#FFFFCC>
      <P align=center><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1><STRONG>Componente</STRONG></font></P></TD>
        <TD bgcolor=#FFFFCC>
      <P align=center><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1><STRONG>Problema</STRONG></font></P></TD>
    </TR>
    <tr>
            <TD><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1> <%=rs_consulta("host")%></font></TD>
            <TD><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1> <%=rs_consulta("modelo")%></font></TD>
            <TD><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1> <%=rs_consulta("software")%></font></TD>
            <TD><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1> <%=rs_servicio("descripcion")%></font></TD>
            <TD><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1> <%=rs_problema("descripcion")%></font></TD>
        </TR>
    
    <TR>
        <TD>
      <P align=center><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1><STRONG> </STRONG></font></P></TD>
        <TD colspan=2 bgcolor=#FFFFCC>
      <P align=center><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1><STRONG>Llamada</STRONG></font></P></TD>
        <TD colspan=2 bgcolor=#FFFFCC>
      <P align=center><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1><STRONG>Solución</STRONG></font></P></TD>
        <TD>
    </TR>
    <tr>
            <TD> </TD>
            <TD colspan=2><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1> <%=rs_consulta("detalle")%></font></TD>
            <TD colspan=2><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1> <%=rs_consulta("solucion")%></font></TD>
    </tr>
    <TR>
        <TD colspan=10 BGCOLOR=#FFFFCC>
      <P align=center><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=0><b>_______________</b></FONT></P></TD>
    </TR>
    
    <%
                rs_consulta.MoveNext 
            wend
            
        end if    
    %>
</table>

</center>
</BODY>
</HTML>
There's something wrong here, how can i fix it?
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform