Ir para conteúdo

POWERED BY:

Arquivado

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

oliveiraro

tratamento de erro

Por , em ASP Clássico

Recommended Posts

oliveiraro    0

oliveiraro
Postado

Só q ñ consigo jogar a menssagem de erro p o usuario?

Será q é pq estou utilizando uma procedure?

Trabalho com sqlserver.

 

Este é o codigo de meus dois forms:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

 

<!--#include file="Connections/SRH2.asp" -->

<%

Dim rs_tsit

Dim rs_tsit_numRows

 

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

rs_tsit.ActiveConnection = MM_SRH2_STRING

rs_tsit.Source = "SELECT * FROM dbo.Tb_TipoSituacao ORDER BY Sit_Desc ASC"

rs_tsit.CursorType = 0

rs_tsit.CursorLocation = 2

rs_tsit.LockType = 1

rs_tsit.Open()

 

rs_tsit_numRows = 0

%>

<script language="javascript">

function Valida()

{

if (document.atualiza_graduação.grad_Abr.value == '')

{

alert("Por favor, campo Abreviatura deve ser preenchido.");

document.atualiza_graduação.grad_Abr.focus();

return false;

}

if (document.atualiza_graduação.grad_desc.value == '')

{

alert("Por favor, campo Graduação deve ser preenchido.");

document.atualiza_graduação.grad_desc.focus();

return false;

}

}

/////////////////////////

function verificaData(Data)

{

var data2 = Data.split("/");

if ((data2.length == 3) &&

(data2[0] > 0) && (data2[0] < 32) &&

(data2[1] > 0) && (data2[1] < 13) &&

(data2[2] >= 0) && (data2[2] < 100) )

{

return false;

} else {

alert("Por favor, dia pode estar inválido, mês pode estar inválido ou formato da data incorreto. Correto: dd/mm/aa.");

return true;

}

}

////////Fim da Função VerificaData//////

</script>

<hsitl>

<head>

<title>:: RELATORIO DE SITUACAO::</title>

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

<style type="text/css">

<!--

@import url("butao2.css");

-->

</style>

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

<!--

function MM_reloadPage(init) { //reloads the window if Nav4 resized

if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {

document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}

else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();

}

MM_reloadPage(true);

//-->

</script>

</head>

<body text="#000000">

<% on error resume next %>

<% if err <> 0 then

Response.Redirect("erros.asp?cod="& err.number&"&descricao="&err.description)

end if %>

<form name="form1" action="imp_rel_situacao1.asp">

<div id="Layer1" style="position:absolute; left:80px; top:14px; width:212px; height:19px; z-index:1"><b><font color="#0033cc" size="3" face="BankGothic Md BT"><b>RELATORIO

DE SITUAÇÃO</b></font></b></div>

<input type="hidden" name="exibir" value="s">

<p align="left">  </p>

<table width="86%" border="0">

<tr>

<td width="6%">Ano:</td>

<td width="94%"><div align="left">

<input name="ano" type="date" id="ano" size="5" maxlength="5">

</div></td>

</tr>

</table>

<table width="86%" border="0">

<tr>

<td width="14%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Situação:</font></td>

<td width="26%"><font size="1" color="#0000FF">

<select name="situacao" id="select">

<option value="">Selecione...</option>

<%

While (NOT rs_tsit.EOF)

%>

<option value="<%=(rs_tsit.Fields.Item("Sit_Cod").Value)%>"><%=(rs_tsit.Fields.Item("Sit_Desc").Value)%></option>

<%

rs_tsit.MoveNext()

Wend

If (rs_tsit.CursorType > 0) Then

rs_tsit.MoveFirst

Else

rs_tsit.Requery

End If

%>

</select>

</font></td>

<td width="60%"><input name="btok" type="submit" id="btok" value="OK">

<input name="opm" type="hidden" id="opm" value="<%=session("opm")%>">

</td>

</tr>

</table>

<p> </p><p align="left"></p>

</form>

<% if Request.Form("exibir") = "s" then %>

 

<% situacao = Request.Form("situacao") %>

<%end if%>

</body>

</hsitl>

<%

rs_tsit.Close()

Set rs_tsit = Nothing

%>

 

 

Formulario resposta:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/SRH2.asp" -->

<%

 

Dim situacao__situacao

situacao__situacao = "0"

if(Request("situacao") <> "") then situacao__situacao = Request("situacao")

 

Dim situacao__opm

situacao__opm = "0"

if(Request("opm") <> "") then situacao__opm = Request("opm")

 

Dim situacao__ano

situacao__ano = "0"

if(Request("ano") <> "") then situacao__ano = Request("ano")

 

%>

<%

 

set situacao = Server.CreateObject("ADODB.Command")

situacao.ActiveConnection = MM_SRH2_STRING

situacao.CommandText = "dbo.PR_ConsAfast"

situacao.Parameters.Append situacao.CreateParameter("@RETURN_VALUE", 3, 4)

situacao.Parameters.Append situacao.CreateParameter("@situacao", 3, 1,30,situacao__situacao)

situacao.Parameters.Append situacao.CreateParameter("@opm", 3, 1,30,situacao__opm)

situacao.Parameters.Append situacao.CreateParameter("@ano", 3, 1,4,situacao__ano)

situacao.Parameters.Append situacao.CreateParameter("@QUANT", 3, 2)

situacao.CommandType = 4

situacao.CommandTimeout = 0

situacao.Prepared = true

set c = situacao.Execute

c_numRows = 0

 

%>

 

<%

Dim Repeat1__numRows

Dim Repeat1__index

 

Repeat1__numRows = -1

Repeat1__index = 0

c_numRows = c_numRows + Repeat1__numRows

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

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

<title>IMP REL SITUACAO</title>

<style type="text/css">

<!--

.style2 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; }

-->

</style>

</head>

<body>

<table width="670">

<tr>

<td width="81" rowspan="3"><div align="center">

<div id="Layer4" style="position:absolute; left:13px; top:5px; width:80px; height:39px; z-index:4"><img src="imag/brasaoro.jpg" width="66" height="81"></div>

</div></td>

<td width="478"><div align="center"><font size="2"><strong><font face="Verdana, Arial, Helvetica, sans-serif">POLÍCIA

MILITAR DO ESTADO DE RONDÔNIA</font></strong></font></div></td>

<td width="113" rowspan="3"><div align="center"></div>

<div align="center"><strong></strong></div>

<div align="center">

<div id="Layer5" style="position:absolute; left:566px; top:5px; width:81px; height:80px; z-index:5"><img src="imag/PMRO_web.gif" width="72" height="73"></div>

</div></td>

</tr>

<tr>

<td><div align="center"><font size="2"><strong><font face="Verdana, Arial, Helvetica, sans-serif">COORDENADORIA

</font><font size="2"><strong><font face="Verdana, Arial, Helvetica, sans-serif">DE

RECURSOS HUMANOS </font></strong></font></strong></font></div></td>

</tr>

<tr>

<td><div align="center"><font size="2"><strong><font face="Verdana, Arial, Helvetica, sans-serif">DEPARTAMENTO

DE </font><font size="2"><strong><font face="Verdana, Arial, Helvetica, sans-serif">

PESSOAL </font></strong></font></strong></font></div></td>

</tr>

</table>

<form name="form1" method="post" action="">

<% on error resume next %>

<% if err <> 0 then

Response.writte("Não existe registro")

end if %>

<p><font size="1"> OPM: <%= c.Fields.Item("OPM").Value %></font></p>

<table width="636" border="0">

<tr>

<td colspan="8"><hr></td>

</tr>

<tr>

<td width="50"><div align="center" class="style2">Re</div></td>

<td colspan="3"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome</font></td>

<td width="74"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Graduação</font></td>

<td width="58"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Dt.Inc</font></td>

<td width="63">Dt.Fim</td>

<td width="66">Exércicio</td>

</tr>

<%

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

%>

<tr>

<td><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= c.Fields.Item("RE").Value %></font></div></td>

<td colspan="3"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= c.Fields.Item("NOME").Value %></font></td>

<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= c.Fields.Item("GRAD").Value %></font></td>

<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= c.Fields.Item("INI").Value %></font></td>

<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= c.Fields.Item("FIM").Value %></font></td>

<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= c.Fields.Item("OBS").Value %></font></td>

</tr>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

c.MoveNext()

Wend

%>

<tr>

<td colspan="8"><hr></td>

</tr>

</table>

</form>

<p> </p>

<br>

<p> </p>

 

</body>

 

 

</html>

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