Ir para conteúdo

POWERED BY:

Arquivado

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

l_nando

[Resolvido] List menú

Por , em ASP Clássico

Recommended Posts

Mário Monteiro    179

Mário Monteiro
Postado

poste aqui os dois trechos de como estao os codigos

 

nao precisa por a pagina toda so os trechos

Compartilhar este post

Link para o post
Compartilhar em outros sites

l_nando    0

l_nando
Postado

Trecho da pág. onde seleciono o funcionário:

 

<select name="Hmotoadm" class="textopreto">
						<option value="Todos" selected>Todos</option>
						<%rs.moveFirst
			Do while not rs.eof%>
						<option value="<%=rs("Motorista")%>"> <%=rs("Motorista")%>
						<%rs.Movenext
	Loop

Trecho da pág. onde mostro as informações solicitadas:

 

<%

Dim bco, sq, rs, VHmotoadm, Vtxtdia1, Vtxtdia2

VHmotoadm = request.Form("Hmotoadm")
Vtxtdia1 = request.Form("txtdia1")
Vtxtdia2 = request.Form("txtdia2")

if request("Hmotoadm") = "Todos" then

sq = "select * from Rote where Motorista = '" &VHmotoadm& "' and dia between '" & Vtxtdia1 & "' and  '" & Vtxtdia2 & "'"

else

sq = "select * from Rote where Motorista = '" &VHmotoadm& "' and dia between '" & Vtxtdia1 & "' and  '" & Vtxtdia2 & "'"

'response.Write(sq)
'response.End()

AbreConn
'Executando o SQL
set rs = bco.Execute(sq)



if rs.eof then
response.Redirect("RELATADM0001.ASP?msg=nent")
else

%>

Obs.:

 

A tela RELATADM0001.ASP?msg=nent é a mesma onde seleciono o funcionário para pedir o relatório, mas o " ?msg=nent " é uma condição de que quando não encontrar nenhuma informação a pg retorna com uma mensagem "NENHUMA INFORMAÇÃO ENCONTRADA".

 

Grato

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vagner Bucioli Scala    0

Vagner Bucioli Scala
Postado

Pelo menos neste ultimo código postado os dois SQLS estão iguais:

 

no primeiro SQL tente assim,

 

sq = "select * from Rote where dia between '" & Vtxtdia1 & "' and '" & Vtxtdia2 & "'"

Pq neste caso, como está selecionado "todos" não é necessário o parametro "Motorista"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

exato neste ultimo post os codigos estao iguais

 

como ja armazenou em uma variavel ano precisa tambem continuar usando o request no if poderia ser

 

if VHmotoadm = "Todos" then

Mas corrija em especial a sql

Compartilhar este post

Link para o post
Compartilhar em outros sites

l_nando    0

l_nando
Postado

Pessoal, boa tarde.

 

Fiz como o Vagner especificou e mudei o if como o Mario explicou também, então ficou assim:

 

 

if VHmotoadm = "Todos" then

sq = "select * from Rote where dia between '" & Vtxtdia1 & "' and  '" & Vtxtdia2 & "'"

else

sq = "select * from Rote where Motorista = '" &VHmotoadm& "' and dia between '" & Vtxtdia1 & "' and  '" & Vtxtdia2 & "'"

'response.Write(sq)
'response.End()

AbreConn
'Executando o SQL
set rs = bco.Execute(sq)



if rs.eof then
response.Redirect("RELATADM0001.ASP?msg=nent")
else

E nada, quando seleciono a palavra todos, me retorna a pg em branco, quando seleciono um funcionario, me retorna as informações existentes.

 

Só ressaltando, "Todos" não vem do bd e os funcionaros vem do bd, será que esta aí o problema?

Compartilhar este post

Link para o post
Compartilhar em outros sites

l_nando    0

l_nando
Postado

Pessoal, boa tarde.

 

Acho que resolvi o problema, fiz o seguinte:

 

Dim bco, sq, rs, VHmotoadm, Vtxtdia1, Vtxtdia2, sq1, rs1

VHmotoadm = request.Form("Hmotoadm")
Vtxtdia1 = request.Form("txtdia1")
Vtxtdia2 = request.Form("txtdia2")

if VHmotoadm = "Todos" then

sq1 = "select * from Rote where dia between '" & Vtxtdia1 & "' and  '" & Vtxtdia2 & "'"


AbreConn
'Executando o SQL
set rs1 = bco.Execute(sq1)

if rs1.eof then
response.Redirect("RELATADM0001.ASP?msg=nent")
else

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

response.Write("<font face='Tahoma' size='5pt' color=#993300>")
response.Write("<center><b><u>Informações Encontradas</u></b></center>")
response.Write("<br>")
response.Write("<center><font face='Tahoma' size='3' color=#000000><b>Período de: " & request("txtdia1") &" a  "& request("txtdia2")& "</b></center>")
response.Write("<br>")
response.Write("<center>")
response.Write("<font face='Tahoma' size='2' color=#000000>")
Response.Write("<table width='100%' border='1' cellpadding='2' cellspacing='0' bordercolor='#666666'>")
Response.Write("<tr bgcolor='#DCDCDC'>")
Response.Write("<td bgcolor='#DCDCDC'><font face='Tahoma' size='2px' color=#000000><center><b>Motorista</b></center></td>")
Response.Write("<td bgcolor='#DCDCDC'><font face='Tahoma' size='2px' color=#000000><b><center>Carro</center></b></font></td>")
Response.Write("<td bgcolor='#DCDCDC'><font face='Tahoma' size='2px' color=#000000><center><b>Dia</b></center></td>")
Response.Write("<td bgcolor='#DCDCDC'><font face='Tahoma' size='2px' color=#000000><b><center>Saída</center></b></font></td>")
Response.Write("<td bgcolor='#DCDCDC'><font face='Tahoma' size='2px' color=#000000><center><b>Cliente(s)</b></center></td>")
Response.Write("<td bgcolor='#DCDCDC'><font face='Tahoma' size='2px' color=#000000><b><center>Chegada</center></b></font></td>")
Response.Write("</tr>")


rs1.MoveFirst
do while not rs1.EOF


Response.Write("<tr>")
Response.Write("<td nowrap bgcolor='#FFFFFF'><font face='Verdana' size='2' color=#000000><center>" & rs1("Motorista") & "</center></td>")
Response.Write("<td nowrap bgcolor='#FFFFFF'><font face='Verdana' size='2' color=#000000><center>" & rs1("Carro") & "</center></td>")
Response.Write("<td nowrap bgcolor='#FFFFFF'><font face='Verdana' size='2' color=#000000><center>" & rs1("Dia") & "</center></td>")
Response.Write("<td nowrap bgcolor='#FFFFFF'><font face='Verdana' size='2' color=#000000><center>" & rs1("HoraSai") & "</center></td>")
Response.Write("<td nowrap bgcolor='#FFFFFF'><font face='Verdana' size='2' color=#000000><center>" & rs1("CliFeito") & "</center></td>")
Response.Write("<td nowrap bgcolor='#FFFFFF'><font face='Verdana' size='2' color=#000000><center>" & rs1("HoraChega") & "</center></td>")
Response.Write("</tr>")

rs1.MoveNext
loop
Response.Write("</table>")
Response.Write("</font>")
Response.Write("</center>")


FechaConn

end if

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

else

sq = "select * from Rote where Motorista = '" &VHmotoadm& "' and dia between '" & Vtxtdia1 & "' and  '" & Vtxtdia2 & "'"

'response.Write(sq)
'response.End()

AbreConn
'Executando o SQL
set rs = bco.Execute(sq)



if rs.eof then
response.Redirect("RELATADM0001.ASP?msg=nent")
else

%>
<%
response.Write("<font face='Tahoma' size='5pt' color=#993300>")
response.Write("<center><b><u>Informações Encontradas</u></b></center>")
response.Write("<br>")
response.Write("<center><font face='Tahoma' size='3' color=#000000><b>Período de: " & request("txtdia1") &" a  "& request("txtdia2")& "</b></center>")
response.Write("<br>")
response.Write("<center>")
response.Write("<font face='Tahoma' size='2' color=#000000>")
Response.Write("<table width='100%' border='1' cellpadding='2' cellspacing='0' bordercolor='#666666'>")
Response.Write("<tr bgcolor='#DCDCDC'>")
Response.Write("<td bgcolor='#DCDCDC'><font face='Tahoma' size='2px' color=#000000><center><b>Motorista</b></center></td>")
Response.Write("<td bgcolor='#DCDCDC'><font face='Tahoma' size='2px' color=#000000><b><center>Carro</center></b></font></td>")
Response.Write("<td bgcolor='#DCDCDC'><font face='Tahoma' size='2px' color=#000000><center><b>Dia</b></center></td>")
Response.Write("<td bgcolor='#DCDCDC'><font face='Tahoma' size='2px' color=#000000><b><center>Saída</center></b></font></td>")
Response.Write("<td bgcolor='#DCDCDC'><font face='Tahoma' size='2px' color=#000000><center><b>Cliente(s)</b></center></td>")
Response.Write("<td bgcolor='#DCDCDC'><font face='Tahoma' size='2px' color=#000000><b><center>Chegada</center></b></font></td>")
Response.Write("</tr>")


rs.MoveFirst
do while not rs.EOF


Response.Write("<tr>")
Response.Write("<td nowrap bgcolor='#FFFFFF'><font face='Verdana' size='2' color=#000000><center>" & rs("Motorista") & "</center></td>")
Response.Write("<td nowrap bgcolor='#FFFFFF'><font face='Verdana' size='2' color=#000000><center>" & rs("Carro") & "</center></td>")
Response.Write("<td nowrap bgcolor='#FFFFFF'><font face='Verdana' size='2' color=#000000><center>" & rs("Dia") & "</center></td>")
Response.Write("<td nowrap bgcolor='#FFFFFF'><font face='Verdana' size='2' color=#000000><center>" & rs("HoraSai") & "</center></td>")
Response.Write("<td nowrap bgcolor='#FFFFFF'><font face='Verdana' size='2' color=#000000><center>" & rs("CliFeito") & "</center></td>")
Response.Write("<td nowrap bgcolor='#FFFFFF'><font face='Verdana' size='2' color=#000000><center>" & rs("HoraChega") & "</center></td>")
Response.Write("</tr>")

rs.MoveNext
loop
Response.Write("</table>")
Response.Write("</font>")
Response.Write("</center>")


FechaConn

end if
end if

%>

Fiz um recordset e uma sql para cada condição tipo sq1 e rs1 para a condição Todos e sq e rs para a condição que seleciono o funcionário.

 

Funcionou!

 

Muito obrigado pela força.

 

Um abraço a todos.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Que bom que resolveu

 

Parabens

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