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

Xabu De Erro 500.100

Jony Walker

Perguntado por Jony Walker,

 Share

Pergunta

Jony Walker

Jony Walker

Postado
Postado

O erro é o seguinte:

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

--------------------------------------------------------------------------------

Informações técnicas (para a equipe de suporte)

Tipo de erro:

ADODB.Field (0x80020009)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/agenda/index.asp

A página é esta:

<%

Option Explicit

%>

<html>

<head>

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

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

<link href="dr_ary.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 "

call abre_conexao

set rsHoje = Conexao.execute(sqlCons)

%>

<%

dia = day(now)

mes = month(now)

ano = year(now)

if dia < 9 then

dia = 0 & dia

end if

if mes < 9 then

mes = 0 & mes

end if

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

<%

if not rsHoje.eof then

%>

<% 

dano = year(rsHoje("datta"))

dmes = month(rsHoje("datta"))

ddia = day(rsHoje("datta"))

if dmes < 9 then

dmes = "0" & dmes

end if

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

%>

<%

while not rsHoje.eof

%>   

    <tr>

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

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

                      <td class="link"><%= rsHoje("hora")%>:00</td>

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

    </tr>

<%

rsHoje.MoveNext

%>

    <tr>

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

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

                      <td class="link"><%= rsHoje("hora")%>:00</td>

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

    </tr>

<%

rsHoje.MoveNext

%>

                  </table>

<%

wend

else

%>

</body>

</html>

<%

Set rsHoje = Nothing

%>

Existem datas no banco de dados q coincidem com o dia de hoje.. e ele fica apresentando esse erro...

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
cyberalexxx

cyberalexxx

Postado
Postado

<%

Option Explicit

%>

<html>

<head>

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

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

<link href="dr_ary.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 "

call abre_conexao

set rsHoje = Conexao.execute(sqlCons)

%>

<%

dia = day(now)

mes = month(now)

ano = year(now)

if dia < 9 then

dia = 0 & dia

end if

if mes < 9 then

mes = 0 & mes

end if

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

<%

if not rsHoje.eof then

%>

<%

dano = year(rsHoje("datta"))

dmes = month(rsHoje("datta"))

ddia = day(rsHoje("datta"))

if dmes < 9 then

dmes = "0" & dmes

end if

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

%>

<%

while not rsHoje.eof

%> 

    <tr>

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

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

                      <td class="link"><%= rsHoje("hora")%>:00</td>

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

    </tr>

<%

rsHoje.MoveNext

if not rsHoje.eof then

%>

    <tr>

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

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

                      <td class="link"><%= rsHoje("hora")%>:00</td>

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

    </tr>

<%

rsHoje.MoveNext

endif

%>

                  </table>

<%

wend

else

%>

</body>

</html>

<%

Set rsHoje = Nothing

%>

Link para o comentário
Compartilhar em outros sites
  • 0
fercosmig

fercosmig

Postado
Postado

você ta executando 2 rs.movenext dentro do mesmo while, entre um e outro você tem que verificar se não é fim de arquivo

exemplo: se for o ultimo registro no 1º rs.movenext ele apontaria para o fim do arquivo e sairia do while de boa, mas lá em baixo tem outro rs.movenext.. ae da erro

entendeu ae? não sou muito bom pra explicar as coisas mas tae!

abraços

Link para o comentário
Compartilhar em outros sites
  • 0
Jony Walker

Jony Walker

Postado
  • Autor
Postado

Entendi, antes eu estava trabalhando com mod para pares ou trios de resultados em linha, agora eu tinha me esquecido dessa parte..

Foi só eu colocar no banco acidentalmente número ímpar de resultados e gerou mais um erro: do terceiro resultado em diante fica fora da tabela

Obrigado a todos !!!

Link para o comentário
Compartilhar em outros sites

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...