Ir para conteúdo
Fórum Script Brasil
  • 0

Página Travou Em Exceção

Jony Walker

Perguntado por Jony Walker,

 Share

Pergunta

Jony Walker

Jony Walker

Postado
Postado

Eu fiz uma página q estava funcionando perfeitamente, aí eu fiz uma alteração pelo dreamweaver e depois que deu erro, eu dei Crtl + Z até voltar ao original e salvei...

Aí apareceu o seguinte erro que eu não sei traduzir do q ele está reclamando:

Tipo de erro:

(0x80020009)

Exceção.

/agenda/index2.asp, line 138

 

Mas num tinha nada de errado antes, estou postando os asp da página porque ele ficou um pouco comprida: A linha 138 estará em vermelho

<%

Option Explicit

%>

<html>

<head>

<!--#include file="adoba.asp"-->

<title>Agenda</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="pgs.css" rel="stylesheet" type="text/css">

<%

Dim varDta, sqlCons, rsHoje

Dim dia, mes, ano

Dim ddia, dmes, dano, dataformatada

varDta = Date

Session.LCID=1033

sqlCons = " SELECT * FROM dates WHERE datta = #"& varDta &"# ORDER BY hora DESC"

call abre_conexao

set rsHoje = Conexao.execute(sqlCons)

%>

<script language="JavaScript" type="text/JavaScript">

<!--

function MM_openBrWindow(theURL,winName,features) { //v2.0

  window.open(theURL,winName,features);

}

//-->

</script>

</head>

<body leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0" text="#585858">

<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">

  <tr> <div id="topo">

    <td colspan="3"><!-- Inicio do topo -->

      <table width="778" border="0" cellspacing="0" cellpadding="0">

  <tr>

    <td width="152" valign="top"><!-- Inicio do primeiro menu -->

<div id=meio>

      <table width="140" border="0" align="center" cellpadding="0" cellspacing="0">

        <tr>

          <td height="24" background="imgs/menu_01.gif">

            <div align="center" class="gg">- Pesquisar -</div></td>

        </tr>

        <tr>

          <td background="imgs/quad_02.gif">

        <tr>

          <td height="10" background="imgs/quad_03.gif"></td>

        </tr>

      </table></div>

      <br><br><br><br><br><br>

   <div align="center"><input type="button" name="print" value="Imprimir" onClick=window.print()></div>

   <br><br>

    <!-- Inicio do conteudo -->

<%

dia = day(now)

mes = month(now)

ano = year(now)

if dia < 10 then

dia = 0 & dia

end if

if mes < 10 then

mes = 0 & mes

end if

response.write ""& dia &"/" & mes & "/" & ano & " "%>-</span></div><br>

<% 

dano = year(rsHoje("datta"))

dmes = month(rsHoje("datta"))

ddia = day(rsHoje("datta"))

if dmes < 10 then

dmes = "0" & dmes

end if

if ddia < 10 then

ddia = "0" & ddia

end if

dataformatada = ddia & "/" & dmes & "/" & dano

if not rsHoje.eof then

%>

      <table width="407" border="1" align="center" cellpadding="0" cellspacing="0">

                    <tr>

                      <td width="65" class="gg"> <div align="left">Hora:</div></td>

                      <td width="58" class="gg"> <div align="left">Data:</div></td>

                      <td width="85" class="gg"> <div align="left">Paciente:</div></td>

                      <td width="68" class="gg"> <div align="left">Cirurgia:</div></td>

                      <td width="85" class="gg">Conv&ecirc;nio:</td>

                      <td width="32" class="gg">&nbsp;</td>

                    </tr>

<%

do while not rsHoje.eof

%>

                    <tr>

             <td class="link" align="center"><%= rsHoje("hora")%></td>

       <td class="link"><%= dataformatada %></td>

                      <td class="link"><%= rsHoje("camp1")%></td>

                      <td class="link"><%= rsHoje("camp2")%></td>

                      <td class="link"><%= rsHoje("camp3")%></td>

                      <td class="link"><div align="center"><img src="imgs/lupa.gif" alt="ver detalhes" width="40" height="25" vspace="1" onClick="MM_openBrWindow('janela.asp?jau=<%= rsHoje("id")%>','test','width=385,height=350')" onmouseover="this.style.cursor='hand'"></div></td>

        </tr>

                

<%

rsHoje.Movenext

if rsHoje.EOF then exit do

loop

%>

      </table>

<%

else

%>

                    <br><br>

      <div align="center"><span class="hora">Não há nada marcado

                    para hoje.</span>

     <br><br><br><br>

                    </div>

<%

end if

%>

                </td>

              </tr>

            </table>

   <!-- Fim do conteudo --></td>

        </tr>

   </td>

  </tr>

</table>

</body>

</html>

<%

call fecha_conexao

Set rsHoje = Nothing

%>

 

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...