Tempo excedido busca

Boris · Abril 14, 2009

Boa tarde Galera estou com probleminha na minha busca.

ele aparece com tempo excedido e não aparece codigo algum

quem puder me ajudar fico muito grato

eu estou com o seguinte codigo:

<html>

<title></title>

<head>

</head>

<link href="style.css" rel="stylesheet" type="text/css">

<body topmargin="0" bottommargin="0" leftmargin="0" rightmargin="0">

<br>

<table width="630" border="0" align="center" cellpadding="1" cellspacing="0">

<tr>

<td bgcolor="#ffcc66"><table width="640" height="480" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td bgcolor="#FFFFFF"><table width="640" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="25" bgcolor="#ffcc66"> </td>

</tr>

<tr>

<td height="405" align="left" valign="top"><form name="busca" method="post" action="busca_relat_diferenca.asp">

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

<tr>

<td height="50" valign="top"> </td>

</tr>

<tr>

<td height="10" align="center" valign="middle"><table width="700" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td height="28" background="Imagens/line_fundo.jpg"><div align="right">

<TABLE width="100%" border=0 align=center cellPadding=0 cellSpacing=0 class=texto>

<TR>

<TD height="1" align="center" nowrap><table width="100%" height="24" border="0" cellspacing="2">

<tr align=center class=texto>

<td width="33%" height="23"><div align="right" class="style48"><span class="LegendaTxt"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Loja</font></strong></span><span class="style50"><font face="Verdana, Arial, Helvetica, sans-serif">

<%

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

SQL = "SELECT * FROM filiais where cod_filial<>'999999' and cod_filial<>'000001' and cod_filial<>'000002' and cod_filial<>'000004' and cod_filial<>'000009' and cod_filial<>'000020' and cod_filial<>'000021' and cod_filial<>'777777' and cod_filial<>'000008' order by filial asc"

Dados.Open SQL, conexao01, 3

%>

<font face="Verdana, Arial, Helvetica, sans-serif">

<select class="LegendaTxt" name='filial'>

<option value='0'>Selecione</option>

<%

If Not Dados.EOF Then

While Not Dados.EOF

Response.Write "<OPTION VALUE='" & Dados("filial") & "'"

If Request("cod_filial") = Dados("filial") Then Response.Write " selected"

Response.Write ">" & Dados("filial") & "</OPTION>"

Dados.MoveNext

Wend

End If

%>

</select>

</font>

<%

set Dados = Nothing

%>

</font></span></div></td>

<td width="17%"> </td>

<td width="31%" height="23" class="LegendaTxt"><span class="style48"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Data</font></strong>

<input type="text" name="frm_data" class="LegendaTxt">

</span></td>

<td width="8%"> </td>

<td width="11%"><div align="left"><strong><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif">

<input type="image" src=Imagens/buscar.jpg align=absmiddle style="font-family=Tahoma; font size=10" id=image12 name=image1>

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

</table></TD>

</TR>

</TABLE>

</div>

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

</tr>

<tr>

<td height="36" valign="top"><table width="700" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td height="300" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr bgcolor="#FFFFFF">

<td valign="top"><div align="center"><span class="style31"><br>

</span></div>

</td>

</tr>

</table>

<div align="center"><span class="style31">Resultado da Busca </span><br>

</div>

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

<tr>

<td height="207" valign="top" bgcolor="#FFFFFF"><div align="center"><font face="Comic Sans MS"> </font>

<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">

<tr>

<td><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F7F7F7">

<tr>

<td><table width="100%" border="0" cellpadding="0" cellspacing="0">

<tr>

<td width="20%" height="22" class="cx"><div align="center" class="style47"></div></td>

<td width="22%" class="cx"><div align="center" class="style47"></div></td>

<td width="16%" class="cx"><div align="center" class="style47"></div></td>

<td width="17%" class="cx"><div align="center" class="style47"></div></td>

<td width="25%" class="cx"><div align="center" class="style47"></div></td>

</tr>

</table></td>

</tr>

<tr>

<td valign="top"><%

filial = Request.form("filial")

a=0

SQL = "SELECT * FROM CLIENTES_VAREJO"

clausula=""

if filial<>"0" then

if a=0 then

clausula = clausula & " where filial='"&filial&"'"

a=a+1

