[Resolvido] redirecionar se dois campos vazios

rd111072 · Março 20, 2009

Boa tarde, moçada!

com o faço pra redirecionar pra a página anterior (form) se dois campos do request estiverem vazios.

Tipo: form -> request (e verifica. se vazio redireciona.)

alguém sabe?

augustoclaro · Março 20, 2009

usa assim:

if request.form("campo1") = "" and request.form("campo2") = "" Then
response.redirect "erro.asp"
end if

Espero ter ajudado!

rd111072 · Março 20, 2009

Alterei pra isso:

if request.form("nome_agenda") = "0" and request.form("local_agenda") = "0" Then
response.redirect "erro.asp"
end if

Deu erro:

ADODB.Field erro '800a0bcd'

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/sis-vendedor/teste/AG_confirmaPlanejamento.asp, line 91

o sql deu isso:

select cod_medico from tab_cad_medico where nome_medico = '' and tab_usuario_cod_usuario = '22'

os dois campos do form que não podem estar vazios são esses:

<select name="nome_medico">
						   	<option value="">------------ Escolha um médico ------------</option>					   
						<%Do while not rs.eof%>
							<option><%=rs("nome_medico")%>
						<%
						rs.movenext
						Loop
						%></option>
						   </select>
						</div>
					</label></td>
				  </tr>
				  <tr>
					<td colspan="3"><div align="left">Local</div></td>
				  </tr>
				  <tr>
					<td colspan="3"><div align="left">
					  <select name="local_agenda">
						<option value="">------------ Escolha um local ------------</option>
						<%Do while not rs2.eof%>
						<option><%=rs2("clinica_medico")%>
						  <%
						rs2.movenext
						Loop
						%>
						  </option>
					  </select>
					</div></td>

augustoclaro · Março 20, 2009

mand ao code completo por fvor!

rd111072 · Março 20, 2009

'Confirma que essa página não está em cache no cliente.

Response.CacheControl = "no-cache"

Response.AddHeader "Pragma", "no-cache"

Response.Expires = -1

if session("nome_usuario")="" or session("tipo_usuario")<>2 then

Response.Redirect "index.asp"

end if

%>

<%

cod_usuario = session("cod_usuario")

data_agenda = request.Form("data_agenda")

hora_agenda = request.Form("hora_agenda")

nome_agenda = request.Form("nome_medico")

local_agenda = request.Form("local_agenda")

desc_pre_agenda = request.Form("desc_pre_agenda")

data = cdate(data_agenda&" "&hora_agenda)

tipo_agenda = 1 'Valor 1 refere a visitas à médicos do vendedor.

data_atual =cdate(date()&" 00:00")

if request.form("nome_agenda") = "" and request.form("local_agenda") = "" Then

response.redirect "erro.asp"

end if

'if ISEMPTY (nome_agenda) AND ISEMPTY (local_agenda) then

'Response.write("<script>location = 'AG_incluirPlanejamento.asp';alert('Mensagem excluída.')")

'elseif then

'else

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<title>ADEF-RIO Acesso Vendedor</title>

<!--

.style11 {font-family: Verdana, Arial, Helvetica, sans-serif}

.style12 {font-style: normal; font-family: Arial, Helvetica, sans-serif; color: #FFFFFF; font-weight: bold;}

.style9 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; }

-->

</style>

</head>

<%

'AbreConexao

set recordGravacao = Server.CreateObject("ADODB.recordSet")

'verifica se a data lançada é menor que a data atual, se for não permite o lançamento

'if data < data_atual then

'response.redirect("AG_ProibirPlanejamento.asp")

'else

'busca o codigo do medico atraves do nome lançado.

sql = "select cod_medico from tab_cad_medico where nome_medico = '"&nome_agenda&"' and tab_usuario_cod_usuario = '"&cod_usuario&"'"

set recordGravacao = conexaoDB.execute(sql)

response.Write(sql)

cod_medico = recordGravacao("cod_medico")

'busca para verificar se existe data_agenda igual a que esta sendo lançada.

sql2 = "set dateformat dmy select * from tab_agenda where tipo_agenda = 1 and tab_usuario_cod_usuario = "&cod_usuario&" and data_agenda = '"&data&"'"

set recordGravacao = conexaoDB.execute(sql2)

response.Write(sql2)

if not recordGravacao.eof then

data_repetida = recordGravacao("data_agenda")

end if

'verifica se a data é repedida é vazia, se for permite o insert no banco

if data_repetida = "" then

sql = "set dateformat dmy insert into tab_agenda (data_agenda, tab_usuario_cod_usuario, tab_cad_medico_cod_medico, nome_agenda, local_agenda, desc_pre_agenda,tipo_agenda) values('"&data&"','"&cod_usuario&"','"&cod_medico&"','"&nome_agenda&"','"&local_agenda&"','"&desc_pre_agenda&"','"&tipo_agenda&"')"

set recordGravacao = conexaoDB.execute(sql)

else

response.Redirect("AG_ProibirPlanejamento2.asp")

end if

'end if

%>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<tr>

<td width="260"><div align="center" class="caixa_meio"><b><font face="Arial, Helvetica, sans-serif">Visita</font></b><span class="style11"><b><font face="Arial, Helvetica, sans-serif"> lançada com sucesso !</font></b></span></div></td>

</tr>

</table></td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<label>

</label>

</form></td>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

</body>

</html>

<%

'end if

conexaoDB.close

set conexaoDB = nothing

%>

augustoclaro · Março 20, 2009

usa assim:

<%
'Confirma que essa página não está em cache no cliente.
	Response.CacheControl = "no-cache"
	Response.AddHeader "Pragma", "no-cache"
	Response.Expires = -1

	if session("nome_usuario")="" or session("tipo_usuario")<>2 then  
		Response.Redirect "index.asp"
	end if
%>

<%
	
	
	cod_usuario = session("cod_usuario")
	data_agenda = request.Form("data_agenda")
	hora_agenda = request.Form("hora_agenda")
	nome_agenda = request.Form("nome_medico")
	local_agenda = request.Form("local_agenda")
	desc_pre_agenda = request.Form("desc_pre_agenda")
	data = cdate(data_agenda&" "&hora_agenda)
	tipo_agenda = 1 'Valor 1 refere a visitas à médicos do vendedor.
	data_atual =cdate(date()&" 00:00")
	
if nome_agenda = "" or local_agenda = "" Then
response.redirect "erro.asp"
end if

	'if ISEMPTY (nome_agenda) AND ISEMPTY (local_agenda) then
	'Response.write("<script>location = 'AG_incluirPlanejamento.asp';alert('Mensagem excluída.')")
	'elseif  then

	
	'else

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>ADEF-RIO Acesso Vendedor</title>

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

<link rel="shortcut icon" href="http://192.168.254.94/sis-vendedor/favicon.ico" type="image/x-icon"/>
<link rel="icon" href="http://192.168.254.94/sis-vendedor/favicon.ico" type="image/x-icon"/>

<style type="text/css">
<!--
.style11 {font-family: Verdana, Arial, Helvetica, sans-serif}
.style12 {font-style: normal; font-family: Arial, Helvetica, sans-serif; color: #FFFFFF; font-weight: bold;}
.style9 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; }
-->
</style>

</head>

<body background="imagens/fundo.gif">

<%
	'AbreConexao
		
		set recordGravacao = Server.CreateObject("ADODB.recordSet")
		
		'verifica se a data lançada é menor que a data atual, se for não permite o lançamento
		'if data < data_atual then
		
			'response.redirect("AG_ProibirPlanejamento.asp")
			
		'else
		
			'busca o codigo do medico atraves do nome lançado.

			sql = "select cod_medico from tab_cad_medico where nome_medico = '"&nome_agenda&"' and tab_usuario_cod_usuario = '"&cod_usuario&"'"		
		
			set recordGravacao = conexaoDB.execute(sql)	
			
			response.Write(sql)	
		
			cod_medico = recordGravacao("cod_medico")
		
			'busca para verificar se existe data_agenda igual a que esta sendo lançada.
			sql2 = "set dateformat dmy select * from tab_agenda where tipo_agenda = 1 and tab_usuario_cod_usuario = "&cod_usuario&" and data_agenda = '"&data&"'"
		
			set recordGravacao = conexaoDB.execute(sql2)
			
			response.Write(sql2)
			
			if not recordGravacao.eof then
				data_repetida = recordGravacao("data_agenda")
			end if
				
				'verifica se a data é repedida é vazia, se for permite o insert no banco
				if data_repetida = "" then
		
					sql = "set dateformat dmy insert into tab_agenda (data_agenda, tab_usuario_cod_usuario, tab_cad_medico_cod_medico, nome_agenda, local_agenda, desc_pre_agenda,tipo_agenda) values('"&data&"','"&cod_usuario&"','"&cod_medico&"','"&nome_agenda&"','"&local_agenda&"','"&desc_pre_agenda&"','"&tipo_agenda&"')"
		
					set recordGravacao = conexaoDB.execute(sql)
		
				else
		
					response.Redirect("AG_ProibirPlanejamento2.asp")
		
				end if
				
		'end if

%>

<table width="373" height="202" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
	<td width="27" height="23"><img src="imagens/canto_top_esq.gif" width="27" height="23" /></td>
	<td colspan="3" class="canto-top-meio"> </td>
	<td width="27"><img src="imagens/canto_top_dir.gif" width="27" height="23" /></td>
  </tr>
  <tr>
	<td height="19" class="canto-top-meio"> </td>
	<td width="135" valign="bottom" class="canto-top-meio"><img src="imagens/adef.gif" width="135" height="72" /></td>
	<td width="333" align="center" valign="bottom" class="canto-top-meio"> </td>
	<td width="242" align="center" valign="bottom" class="canto-top-meio"><div align="right"><strong><font color="#4770BF" size="4" face="Arial, Helvetica, sans-serif"><%=session("nome_vendedor")%></font><font color="#FFFFFF" size="4" face="Arial, Helvetica, sans-serif"></font></strong></div></td>
	<td class="canto-top-meio"> </td>
  </tr>
  <tr>
	<td height="19" class="canto-top-meio"> </td>
	<td colspan="3" align="center" valign="top" class="canto-top-meio"><img src="imagens/borda.gif" width="700" height="5" /></td>
	<td class="canto-top-meio"> </td>
  </tr>
  
  <tr>
	<td height="19" class="canto-top-meio"> </td>
	<td colspan="3" align="center" valign="top" class="canto-top-meio"> </td>
	<td class="canto-top-meio"> </td>
  </tr>
  <tr>
	<td height="19" class="canto-top-meio"> </td>
	<td colspan="3" align="center" valign="top" class="canto-top-meio"> </td>
	<td class="canto-top-meio"> </td>
  </tr>
  <tr>
	<td height="19" class="canto-top-meio"> </td>
	<td colspan="3" align="center" valign="top" class="canto-top-meio"> </td>
	<td class="canto-top-meio"> </td>
  </tr>
  <tr>
	<td height="19" class="canto-top-meio"> </td>
	<td colspan="3" align="center" valign="top" class="canto-top-meio"><a href="logoff.asp"></td>
	<td class="canto-top-meio"> </td>
  </tr>
  <tr>
	<td height="19" class="canto-top-meio"> </td>
	<td colspan="3" align="center" valign="top" class="canto-top-meio"><table width="293" border="0" cellspacing="0" cellpadding="0">
	  <tr>
		<td width="48"><img src="imagens/ok.png" width="48" height="48" /></td>
		<td width="260"><div align="center" class="caixa_meio"><b><font face="Arial, Helvetica, sans-serif">Visita</font></b><span class="style11"><b><font face="Arial, Helvetica, sans-serif"> lançada com sucesso !</font></b></span></div></td>
	  </tr>
	</table></td>
	<td class="canto-top-meio"> </td>
  </tr>
  <tr>
	<td height="19" class="canto-top-meio"> </td>
	<td colspan="3" align="center" valign="top" class="canto-top-meio"> </td>
	<td class="canto-top-meio"> </td>
  </tr>
  <tr>
	<td height="19" class="canto-top-meio"> </td>
	<td colspan="3" align="center" valign="top" class="canto-top-meio"> </td>
	<td class="canto-top-meio"> </td>
  </tr>
  <tr>
	<td height="19" class="canto-top-meio"> </td>
	<td colspan="3" align="center" valign="top" class="canto-top-meio"> </td>
	<td class="canto-top-meio"> </td>
  </tr>
  <tr>
	<td height="19" class="canto-top-meio"> </td>
	<td colspan="3" align="center" valign="top" class="canto-top-meio"> </td>
	<td class="canto-top-meio"> </td>
  </tr>
  <tr>
	<td height="19" class="canto-top-meio"> </td>
	<td colspan="3" align="center" valign="top" class="canto-top-meio"><form id="frm" name="frm" method="post" action="">
	  <label>
		<input type="button" name="Button" value="OK" onclick="java script:window.location='AG_incluirPlanejamento.asp'" />
		</label>
	</form></td>
	<td class="canto-top-meio"> </td>
  </tr>
  

  <tr>
	<td height="19" class="canto-top-meio"> </td>
	<td colspan="3" class="canto-top-meio"><img src="imagens/borda.gif" width="700" height="5" /></td>
	<td class="canto-top-meio"> </td>
  </tr>
  
  
  <tr>
	<td><img src="imagens/canto_bottom_esq.gif" width="27" height="25" /></td>
	<td colspan="3" class="canto-bottom-meio"> </td>
	<td><img src="imagens/canto_bottom_dir.gif" width="27" height="25" /></td>
  </tr>
</table>

</body>
</html>
<%
'end if
	conexaoDB.close
	set conexaoDB = nothing
	%>

rd111072 · Março 23, 2009

Não funcionou. Desse modo:

if request.form("nome_agenda") = "" or request.form("local_agenda") = "" Then

redireciona se qualquer um dos dois campos estiverem vazios.

Eu preciso se todos os dois estiverem vazios.

Alguém sabe?

Mário Monteiro · Março 23, 2009

troque or por and

rd111072 · Março 23, 2009

Troquei por and.

Mas agora se o local_agenda está vazio redireciona pro erro.asp.

Se está cheio cadastra. Estranho.

Está assim:

if request.form("nome_agenda") = "" and request.form("local_agenda") = "" Then
response.redirect ("erro.asp?nome_agenda="&nome_agenda&"&local_agenda"&local_agenda&"")

rd111072 · Março 23, 2009

Falta de atenção minha:

if request.form("nome_medico") = "" and request.form("local_agenda") = "" Then

response.redirect ("erro.asp?nome_agenda="&nome_agenda&"&local_agenda"&local_agenda&"")

Agora funcionou.

Vlw, moçada!

Mário Monteiro · Março 23, 2009

perfeito entao

parabens

Arquivado

[Resolvido] redirecionar se dois campos vazios

Recommended Posts

rd111072 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

augustoclaro 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

rd111072 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

augustoclaro 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

rd111072 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

augustoclaro 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

rd111072 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

rd111072 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

rd111072 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante