Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

brunow

Como descobrir erro no codigo ASP

Por , em ASP Clássico

Recommended Posts

brunow    0

brunow
Postado

Como posso descobrir qual erro está dando no meu codigo ASP... se o servidor no qual onde ele está não informa qual erro deu, e sim, somente que houve erro na pagina ? Tenho algum site que checa erros? ou algum outro server q suporta ASP de gratis e mostra qual erro está dando?

 

Está dando erro nesse código.. mas ainda não encontrei :/

 

<html>

<head>

<title>Documento sem título</title>

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

</head>

 

<body>

<p align="left"><font size="2" face="Tahoma, Verdana, Arial, sans-serif" color="#999999"><b>

<%

Select Case Request.QueryString("p")

Case "noticia"

%>

</b></font></p>

<p align="left"><font color="#000000">VER NOTICIA<font size="2"> </font></font></p>

<p align="center"><font color="#000000">

  <%

id = request.querystring("id")

materia = id

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

          DSNtemp=dsntemp & "DBQ=" & server.mappath("banco/colunas.mdb")

          sqlstmt = "SELECT * FROM bruninho where id =" & id & " ORDER BY id DESC"

          Set rs = Server.CreateObject("ADODB.Recordset")

          rs.Open sqlstmt, DSNtemp, 3, 3

TotalRecs = rs.recordcount

if rs.eof then

%>

</font></p>

<p align="center"><font face="Arial Narrow, Arial, sans-serif">Notícia

    não encontrada.<br>

  Certifique-se que você acessou essa página de forma correta.</font></p>

<p align="center"><font color="#000000">

  <%

else

  data = rs("data")

  id = rs("id")

  titulo = rs("titulo")

  conteudo= rs("conteudo")

        foto = rs("foto")

        fotopath = rs("fotopath")

%>

</font></p>

<p align="center"><font color="#000000"><font size="3" face="Arial Narrow, Arial, sans-serif"><%=titulo  %></font></font><font face="Arial Narrow, Arial, sans-serif" size="3"> </font></p>

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

  <tr>

    <td>

      <p><font class="Textoteaser"><font color="#000000" face="Arial Narrow, Arial, sans-serif">

        <%if foto = "sim" then%>

      </font></font></p>

      <p align="center"><img src="imagens/<%=fotopath%>" alt="<%=titulo%>"></p>

      <p><font class="Textoteaser"><font color="#000000" face="Arial Narrow, Arial, sans-serif">

        <%end if  %>

      </font></font> <font color="#000000" face="Arial Narrow, Arial, sans-serif"><font size="2"><span class="noticia"><%=conteudo  %></span></font></font><font color="#000000" face="Arial Narrow, Arial, sans-serif"><font size="2"><span class="noticia"> </span></font></font></p>

    </td>

  </tr>

</table>

<p align="center"><font color="#000000"><font size="2"> </font></font><font color="#000000">

  <%end if  %>

</font></p>

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

  <tr>

    <td><font face="Arial Narrow, Arial, sans-serif" size="2">OUTRAS MATÉRIAS:</font></td>

  </tr>

  <tr>

    <td>

      <p><font color="#000000" size="2" face="Verdana">

        <%

 

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

          DSNtemp=dsntemp & "DBQ=" & server.mappath("banco/colunas.mdb")

          sqlstmt = "SELECT * FROM bruninho ORDER BY id DESC"

          Set rs = Server.CreateObject("ADODB.Recordset")

          rs.Open sqlstmt, DSNtemp, 3, 3

TotalRecs = rs.recordcount

x = 0

For x = 1 to 50

 

If rs.eof then

Exit For

Else

data = rs("data")

id = rs("id")

titulo = rs("titulo")

 

%>

        </font><font

                color="#000000"> </font><font

                color="#000000" size="1" face="Verdana">

        <% =data%>

        <font size="2"> - <a href="colunas.asp?coluna=bruninho&id=<%=id%>">

        <% =titulo%>

        </a></font><font color="#000000" size="2" face="Verdana"><br>

        <%

rs.MoveNext

End If

Next%>

      </font></font></p>

    </td>

  </tr>

</table>

<p align="left"><font size="2" face="Tahoma, Verdana, Arial, sans-serif" color="#999999"><b>

  <% Case "mostrartodas"%>

</b></font></p>

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

  <tr>

    <td><font face="Arial Narrow, Arial, sans-serif" size="2">OUTRAS MATÉRIAS:</font></td>

  </tr>

  <tr>

    <td>

      <p><font color="#000000" size="2" face="Verdana">

        <%

 

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

          DSNtemp=dsntemp & "DBQ=" & server.mappath("banco/colunas.mdb")

          sqlstmt = "SELECT * FROM bruninho ORDER BY id DESC"

          Set rs = Server.CreateObject("ADODB.Recordset")

          rs.Open sqlstmt, DSNtemp, 3, 3

TotalRecs = rs.recordcount

x = 0

For x = 1 to 50

 

If rs.eof then

Exit For

Else

data = rs("data")

id = rs("id")

titulo = rs("titulo")

 

%>

        </font><font

                color="#000000"> </font><font

                color="#000000" size="1" face="Verdana">

        <% =data%>

        <font size="2"> - <a href="colunas.asp?coluna=bruninho&id=<%=id%>">

        <% =titulo%>

        </a></font><font color="#000000" size="2" face="Verdana"><br>

        <%

rs.MoveNext

End If

Next%>

      </font></font></p>

    </td>

  </tr>

</table>

<p> </p>

<p align="left"><font size="2" face="Tahoma, Verdana, Arial, sans-serif" color="#999999"><b>

  <% Case Else%>

</b></font><font size="2" face="Tahoma, Verdana, Arial, sans-serif" color="#999999"></font></p>

<p align="left"><font color="#FFFFFF"><font color="#FFFFFF"><font face="Verdana, Arial, Helvetica, sans-serif"><font size="1">

  <font color="#000000">

  <%

 

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

          DSNtemp=dsntemp & "DBQ=" & server.mappath("banco/colunas.mdb")

          sqlstmt = "SELECT * FROM bruninho ORDER BY id DESC"

          Set rs = Server.CreateObject("ADODB.Recordset")

          rs.Open sqlstmt, DSNtemp, 3, 3

TotalRecs = rs.recordcount

 

data = rs("data")

id = rs("id")

titulo = rs("titulo")

conteudo = rs("texto")

%>

  <font size="2">#</font>

  <% =data%>

  <br>

  <% =titulo%>

  <%rs.Close

set rs=nothing%>

  </font></font></font></font><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><font size="1"><br>

</font></font></font></p>

<p align="left">

  <%End Select%>

 </p>

 

</body>

</html>

 

:huh:

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

O que é mostrado ao invéz da MSG de erro?

Compartilhar este post

Link para o post
Compartilhar em outros sites

dimarcinho    0

dimarcinho
Postado

coloca no início do código

 

<% On Error Resume Next %>

e no fim do código coloca o seguinte

 

<% If Err.Number > 0 Thenresponse.write "Ocorreu o seguinte erro: " & Err.DescriptionElseresponse.write "Não ocorreu nenhum erro"End If%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito