Ir para conteúdo

POWERED BY:

Arquivado

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

ClauberStipkovic

find não funciona

Por , em ASP Clássico

Recommended Posts

ClauberStipkovic    0

ClauberStipkovic
Postado

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.

Compartilhar este post

Link para o post
Compartilhar em outros sites

ClauberStipkovic    0

ClauberStipkovic
Postado

CONSEGUI ..... http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

O código ficou assim:

 

ASP [/tr][tr]

<%

codigo_solicitado = Request.Form("codigo_solicitado")

 

if codigo_solicitado = "" 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="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>

<%

else

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 * FROM controle_chamados WHERE codigo_solicitacao = "& codigo_solicitado &""

Set RS = Server.CreateObject("ADODB.RecordSet")

RS.Open SQL, Conn, 3, 3

 

if rs.EOF and rs.BOF then

rs.close

set rs = nothing

%>

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

<%

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="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><% =RS("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 RS("codigo_solicitacao")

%>

</td>

<td>

<%

Response.Write RS("nome_solicitante")

%>

</td>

<td>

<%

Response.Write RS("area_solicitante")

%>

</td>

<td>

<%

Response.Write RS("solicitacao")

%>

</td>

<td>

<%

Response.Write RS("data_solicitacao")

%>

</td>

<td>

<%

Response.Write RS("hora_chamado")

%>

</td>

<td>

<%

Response.Write "<a href=mailto:"& RS("email_solicitante") &">"& RS("email_solicitante") &"</a>"%>

</td>

</table>

<br>

<br>

<input type=submit value=voltar>

</form>

</body>

</html>

<%

end if

end if

%>

[/tr]

 

Muito obrigado pessoal .... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

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