[Resolvido] Busca ASP

[RF programação 0]

CONSEGUI ARRUMAR A DATA

Só queria uma última ajuda:

Como monto o select para que o campo Palavra busque por cliente, produto ou fornecedor??

 

 

Abaixo o código como ficou:

<%Session.LCID = 1046If Request.Form("Palavra")<>"" Then	  dim dteInicial 	  dteInicial = Request.Form("txtDataInicial")	  dteInicial = Year(dteInicial) & "/" & Month(dteInicial) & "/" & Day(dteInicial)	  dim dteFinal 	  dteFinal = Request.Form("txtDataFinal")	  dteFinal = Year(dteFinal) & "/" & Month(dteFinal) & "/" & Day(dteFinal)DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "DSNtemp=dsntemp & "DBQ=" & server.mappath("dados/db.mdb")sqlstmt = "select ID, DATA, CLIENTE, FORNECEDOR, PRODUTO, ENDERECO from Tabela1 where DATA between #" +  dteInicial + "# and #" + dteFinal + "# "Set rs = Server.CreateObject("ADODB.Recordset")rs.Open sqlstmt, DSNtemp, 3, 3totalrecs = rs.recordcountif rs.eof then %><font face="Verdana" size="2"><b>Nenhum registro encontrado!</b></font><br>	<br><% elseDo While not rs.eofResponse.write "Registro encontrado<br/>"%><%ID = rs("ID")CLIENTE = rs("CLIENTE")FORNECEDOR = rs("FORNECEDOR")PRODUTO = rs("PRODUTO")ENDERECO = rs("ENDERECO")DATA = rs("DATA")%><b>Cliente:</b> <%=CLIENTE%><br><b>Fornecedor:</b> <%=FORNECEDOR%><br><b>Produto:</b> <%=PRODUTO%><br><b>Endereço:</b> <%=ENDERECO%><br><b>Data:</b> <%=DATA%><br><%rs.movenextloopend ifElse	 Response.Write "Data inválida"end if%>

[RF programação 0]

CONSEGUI! :clap: :clap: :clap:

Agradeço a ajuda,

obrigado hargon.

 

Pode fechar o tópico. :thumbsup:

[hargon 64]

Bacana fi. :thumbsup: