Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Eu tenho essa rotina:
ASP [/tr][tr]<% codigo_solicitado = Request.Form("codigo_solicitacao")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\WebSites\arinso\intranet\data_base\controle_chamados.mdb"
SQL = "SELECT codigo_solicitacao, nome_solicitante, area_solicitante, solicitacao, data_solicitacao,email_solicitante, hora_chamado FROM controle_chamados "
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open SQL, Conn, 3, 3
do while not RS.EOF
codigo_solicitacao_table = RS("codigo_solicitacao")
if codigo_solicitacao_table = codigo_solicitado then
Session("confirmacao") = "ok"
Session("codigo_solicitacao") = RS("codigo_solicitacao")
Session("nome_solicitante") = RS("nome_solicitante")
Session("area_solicitante") = RS("area_solicitante")
Session("solicitacao") = RS("solicitacao")
Session("data_solicitacao") = RS("data_solicitacao")
Session("email_solicitante") = RS("email_solicitante")
Session("hora_chamado") = RS("hora_chamado")
end if
RS.MoveNext
loop
if Session("confirmacao") = "ok" then%>
<HTML>
<HEAD>
<TITLE>Controle de Chamados Técnicos - CCT</TITLE>
</HEAD>
<LINK REL=StyleSheet HREF="../../intranet.css" TYPE="text/css">
<style type="text/css">
<!--
A#menu:link{color:white;text-decoration:none}
A#menu:visited{color:white;text-decoration:none}
A#menu:active{color:white;text-decoration:none}
A#menu:hover{color:white;text-decoration:underline;}
A:link{color:blue;text-decoration:none}
A:visited{color:blue;text-decoration:none}
A:active{color:blue;text-decoration:none}
A:hover{color:blue;text-decoration:underline;}
-->
</style>
<body>
<form action="controle_chamados.asp" method=post>
<center><h4>Controle de Chamados Técnicos - v. 0.2 BETA</h4></center>
<br>
<p id="borda">
<img src="../../image_intranet/icon_right.gif"><br>
<br>
Este é o Status do chamado nº <b><% =Session("codigo_solicitacao") %></b>.<br>
<br>
<table id="font_table_chamado">
<tr>
<th id="font_table_chamado">Código</th>
<th id="font_table_chamado">Nome do Solicitante</th>
<th id="font_table_chamado">Área de Solicitação</th>
<th id="font_table_chamado">Socilitação</th>
<th id="font_table_chamado">Data</th>
<th id="font_table_chamado">Horário</th>
<th id="font_table_chamado">E-mail do Solicitante</th>
</tr>
<tr bgcolor="white">
<td><%
Response.Write Session("codigo_solicitacao")
%>
</td>
<td><%
Response.Write Session("nome_solicitante")
%>
</td>
<td><%
Response.Write Session("area_solicitante")
%>
</td>
<td><%
Response.Write Session("solicitacao")
%>
</td>
<td><%
Response.Write Session("data_solicitacao")
%>
</td>
<td><%
Response.Write Session("hora_chamado")
%>
</td>
<td><%
Response.Write "<a href=mailto:"& Session("email_solicitante") &">"& Session("email_solicitante") &"</a>"%>
</td>
</table>
<br>
<br>
<input type=submit value=voltar>
</form>
</body>
</html><%
else
%>
<HTML>
<HEAD>
<TITLE>Controle de Chamados Técnicos - CCT</TITLE>
</HEAD>
<LINK REL=StyleSheet HREF="../../intranet.css" TYPE="text/css">
<style type="text/css">
<!--
A#menu:link{color:white;text-decoration:none}
A#menu:visited{color:white;text-decoration:none}
A#menu:active{color:white;text-decoration:none}
A#menu:hover{color:white;text-decoration:underline;}
A:link{color:blue;text-decoration:none}
A:visited{color:blue;text-decoration:none}
A:active{color:blue;text-decoration:none}
A:hover{color:blue;text-decoration:underline;}
-->
</style>
<body>
<form action="status_chamado.asp" method=post>
<center><h4>Controle de Chamados Técnicos - v. 0.2 BETA</h4></center>
<br>
<p id="borda">
<img src="../../image_intranet/icon_error.gif"><br>
<b><font color=red>Chamado não localizado.</font></b><br>
<br>
Verifique se o número do chamado informado está correto ou abra novo chamado.
<br>
<br>
<input type=submit value=voltar>
</form>
</body>
</html><%
end if
%>
[/tr]
Estou tentando localizar um dado no banco ...e depois mostrar para o usuário.
Mas ele não mostra o dado certo nem da erro ..
Muito obrigado.
Carregando comentários...