crição de um campo de pesquisa

[lams 0]

Eai pessoal?como vao as coisas?estou precisando de uma ajuda de vcs...Preciso criar um campo select, para pesquisa,com o nome, "Ordem dos chamados"devem ter os criterios:Chamado novo (onde o campo Dt_Abertura tem q ser igual hoje)Chamado antigo (onde as informacoes devem ser menores q a data atual (nesse campo Dt_Abertura))Quem poderia me ajudar?brigadolucas

[Ted k' 126]

simples cara:

 

se entendi é isso aki man que você quer?

 

<% Set RS = Conn.Execute("Select * From Tabela Order By Dt_Abertura Asc") %>

<select name="teste">
<%
While Not RS.Eof
If ""&RS("Dt_Abertura")&"" = Date() Then
%>
<option value="<% Response.Write(RS("Dt_Abertura"))%>"><% Response.Write(RS("Dt_Abertura"))%></option>
<% Else %>
<option value="<% Response.Write(RS("Dt_Abertura"))%>"><% Response.Write(RS("Dt_Abertura"))%></option>
<% End If %>
<% Rs.MoveNext : Wend %>
</select>

Se for cara siga essa lógica que você vai longe!!!!

[lams 0]

fiz do jeito que você disse, crie o objeto e etc, no entanto, o campo select não aparece opção

para mandar pesquisar, aparece lá o campo "Ordenar chamados" e as opções vazias...

 

você sabe o que poderia ser?

 

segue meu cod...

 

<tr><td>Ordena chamados</td><td><select name="Dt_Abertura"><%While Not objRsData.EofIf ""&RS("Dt_Abertura")&"" = Date() Then%><option value="<% Response.Write(objRsData("Dt_Abertura"))%>"><% Response.Write(objRsData("Dt_Abertura"))%></option><% Else %><option value="<% Response.Write(objRsData("Dt_Abertura"))%>"><% Response.Write(objRsData("Dt_Abertura"))%></option><% End If %><% objRsData.MoveNext%> <%Wend%></select></td>		</tr>

[Ted k' 126]

o campo Dt_Abertura é um campo que recebe valor data????

 

achei um erro aki

 

a linha está errada

If ""&RS("Dt_Abertura")&"" = Date() Then

substitua ela tbm por

If ""&objRsData("Dt_Abertura")&"" = ""&Data&"" Then

 

codigo certo

 

<select name="Dt_Abertura">
<%
While Not objRsData.Eof
Dim Data
Data = Date()
If ""&objRsData("Dt_Abertura")&"" = ""&Data&"" Then
%>
<option selected value="<% Response.Write(objRsData("Dt_Abertura"))%>"><% Response.Write(objRsData("Dt_Abertura"))%></option>
<% Else %>
<option value="<% Response.Write(objRsData("Dt_Abertura"))%>"><% Response.Write(objRsData("Dt_Abertura"))%></option>
<% End If %>
<% objRsData.MoveNext : Wend%>
</select>

[lams 0]

substitui e ainda não foi....

o campo Dt_Abertura é nome do campo na tabela....

e ele tamb recebe o valor data...

 

fiz assim:

<td>Ordena chamados</td><td><select name="Dt_Abertura"><%While Not objRsData.EofDim DataData = Date()If ""&objRsData("Dt_Abertura")&"" = ""&Dt_Abertura&"" Then%><option value="<% Response.Write(objRsData("Dt_Abertura"))%>"><% Response.Write(objRsData("Dt_Abertura"))%></option><% Else %><option value="<% Response.Write(objRsData("Dt_Abertura"))%>"><% Response.Write(objRsData("Dt_Abertura"))%></option><% End If %><% objRsData.MoveNext : Wend%></select></td>

Ainda continua mesma coisa....

o campo select sem opções...... :(

[Ted k' 126]

ñ cara olha ai faltou o selected no option

 

<select name="Dt_Abertura">
<%
While Not objRsData.Eof
Dim Data
Data = Date()
If ""&objRsData("Dt_Abertura")&"" = ""&Data&"" Then
%>
<option selected value="<% Response.Write(objRsData("Dt_Abertura"))%>"><% Response.Write(objRsData("Dt_Abertura"))%></option>
<% Else %>
<option value="<% Response.Write(objRsData("Dt_Abertura"))%>"><% Response.Write(objRsData("Dt_Abertura"))%></option>
<% End If %>
<% objRsData.MoveNext : Wend%>
</select>

[lams 0]

Cara, muito estranho, não ta funfando...

 

veja esse como é feito...

 

<td ><font face="Verdana" size="1">Responsável</font></td>		<td width="147" height="1" colspan="2"><select name="cmbResponsavel" size="1" tabindex="1">		  <option selected value="0">Todos</option><%Do While Not objRsResponsavel.EOF %>		  <option value="<%=objRsResponsavel("No_usuario")%>"><%=objRsResponsavel("No_usuario") %></option><%objRsResponsavel.MoveNext%><%Loop%>		</select></td>

só p você ver como estao os outros selects dessa página...

precisa de dar o response.write aqui mesmo?!

[Ted k' 126]

volto a repedir o exemplo anterior

 

faltou o codigo do selected, veja meu codigo ai

 

 

<select name="Dt_Abertura">
<%
While Not objRsData.Eof
Dim Data
Data = Date()
If ""&objRsData("Dt_Abertura")&"" = ""&Data&"" Then
%>
<option selected value="<% Response.Write(objRsData("Dt_Abertura"))%>"><% Response.Write(objRsData("Dt_Abertura"))%></option>
<% Else %>
<option value="<% Response.Write(objRsData("Dt_Abertura"))%>"><% Response.Write(objRsData("Dt_Abertura"))%></option>
<% End If %>
<% objRsData.MoveNext : Wend%>
</select>

se você fazer do jeito que postei vai ficar correto