else

clausula = clausula & " and filial='"&filial&"'"

end if

end if

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

Dados.Open SQL, conexao01, 3

total = 0

while not Dados.EOF

total = total + 1

Dados.MoveNext

wend

if total > 0 then

Dados.MoveFirst

%>

<table border="0" width="100%" cellspacing="1">

<% while not Dados.EOF %>

<tr>

<td width="20%" height="20" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36">

<% =Dados("filial") %>

</div></td>

<td width="22%" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36"></div></td>

<td width="16%" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36"></div></td>

<td width="17%" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36"></div></td>

<td bgcolor="#F0F0F0" class="style39"><div align="right" class="style36">

<div align="center">

</div>

</div></td>

</tr>

<%

Dados.MoveNext

wend

%>

</table>

<%

end if

Dados.close

Set Dados = Nothing

%>

</td>

</tr>

</table></td>

</tr>

</table>

</div></td>

</tr>

<tr>

<td height="10" valign="top" bgcolor="#FFFFFF"><div align="center"></div></td>

</tr>

</table></td>

</tr>

</table></td>

</tr>

<tr>

<td height="19" valign="top"><table width="700" border="0" align="center" cellpadding="0" cellspacing="0">

</table></td>

</tr>

</table></td>

</tr>

</table>

</form></td>

</tr>

<tr>

<td height="50" bgcolor="#ffcc66"> </td>

</tr>

</table>

</td>

</tr>

</table></td>

</tr>

</table>

</body>

</html>

xikoo · Abril 14, 2009

Olá Boris, irei pedir para que evite o uso de flood pois você postou um mesmo tópico várias vezes

segundo para você digitar o código com a tag code e não quote

no caso <code> para iniciar o código e </code> para terminar o seu código

ao invés de usar com < > use com [ ] para podermos ver o seu código e ajudá-lo!

[]'s

hargon · Abril 14, 2009

Posta o conteúdo de 

Boris · Abril 14, 2009

<%

set conexao_01=server.CreateObject("adodb.connection")

dados_sys = "Provider=sqloledb;Data Source=SQL\SQLEXPRESS;Initial Catalog=bd_sys;User Id=sa;Password=sys0722;"

conexao_01.open dados_sys

%>

hargon · Abril 14, 2009

Faz um banco de dados access com as tabelas necessárias para a executação dessa página e configura para conectar no Access como teste.

O código não parece ter nada demais. O problema pode ser algo na conexão com o banco de dados.

Obs. Ou então a consulta pode está retornando milhares de dados, aí o servidor não aguenda.

Boris · Abril 15, 2009

Se for o caso da conexao qual seria a opção e conexao que ue poderia utilizar ???

hargon · Abril 15, 2009

Quantos registros tem nas tabelas consultadas? Pq se o erro for na leitura delas por retorna muitos registros, você terá que paginar.

Se o problema for realmente a conexão, teremos que vê pq está acontecendo isso, pois pode ser algum erro de configuração do SQL Server.

Em todas as consultas da página, coloque TOP 1 para listar apenas 1 registro. Pela lógina se o problema for a quantidade de registros, não deverá dar erro.

Boris · Abril 15, 2009

Estanho pois eu estou puxando apenas 27 registros....

eu vou dar uma revisada no codigo pra saber que não é alguma coisa de errado que estou fazendo...

xanburzum · Abril 15, 2009

Como que esta o timeout no db e kal qual versao do seu sql

O timeout é configurado por um arquivo INI,o erro acontece no sql 2000, 2005, 2008. talves o seu processo necessite de mais tempo.

tente no Query Analyzer, Tools-> Options-> Connection (guia) -> Query Timeout coloque valor 0

Boris · Abril 15, 2009

Está com o time-out 0

Boris · Abril 15, 2009

Galera eu mudei um pouco meu codigo so que agora ele ao inves de aparecer em branco a parde de dados do resultado da busca ele aparece com todos os 18 registros e quando eu seleciono pra fazer a busca ele não me faz a busca de um e sim me traz todos novamente.

Se alguem poder me ajudar eu agradeço, agradeço tbm aqueles que já estão me ajudando.

teste_00_busca_relat_diferenca.asp

<!--#include file="conexao01.asp"-->
<html>
<title></title>
<head>
</head>
<link href="style.css" rel="stylesheet" type="text/css">
<body topmargin="0" bottommargin="0" leftmargin="0" rightmargin="0">
<br>
<form name="busca" method="post" action="teste_00_busca_relat_diferenca.asp">
  <table width="100%" height="24" border="0" cellspacing="2">
	<tr align=center class=texto>
	  <td width="33%" height="23"><div align="right" class="style48"><span class="LegendaTxt"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Loja</font></strong></span><span class="style50"><font face="Verdana, Arial, Helvetica, sans-serif">
		  <% 
Set Dados = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM filiais where cod_filial<>'999999' and cod_filial<>'000001' and cod_filial<>'000002' and cod_filial<>'000004' and cod_filial<>'000009' and cod_filial<>'000020' and cod_filial<>'000021' and cod_filial<>'777777' and cod_filial<>'000008' order by filial asc"
Dados.Open SQL, conexao01, 3 
%>
		  <font face="Verdana, Arial, Helvetica, sans-serif">
		  <select class="LegendaTxt"  name='filial'>
			<option value=''>Selecione</option>
			<%
If Not Dados.EOF Then
  While Not Dados.EOF
	Response.Write "<OPTION VALUE='" & Dados("filial") & "'"
	If Request("cod_filial") = Dados("filial") Then Response.Write " selected"
	Response.Write ">" & Dados("filial") & "</OPTION>"
	Dados.MoveNext
  Wend
End If
%>
		  </select>
		  </font>
		  <%
set Dados = Nothing
%>
	  </font></span></div></td>
	  <td width="17%"> </td>
	  <td width="31%" height="23" class="LegendaTxt"><span class="style48"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Data</font></strong>
			<input type="text" name="frm_data" class="LegendaTxt">
	  </span></td>
	  <td><div align="left"><strong><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
		  <input type="image" src=Imagens/buscar.jpg align=absmiddle style="font-family=Tahoma; font size=10" id=image12 name=image1>
	  </font></strong></div></td>
  </table>
  <p><br>
  </p>
  <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F7F7F7">
	<tr>
	  <td><table width="100%" border="0" cellpadding="0" cellspacing="0">
		  <tr>
			<td width="20%" height="22" class="cx"><div align="center" class="style47"></div></td>
			<td width="22%" class="cx"><div align="center" class="style47"></div></td>
			<td width="16%" class="cx"><div align="center" class="style47"></div></td>
			<td width="17%" class="cx"><div align="center" class="style47"></div></td>
			<td width="25%" class="cx"><div align="center" class="style47"></div></td>
		  </tr>
	  </table></td>
	</tr>
	<tr>
	  <td valign="top"><% 
frm_filial = request.form("frm_filial")

a=0

Set Dados = Server.CreateObject("ADODB.Recordset")
Dados.Open SQL, conexao01, 3 


SQL  = "SELECT * FROM CLIENTES_VAREJO"
clausula=""
if filial<>"0" then
   if a=0 then 
   clausula = clausula & " where filial='"&filial&"'"
   a=a+1
   else
   clausula = clausula & " and filial='"&filial&"'"
   end if
end if


total = 0
while not Dados.EOF
total = total + 1
Dados.MoveNext
wend

if total > 0 then
   Dados.MoveFirst

frm_filial = request.form("frm_filial")

%>
		  <table border="0" width="100%" cellspacing="1">
			<% while not Dados.EOF %>
			<tr>
			  <td width="20%" height="20" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36">
				<div align="left" class="LegendaTxt">
				  <% =Dados("filial") %>
				  </div>
			  </div></td>
			  <td width="22%" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36">
			  
			  </div></td>
			  <td width="16%" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36">
			  
			  </div></td>
			  <td width="17%" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36"></div></td>
			  <td bgcolor="#F0F0F0" class="style39"><div align="right" class="style36">
				  <div align="center"> </div>
			  </div></td>
			</tr>
<%
Dados.MoveNext
wend
end if
%>
		  </table>
<%


Dados.close
Set Dados = Nothing
%>
	  </td>
	</tr>
  </table>
</form>
</body>
</html>

xanburzum · Abril 15, 2009

é pq vcesta dando

"SELECT * FROM CLIENTES_VAREJO"

assim vai trazer tudo mesmo...

Boris · Abril 15, 2009

e como deveria ser ?

*_Charles Potter_* · Abril 16, 2009

Ola, reparei que seu codigo tem sempre "<>" ou seja retorna tudo maior ou menos,,, assim vai retornar tudo...

tenta

SQL = "SELECT * FROM filiais where cod_filial<'999999' and cod_filial>'000001' and cod_filial>'000002' and cod_filial<'000004' and cod_filial>'000009' and cod_filial<'000020' and cod_filial>'000021' and cod_filial>'777777'  order by filial asc"

Explique melhor o que você quer buscar,,

vlw

Boris · Abril 16, 2009

Boa tarde Charles, então o <> seria diferente

cod_filial <> (diferente) 999999

Até então está certo essa parte do combo

o problema está sendo abaixo no resultado da busca.

eu seleciono no combo o nome da filial e uma determinada data dd/mm/aaaa

e logo abaixo apareceria o resultado e o problema é que está aparecendo tudo e não deveria.

Boris · Abril 16, 2009

Galera procurei refazer o codigo e está quase certo pelo menos agora está enviando as informações.

fiz um teste com o response.write comandosql:response.end e os dados estão sendo enviados.

so que quando coloco o pra rodar o codigo inteiro aparece a seguinte mensagem:

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Objeto necessário: 'consulta'

/sys/teste_00_busca_relat_diferenca.asp, line 104

Deixei em destaque a linha que está aparecendo o erro.

teste_00_busca_relat_diferenca.asp

<!--#include file="conexao01.asp"-->
<html>
<title></title>
<head>
</head>
<link href="style.css" rel="stylesheet" type="text/css">
<body topmargin="0" bottommargin="0" leftmargin="0" rightmargin="0">
<br>
<form name="busca" method="post" action="teste_00_busca_relat_diferenca.asp">
  <table width="100%" height="24" border="0" cellspacing="2">
	<tr align=center class=texto>
	  <td width="33%" height="23"><div align="right" class="style48"><span class="LegendaTxt"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Loja</font></strong></span><span class="style50"><font face="Verdana, Arial, Helvetica, sans-serif">
		  <% 
Set Dados = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM filiais where cod_filial<>'999999' and cod_filial<>'000001' and cod_filial<>'000002' and cod_filial<>'000004' and cod_filial<>'000009' and cod_filial<>'000020' and cod_filial<>'000021' and cod_filial<>'777777' and cod_filial<>'000008' order by filial asc"
Dados.Open SQL, conexao01, 3 
%>
		  <font face="Verdana, Arial, Helvetica, sans-serif">
		  <select  name='filial' class="LegendaTxt" id="filial">
			<option value='0'>Selecione</option>
			<%
If Not Dados.EOF Then
  While Not Dados.EOF
	Response.Write "<OPTION VALUE='" & Dados("filial") & "'"
	If Request("cod_filial") = Dados("filial") Then Response.Write " selected"
	Response.Write ">" & Dados("filial") & "</OPTION>"
	Dados.MoveNext
  Wend
End If
%>
		  </select>
		  </font>
		  <%
set Dados = Nothing
%>
	  </font></span></div></td>
	  <td width="17%"> </td>
	  <td width="31%" height="23" class="LegendaTxt"><span class="style48"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Data</font></strong>
			<input name="data_venda" type="text" class="LegendaTxt" id="data">
	  </span></td>
	  <td><div align="left"><strong><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
		  <input type="image" src=Imagens/buscar.jpg align=absmiddle style="font-family=Tahoma; font size=10" id=image12 name=image1>
	  </font></strong></div></td>
  </table>
  <p><br>
  </p>
  <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F7F7F7">
	<tr>
	  <td><table width="100%" border="0" cellpadding="0" cellspacing="0">
		  <tr>
			<td width="20%" height="22" class="cx"><div align="center" class="style47"></div></td>
			<td width="22%" class="cx"><div align="center" class="style47"></div></td>
			<td width="16%" class="cx"><div align="center" class="style47"></div></td>
			<td width="17%" class="cx"><div align="center" class="style47"></div></td>
			<td width="25%" class="cx"><div align="center" class="style47"></div></td>
		  </tr>
	  </table></td>
	</tr>
	<tr>
	  <td valign="top"><% 
 

filial = Request.form("filial")
data_venda = Request.form("data_venda")

a=0
Set Dados = Server.CreateObject("ADODB.Recordset")

comandosql = "SELECT * FROM loja_venda"

clausula=""

if filial<>"0" then
   if a=0 then 
	  clausula = clausula & " where filial='"&filial&"'"
	  a=a+1
   else
	  clausula = clausula & " and filial='"&filial&"'"
   end if
end if


if data_venda <> "0" then
   if a=0 then 
	  clausula = clausula & " where data_venda='"&data_venda&"'"
	  a=a+1
   else
	  clausula = clausula & " and data_venda='"&data_venda&"'"
   end if
end if

comandosql = comandosql & clausula

if filial = "0" and data=" " then

clausula = clausula & " where filial='0' and data_venda=''"

end if

'############################################################################

'response.write comandosql:response.end

[b]consulta.Open SQL, conexao01, 3 [/b]

'############################################################################

total = 0
while not consulta.EOF
total = total + 1
consulta.MoveNext
wend

if total > 0 then
consulta.MoveFirst
%>

		  <table border="0" width="100%" cellspacing="1">
			<% while not consulta.EOF %>
			<tr>
			  <td width="20%" height="20" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36">
				<div align="left" class="LegendaTxt">
				  <% =consulta("filial") %>
				</div>
			  </div></td>
			  <td width="22%" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36">
			  
			  </div></td>
			  <td width="16%" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36">
			  
			  </div></td>
			  <td width="17%" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36"></div></td>
			  <td bgcolor="#F0F0F0" class="style39"><div align="right" class="style36">
				  <div align="center"> </div>
			  </div></td>
			</tr>
<%
consulta.MoveNext
wend
end if
%>
		  </table>
<%
consulta.close
Set consulta = Nothing
%>
	  </td>
	</tr>
  </table>
</form>
</body>
</html>

Minha conexao está assim

conexao01.asp

<%
set conexao_01=server.CreateObject("adodb.connection")
dados_sys = "Provider=sqloledb;Data Source=SQL\SQLEXPRESS;Initial Catalog=bd_sys;User Id=sa;Password=sys0722;"
conexao_01.open dados_sys
%>

hargon · Abril 16, 2009

Posta a linha que da o erro, assim facilita.

Mas em todo caso você reclara DADOS como recordset e utiliza CONSULTA? Veja isso.

Boris · Abril 17, 2009

Então desculpa pela Gaff eu já corrigi o mesmo.

e agora aparece a seguinte mensagem

Microsoft OLE DB Provider for SQL Server erro '80040e14'

Invalid column name 'filial'.

/sys/teste_00_busca_relat_diferenca.asp, line 104

a linha de codigo é a seguinte:

consulta.Open comandosql, conexao01, 3

Eu procurei até trocar o filial por cod_filial que tbm tem nas duas tabelas mas aparece a mesma coisa so mudando de filial pra cod_filial

hargon · Abril 17, 2009

Veja que no seu código está

consulta.Open SQL, conexao01, 3

E não

consulta.Open comandosql, conexao01, 3

A variável SQL está com uma consulta lá de cima, que provavelmente não tem a coluna FILIAL. Corrija e tente novamente.

Boris · Abril 17, 2009

é sim eu vi, mas eu conseguiu fazer parte da busca;

Digo parte da busca porque so consigo fazer a busca se colocar a data_venda o codigo ficou assim:

<!--#include file="conexao01.asp"-->
<html>
<title></title>
<head>
</head>
<link href="style.css" rel="stylesheet" type="text/css">
<body topmargin="0" bottommargin="0" leftmargin="0" rightmargin="0">
<br>
<form name="busca" method="post" action="teste_00_busca_relat_diferenca.asp">
  <table width="100%" height="24" border="0" cellspacing="2">
	<tr align=center class=texto>
	  <td width="33%" height="23"><div align="right" class="style48"><span class="LegendaTxt"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Loja</font></strong></span><span class="style50"><font face="Verdana, Arial, Helvetica, sans-serif">
		  <% 
Set Dados = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM filiais where cod_filial<>'999999' and cod_filial<>'000001' and cod_filial<>'000002' and cod_filial<>'000004' and cod_filial<>'000009' and cod_filial<>'000020' and cod_filial<>'000021' and cod_filial<>'777777' and cod_filial<>'000008' order by filial asc"
Dados.Open SQL, conexao01, 3 
%>
		  <font face="Verdana, Arial, Helvetica, sans-serif">
		  <select  name='filial' class="LegendaTxt" id="filial">
			<option value='0'>Selecione</option>
			<%
If Not Dados.EOF Then
  While Not Dados.EOF
	Response.Write "<OPTION VALUE='" & Dados("cod_filial") & "'"
	If Request("cod_filial") = Dados("filial") Then Response.Write " selected"
	Response.Write ">" & Dados("filial") & "</OPTION>"
	Dados.MoveNext
  Wend
End If
%>
		  </select>
		  </font>
		  <%
set Dados = Nothing
%>
	  </font></span></div></td>
	  <td width="17%"> </td>
	  <td width="31%" height="23" class="LegendaTxt"><span class="style48"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Data</font></strong>
			<input name="data_venda" type="text" class="LegendaTxt" id="data">
	  </span></td>
	  <td><div align="left"><strong><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
		  <input type="image" src=Imagens/buscar.jpg align=absmiddle style="font-family=Tahoma; font size=10" id=image12 name=image1>
	  </font></strong></div></td>
  </table>
 
  <br>
  <br>
  <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F7F7F7">
	<tr>
	  <td><table width="100%" border="0" cellpadding="0" cellspacing="0">
		  <tr>
			<td width="20%" height="22" class="cx"><div align="center" class="style47"></div></td>
			<td width="22%" class="cx"><div align="center" class="style47"></div></td>
			<td width="16%" class="cx"><div align="center" class="style47"></div></td>
			<td width="17%" class="cx"><div align="center" class="style47"></div></td>
			<td width="25%" class="cx"><div align="center" class="style47"></div></td>
		  </tr>
	  </table></td>
	</tr>
	<tr>
	  <td valign="top"><% 
 

filial = Request.form("filial")
data_venda = Request.form("data_venda")

a=0
Set consulta = Server.CreateObject("ADODB.Recordset")

comandosql = "SELECT * FROM loja_venda"

clausula=""

if filial<>"0" then
   if a=0 then 
	  clausula = clausula & " where codigo_filial='"&filial&"'"
	  a=a+1
   else
	  clausula = clausula & " and codigo_filial='"&filial&"'"
   end if
end if


if data_venda <> "0" then
   if a=0 then 
	  clausula = clausula & " where data_venda='"&data_venda&"'"
	  a=a+1
   else
	  clausula = clausula & " and data_venda='"&data_venda&"'"
   end if
end if

comandosql = comandosql & clausula

if filial = "0" and data=" " then

clausula = clausula & " where codigo_filial='' and data_venda=''"

end if

'############################################################################

'response.write comandosql:response.end

consulta.Open comandosql, conexao01, 3 

'############################################################################

total = 0
while not consulta.EOF
total = total + 1
consulta.MoveNext
wend



if total > 0 then
consulta.MoveFirst


%>

		  <table border="0" width="100%" cellspacing="1">
			<% while not consulta.EOF %>
			<tr>
			  <td width="20%" height="20" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36">
				<div align="left" class="LegendaTxt">
				  <% 
				  =consulta("codigo_filial")
				  %>
				</div>
			  </div></td>
			  <td width="22%" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36"><span class="LegendaTxt">
				<% 
				  =consulta("data_venda")
				  %>
			  </span>
			  
			  </div></td>
			  <td width="16%" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36">
				<div align="right"><span class="LegendaTxt">
				  <% 
				  =consulta("valor_pago")
				  %>
					</span>
				  
				  </div>
			  </div></td>
			  <td width="17%" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36"></div></td>
			  <td bgcolor="#F0F0F0" class="style39"><div align="right" class="style36">
				  <div align="center"> </div>
			  </div></td>
			</tr>
<%
consulta.MoveNext
wend
end if
%>
		  </table>
<%
consulta.close
Set consulta = Nothing
%>
	  </td>
	</tr>
  </table>
</form>
</body>
</html>

Valew hargon

Arquivado

Tempo excedido busca

Recommended Posts

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xikoo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

*_Charles Potter_* 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

_Charles Potter_ 1