Erro 500 Internal Server Error

graciane2004 · Julho 1, 2004

Aparentemente está tudo ok.

é uma página de classificados, nos que não tem classificados cadastrados, está ok, mas os que tem, aparece:

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator, and inform them of the time the error occurred and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

o que pode ser?

Se quiserem ver o código eu coloco...

obrigada

www.sobraci.com/classificados/classificados.asp

bareta · Julho 1, 2004

hehe poe seu codigo ai....

dark0 · Julho 2, 2004

oi

só por essa mensagem de erro fica dificil dizer o que pode ser..

pois não tem como adivinhar qual sua estrutura, que banco usa, qual servidor, qual windows, como esta a conexao, o codigo..

o ideal a dizer na hora de postar, é colocar uma descrição do problema, a estrutura utilizada, e a parte do codigo que da erro..

assim, já podemos ter uma ideia do que você tem aí, e o que quer..

ate mais

VicFalMac · Julho 2, 2004

oi Graciane....

Esse erro está ocorrendo comigo tb e não sei como resolvê-lo...

Mas comece fazendo o seguinte:

Vá em Painel De Controle --> Opções da Internet --> Avançado --> e desmarque "Exibir mensagens de erro amigáveis"

Isso não vai resolver o seu problema, porém, te dará mais detalhes sobre o próprio.

graciane2004 · Julho 2, 2004

hehe poe seu codigo ai....

aí está a encrenca...

1ª PARTE

<%@LANGUAGE="VBSCRIPT"%>

<%

Dim rsConsulta__vArea

rsConsulta__vArea = "A"

if (Request.QueryString("Area") <> "") then rsConsulta__vArea = Request.QueryString("Area")

%>

<%

set rsConsulta = Server.CreateObject("ADODB.Recordset")

rsConsulta.ActiveConnection = MM_connSobraci_STRING

rsConsulta.Source = "SELECT * FROM tClassificados WHERE Area = '" + Replace(rsConsulta__vArea, "'", "''") + "'"

rsConsulta.CursorType = 0

rsConsulta.CursorLocation = 2

rsConsulta.LockType = 3

rsConsulta.Open()

rsConsulta_numRows = 0

%>

<%

Dim Repeat1__numRows

Repeat1__numRows = -1

Dim Repeat1__index

Repeat1__index = 0

rsConsulta_numRows = rsConsulta_numRows + Repeat1__numRows

%>

<%

' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

' set the record count

rsConsulta_total = rsConsulta.RecordCount

' set the number of rows displayed on this page

If (rsConsulta_numRows < 0) Then

rsConsulta_numRows = rsConsulta_total

Elseif (rsConsulta_numRows = 0) Then

rsConsulta_numRows = 1

End If

' set the first and last displayed record

rsConsulta_first = 1

rsConsulta_last = rsConsulta_first + rsConsulta_numRows - 1

' if we have the correct record count, check the other stats

If (rsConsulta_total <> -1) Then

If (rsConsulta_first > rsConsulta_total) Then rsConsulta_first = rsConsulta_total

If (rsConsulta_last > rsConsulta_total) Then rsConsulta_last = rsConsulta_total

If (rsConsulta_numRows > rsConsulta_total) Then rsConsulta_numRows = rsConsulta_total

End If

%>

<%

' *** Recordset Stats: if we don't know the record count, manually count them

If (rsConsulta_total = -1) Then

' count the total records by iterating through the recordset

rsConsulta_total=0

While (Not rsConsulta.EOF)

rsConsulta_total = rsConsulta_total + 1

rsConsulta.MoveNext

Wend

' reset the cursor to the beginning

If (rsConsulta.CursorType > 0) Then

rsConsulta.MoveFirst

Else

rsConsulta.Requery

End If

' set the number of rows displayed on this page

If (rsConsulta_numRows < 0 Or rsConsulta_numRows > rsConsulta_total) Then

rsConsulta_numRows = rsConsulta_total

End If

' set the first and last displayed record

rsConsulta_first = 1

rsConsulta_last = rsConsulta_first + rsConsulta_numRows - 1

If (rsConsulta_first > rsConsulta_total) Then rsConsulta_first = rsConsulta_total

If (rsConsulta_last > rsConsulta_total) Then rsConsulta_last = rsConsulta_total

End If

%>

<html>

2ª PARTE

<tr>

<td>Classificado de <%=Request("Area")%></td>

</tr>

<tr>

<td height="30" valign="top">Total

de <%=(rsConsulta_total)%> encontrado(s)</td>

</tr>

<tr>

<td>

<% If Not rsConsulta.EOF Or Not rsConsulta.BOF Then %>

<%

While ((Repeat1__numRows <> 0) AND (NOT rsConsulta.EOF))

%>

<tr>

</tr>

<tr>

<td>

End.: <%=(rsConsulta.Fields.Item("EnderecoRes").Value)%>- <%=(rsConsulta.Fields.Item("CEP").Value)%> - <%=(rsConsulta.Fields.Item("Cidade").Value)%> - <%=(rsConsulta.Fields.Item("Estado").Value)%>

Fone: <%=(rsConsulta.Fields.Item("Telefone").Value)%>

Descritivo:

<%=(rsConsulta.Fields.Item("Descritivo").Value)%>

</td>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

rsConsulta.MoveNext()

Wend

%>

<% End If ' end Not rsConsulta.EOF Or NOT rsConsulta.BOF %>

</td>

</tr>

</table>

Se alguém puder me ajudar, agradeço muito

abraços

Graciane

graciane2004 · Julho 2, 2004

hehe poe seu codigo ai....
aí está a encrenca...
1ª PARTE
<%@LANGUAGE="VBSCRIPT"%>

<%
Dim rsConsulta__vArea
rsConsulta__vArea = "A"
if (Request.QueryString("Area") <> "") then rsConsulta__vArea = Request.QueryString("Area")
%>
<%
set rsConsulta = Server.CreateObject("ADODB.Recordset")
rsConsulta.ActiveConnection = MM_connSobraci_STRING
rsConsulta.Source = "SELECT * FROM tClassificados WHERE Area = '" + Replace(rsConsulta__vArea, "'", "''") + "'"
rsConsulta.CursorType = 0
rsConsulta.CursorLocation = 2
rsConsulta.LockType = 3
rsConsulta.Open()
rsConsulta_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsConsulta_numRows = rsConsulta_numRows + Repeat1__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
' set the record count
rsConsulta_total = rsConsulta.RecordCount
' set the number of rows displayed on this page
If (rsConsulta_numRows < 0) Then
rsConsulta_numRows = rsConsulta_total
Elseif (rsConsulta_numRows = 0) Then
rsConsulta_numRows = 1
End If
' set the first and last displayed record
rsConsulta_first = 1
rsConsulta_last = rsConsulta_first + rsConsulta_numRows - 1
' if we have the correct record count, check the other stats
If (rsConsulta_total <> -1) Then
If (rsConsulta_first > rsConsulta_total) Then rsConsulta_first = rsConsulta_total
If (rsConsulta_last > rsConsulta_total) Then rsConsulta_last = rsConsulta_total
If (rsConsulta_numRows > rsConsulta_total) Then rsConsulta_numRows = rsConsulta_total
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (rsConsulta_total = -1) Then
' count the total records by iterating through the recordset
rsConsulta_total=0
While (Not rsConsulta.EOF)
rsConsulta_total = rsConsulta_total + 1
rsConsulta.MoveNext
Wend
' reset the cursor to the beginning
If (rsConsulta.CursorType > 0) Then
rsConsulta.MoveFirst
Else
rsConsulta.Requery
End If
' set the number of rows displayed on this page
If (rsConsulta_numRows < 0 Or rsConsulta_numRows > rsConsulta_total) Then
rsConsulta_numRows = rsConsulta_total
End If
' set the first and last displayed record
rsConsulta_first = 1
rsConsulta_last = rsConsulta_first + rsConsulta_numRows - 1
If (rsConsulta_first > rsConsulta_total) Then rsConsulta_first = rsConsulta_total
If (rsConsulta_last > rsConsulta_total) Then rsConsulta_last = rsConsulta_total
End If
%>
<html>
2ª PARTE
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>Classificado de <%=Request("Area")%></td>
</tr>
<tr>
<td height="30" valign="top">Total
de <%=(rsConsulta_total)%> encontrado(s)</td>
</tr>
<tr>
<td>
<% If Not rsConsulta.EOF Or Not rsConsulta.BOF Then %>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsConsulta.EOF))
%>
<table width="90%" border="0" cellspacing="0" cellpadding="3" align="center">
<tr>
<td bgcolor="#FFFF99"><%=(rsConsulta.Fields.Item("Nome").Value)%></td>
</tr>
<tr>
<td>
End.: <%=(rsConsulta.Fields.Item("EnderecoRes").Value)%>- <%=(rsConsulta.Fields.Item("CEP").Value)%> - <%=(rsConsulta.Fields.Item("Cidade").Value)%> - <%=(rsConsulta.Fields.Item("Estado").Value)%> 
Fone: <%=(rsConsulta.Fields.Item("Telefone").Value)%> 
Descritivo:
<%=(rsConsulta.Fields.Item("Descritivo").Value)%>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsConsulta.MoveNext()
Wend
%>
<% End If ' end Not rsConsulta.EOF Or NOT rsConsulta.BOF %>
</td>
</tr>
</table>
Se alguém puder me ajudar, agradeço muito
abraços
Graciane

Ok, gente, depois de muito quebrar minha cabeça loira (tingida como 90% das loiras), consegui desvendar o mistério, já está funcionando...

obrigados a todos!

Moderadores, Podem fechar o tópico, mais um ponto p/ vocês!

dark0 · Julho 4, 2004

hehe

parabens graciane.. to fechando o tópico

Entrar

Erro 500 Internal Server Error

Pergunta

graciane2004

Link para o comentário

Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

bareta

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

VicFalMac

Link para o comentário

Compartilhar em outros sites

graciane2004

Link para o comentário

Compartilhar em outros sites

graciane2004

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns

Navegação

Atividades