erro no if ="" and >""

[Anubis 0]

INTAU GALERA TENHO ESSE SCRIPT TUDO FUNCIONA LEGAL......MAS QUANDO EU PEÇO PARA

VERIFICAR ESSA LINHA.:

**** if VPROGRAMA2 = "" and P2B1 > "" and P2B2 > "" and P2B3 > "" and P2B4 > "" and P2B5 > "" then *** TRANCA

 

+ O MAIS ENGRAÇADO É QUE AL CONTRARIO FUNCIONA....

**** if VPROGRAMA2 > "" and P2B1 = "" and P2B2 = "" and P2B3 = "" and P2B4 = "" and P2B5 = "" then

 

SÓ QUE AS 2 JUNTAS NÃO FUNCIONAM E EU PRECISO DAS 2;;;;;

 

OQUE EU FAÇO ????????????

 

 

<!--#include file="conexao.asp"--><%Dim VNOME, VDEPARTAMENTO, VDATA, VAUTORIZADO, VSTATUS, VQUANTIDADE, VPROGRAMA1, VBLOCOSP1, P1B1, P1B2, P1B3, P1B4, P1B5, VPROGRAMA2, VBLOCOSP2, P2B1, P2B2, P2B3, P2B4, P2B5, VPROGRAMA3, VBLOCOSP3, P3B1, P3B2, P3B3, P3B4, P3B5, VPROGRAMA4, VBLOCOSP4, P4B1, P4B2, P4B3, P4B4, P4B5, VPROGRAMA5, VBLOCOSP5, P5B1, P5B2, P5B3, P5B4, P5B5, VPROGRAMA6, VBLOCOSP6, P6B1, P6B2, P6B3, P6B4, P6B5, VPROGRAMA7, VBLOCOSP7, P7B1, P7B2, P7B3, P7B4, P7B5, VPAGE, VOBS'---------------------------------------- CAPTURANDO VALORES DOS FORMS PRIMARIOS VNOME = request.Form("NOMEPEDIDO")VDEPARTAMENTO = request.Form("DEPARTAMENTOPEDIDO")VDATA = FormatDateTime(Date)	VAUTORIZADO = request.Form("AUTORIZADOPEDIDO")VSTATUS = request.Form("STATUSPEDIDO")VQUANTIDADE = request.Form("QUANTIDADEPEDIDO")VOBS = request.Form("OBSPEDIDO")VPAGE = request.Form("PAGEATUAL")'---------------------------------------- DEFININDO AS SESSÕES DOS FORMS PRIMARIOSsession("PAGEATUAL") = VPAGEsession("NOMEPEDIDO") = VNOMEsession("DEPARTAMENTOPEDIDO") = VDEPARTAMENTOsession("QUANTIDADEPEDIDO") = VQUANTIDADEsession("OBSPEDIDO") = VOBS'---------------------------------------- CAPTURANDO VALORES DE PROGRAMA1 E BLOCOS VPROGRAMA1 = request.Form("PROGRAMAPEDIDO1")P1B1 = request.Form("BLOCOP101")P1B2 = request.Form("BLOCOP102")P1B3 = request.Form("BLOCOP103")P1B4 = request.Form("BLOCOP104")P1B5 = request.Form("BLOCOP105")VBLOCOSP1 = P1B1 + P1B2 + P1B3 + P1B4 + P1B5'---------------------------------------- CAPTURANDO VALORES DE PROGRAMA2 E BLOCOSVPROGRAMA2 = request.Form("PROGRAMAPEDIDO2")P2B1 = request.Form("BLOCOP201")P2B2 = request.Form("BLOCOP202")P2B3 = request.Form("BLOCOP203")P2B4 = request.Form("BLOCOP204")P2B5 = request.Form("BLOCOP205")VBLOCOSP2 = P2B1 + P2B2 + P2B3 + P2B4 + P2B5'---------------------------------------- CAPTURANDO VALORES DE PROGRAMA3 E BLOCOSVPROGRAMA3 = request.Form("PROGRAMAPEDIDO3")P3B1 = request.Form("BLOCOP301")P3B2 = request.Form("BLOCOP302")P3B3 = request.Form("BLOCOP303")P3B4 = request.Form("BLOCOP304")P3B5 = request.Form("BLOCOP305")VBLOCOSP3 = P3B1 + P3B2 + P3B3 + P3B4 + P3B5'---------------------------------------- CAPTURANDO VALORES DE PROGRAMA4 E BLOCOSVPROGRAMA4 = request.Form("PROGRAMAPEDIDO4")P4B1 = request.Form("BLOCOP401")P4B2 = request.Form("BLOCOP402")P4B3 = request.Form("BLOCOP403")P4B4 = request.Form("BLOCOP404")P4B5 = request.Form("BLOCOP405")VBLOCOSP4 = P4B1 + P4B2 + P4B3 + P4B4 + P4B5'---------------------------------------- CAPTURANDO VALORES DE PROGRAMA5 E BLOCOSVPROGRAMA5 = request.Form("PROGRAMAPEDIDO5")P5B1 = request.Form("BLOCOP501")P5B2 = request.Form("BLOCOP502")P5B3 = request.Form("BLOCOP503")P5B4 = request.Form("BLOCOP504")P5B5 = request.Form("BLOCOP505")VBLOCOSP5 = P5B1 + P5B2 + P5B3 + P5B4 + P5B5'---------------------------------------- CAPTURANDO VALORES DE PROGRAMA6 E BLOCOSVPROGRAMA6 = request.Form("PROGRAMAPEDIDO6")P6B1 = request.Form("BLOCOP601")P6B2 = request.Form("BLOCOP602")P6B3 = request.Form("BLOCOP603")P6B4 = request.Form("BLOCOP604")P6B5 = request.Form("BLOCOP605")VBLOCOSP6 = P6B1 + P6B2 + P6B3 + P6B4 + P6B5'---------------------------------------- CAPTURANDO VALORES DE PROGRAMA7 E BLOCOSVPROGRAMA7 = request.Form("PROGRAMAPEDIDO7")P7B1 = request.Form("BLOCOP701")P7B2 = request.Form("BLOCOP702")P7B3 = request.Form("BLOCOP703")P7B4 = request.Form("BLOCOP704")P7B5 = request.Form("BLOCOP705")VBLOCOSP7 = P7B1 + P7B2 + P7B3 + P7B4 + P7B5'---------------------------------------- DEFININDO AS SESSÕES DE PROGRAMAS FULLsession("PROGRAMAPEDIDO1") = VPROGRAMA1session("PROGRAMAPEDIDO2") = VPROGRAMA2session("PROGRAMAPEDIDO3") = VPROGRAMA3session("PROGRAMAPEDIDO4") = VPROGRAMA4session("PROGRAMAPEDIDO5") = VPROGRAMA5session("PROGRAMAPEDIDO6") = VPROGRAMA6session("PROGRAMAPEDIDO7") = VPROGRAMA7'---------------------------------------- VERIFICANDO BLOCOS DE PROGRAMA1 E DEFININDO AS SESSÕESif P1B1 > "" thensession("P1B1") = "checked"end ifif P1B2 > "" thensession("P1B2") = "checked"end ifif P1B3 > "" thensession("P1B3") = "checked"end ifif P1B4 > "" thensession("P1B4") = "checked"end ifif P1B5 > "" thensession("P1B5") = "checked"end if'---------------------------------------- VERIFICANDO BLOCOS DE PROGRAMA2 E DEFININDO AS SESSÕESif P2B1 > "" thensession("P2B1") = "checked"end ifif P2B2 > "" thensession("P2B2") = "checked"end ifif P2B3 > "" thensession("P2B3") = "checked"end ifif P2B4 > "" thensession("P2B4") = "checked"end ifif P2B5 > "" thensession("P2B5") = "checked"end if'---------------------------------------- VERIFICANDO BLOCOS DE PROGRAMA3 E DEFININDO AS SESSÕESif P3B1 > "" thensession("P3B1") = "checked"end ifif P3B2 > "" thensession("P3B2") = "checked"end ifif P3B3 > "" thensession("P3B3") = "checked"end ifif P3B4 > "" thensession("P3B4") = "checked"end ifif P3B5 > "" thensession("P3B5") = "checked"end if'---------------------------------------- VERIFICANDO BLOCOS DE PROGRAMA4 E DEFININDO AS SESSÕESif P4B1 > "" thensession("P4B1") = "checked"end ifif P4B2 > "" thensession("P4B2") = "checked"end ifif P4B3 > "" thensession("P4B3") = "checked"end ifif P4B4 > "" thensession("P4B4") = "checked"end ifif P4B5 > "" thensession("P4B5") = "checked"end if'---------------------------------------- VERIFICANDO BLOCOS DE PROGRAMA5 E DEFININDO AS SESSÕESif P5B1 > "" thensession("P5B1") = "checked"end ifif P5B2 > "" thensession("P5B2") = "checked"end ifif P5B3 > "" thensession("P5B3") = "checked"end ifif P5B4 > "" thensession("P5B4") = "checked"end ifif P5B5 > "" thensession("P5B5") = "checked"end if'---------------------------------------- VERIFICANDO BLOCOS DE PROGRAMA6 E DEFININDO AS SESSÕESif P6B1 > "" thensession("P6B1") = "checked"end ifif P6B2 > "" thensession("P6B2") = "checked"end ifif P6B3 > "" thensession("P6B3") = "checked"end ifif P6B4 > "" thensession("P6B4") = "checked"end ifif P6B5 > "" thensession("P6B5") = "checked"end if'---------------------------------------- VERIFICANDO BLOCOS DE PROGRAMA7 E DEFININDO AS SESSÕESif P7B1 > "" thensession("P7B1") = "checked"end ifif P7B2 > "" thensession("P7B2") = "checked"end ifif P7B3 > "" thensession("P7B3") = "checked"end ifif P7B4 > "" thensession("P7B4") = "checked"end ifif P7B5 > "" thensession("P7B5") = "checked"end if'-------------------------------------------- DIRECIONANDO PARA ERRO PROGRAMA1 ( BLOCOS1 )if VPROGRAMA1 > "" and P1B1 = "" and P1B2 = "" and P1B3 = "" and P1B4 = "" and P1B5 = "" thensession("P1ERRO") = "SIM"session("P2ERRO") = ""session("P3ERRO") = ""session("P4ERRO") = ""session("P5ERRO") = ""session("P6ERRO") = ""session("P7ERRO") = ""response.Redirect("pedidodvd.asp?DVD=Personalizado&pagina="&VPAGE) end if'-------------------------------------------- DIRECIONANDO PARA ERRO PROGRAMA2 ( BLOCOS )if VPROGRAMA2 > "" and P2B1 = "" and P2B2 = "" and P2B3 = "" and P2B4 = "" and P2B5 = "" thensession("P1ERRO") = ""session("P2ERRO") = "SIM"session("P3ERRO") = ""session("P4ERRO") = ""session("P5ERRO") = ""session("P6ERRO") = ""session("P7ERRO") = ""response.Redirect("pedidodvd.asp?DVD=Personalizado&pagina="&VPAGE)end if'-------------------------------------------- DIRECIONANDO PARA ERRO PROGRAMA2 ( BLOCOS )'------------------------------------------------------------------------------------------'------------------------------------------------------------------------------------------'------------------------------------------------------------------------------------------'----------- É AQUI QUE NÃO ESTÁ DANDO CERTO if VPROGRAMA2 = "" and P2B1 > "" and P2B2 > "" and P2B3 > "" and P2B4 > "" and P2B5 > "" thensession("P1ERRO") = ""session("P2ERRO") = "SIM"session("P3ERRO") = ""session("P4ERRO") = ""session("P5ERRO") = ""session("P6ERRO") = ""session("P7ERRO") = ""response.Redirect("pedidodvd.asp?DVD=Personalizado&pagina="&VPAGE)end if'------------------------------------------------------------------------------------------'------------------------------------------------------------------------------------------'------------------------------------------------------------------------------------------'------------------------------------------------------------------------------------------'-------------------------------------------- DIRECIONANDO PARA ERRO PROGRAMA3 ( BLOCOS )if VPROGRAMA3 > "" and P3B1 = "" and P3B2 = "" and P3B3 = "" and P3B4 = "" and P3B5 = "" thensession("P1ERRO") = ""session("P2ERRO") = ""session("P3ERRO") = "SIM"session("P4ERRO") = ""session("P5ERRO") = ""session("P6ERRO") = ""session("P7ERRO") = ""response.Redirect("pedidodvd.asp?DVD=Personalizado&pagina="&VPAGE) end if'-------------------------------------------- DIRECIONANDO PARA ERRO PROGRAMA4 ( BLOCOS )if VPROGRAMA4 > "" and P4B1 = "" and P4B2 = "" and P4B3 = "" and P4B4 = "" and P4B5 = "" thensession("P1ERRO") = ""session("P2ERRO") = ""session("P3ERRO") = ""session("P4ERRO") = "SIM"session("P5ERRO") = ""session("P6ERRO") = ""session("P7ERRO") = ""response.Redirect("pedidodvd.asp?DVD=Personalizado&pagina="&VPAGE)end if'-------------------------------------------- DIRECIONANDO PARA ERRO PROGRAMA5 ( BLOCOS )if VPROGRAMA5 > "" and P5B1 = "" and P5B2 = "" and P5B3 = "" and P5B4 = "" and P5B5 = "" thensession("P1ERRO") = ""session("P2ERRO") = ""session("P3ERRO") = ""session("P4ERRO") = ""session("P5ERRO") = "SIM"session("P6ERRO") = ""session("P7ERRO") = ""response.Redirect("pedidodvd.asp?DVD=Personalizado&pagina="&VPAGE)end if'-------------------------------------------- DIRECIONANDO PARA ERRO PROGRAMA6 ( BLOCOS )if VPROGRAMA6 > "" and P6B1 = "" and P6B2 = "" and P6B3 = "" and P6B4 = "" and P6B5 = "" thensession("P1ERRO") = ""session("P2ERRO") = ""session("P3ERRO") = ""session("P4ERRO") = ""session("P5ERRO") = ""session("P6ERRO") = "SIM"session("P7ERRO") = ""response.Redirect("pedidodvd.asp?DVD=Personalizado&pagina="&VPAGE)end if'-------------------------------------------- DIRECIONANDO PARA ERRO PROGRAMA7 ( BLOCOS ) if VPROGRAMA7 > "" and P7B1 = "" and P7B2 = "" and P7B3 = "" and P7B4 = "" and P7B5 = "" thensession("P1ERRO") = ""session("P2ERRO") = ""session("P3ERRO") = ""session("P4ERRO") = ""session("P5ERRO") = ""session("P6ERRO") = ""session("P7ERRO") = "SIM"response.Redirect("pedidodvd.asp?DVD=Personalizado&pagina="&VPAGE) end ifconectarsel="Select * from dvdp"rs.open sel, cn,3,3rs.addnew	 rs("nome")= VNOME	 rs("departamento")= VDEPARTAMENTO 	 rs("datadopedido")= VDATA	 rs("autorizado")= VAUTORIZADO	 rs("status")= VSTATUS	 rs("quantidade")= VQUANTIDADE	 rs("obs")= VOBS	 rs("pgm1")= VPROGRAMA1 	 rs("bloco1")= VBLOCOSP1	 rs("pgm2")= VPROGRAMA2 	 rs("bloco2")= VBLOCOSP2	 rs("pgm3")= VPROGRAMA3 	 rs("bloco3")= VBLOCOSP3	 rs("pgm4")= VPROGRAMA4 	 rs("bloco4")= VBLOCOSP4	 rs("pgm5")= VPROGRAMA5 	 rs("bloco5")= VBLOCOSP5	 rs("pgm6")= VPROGRAMA6 	 rs("bloco6")= VBLOCOSP6	 rs("pgm7")= VPROGRAMA7 	 rs("bloco7")= VBLOCOSP7	 rs.updatedesconectar%><%'---------------------------------------- REMOVENDO AS SESSÕES DOS FORMS PRIMARIOSsession("NOMEPEDIDO") = ""session("DEPARTAMENTOPEDIDO") = ""session("QUANTIDADEPEDIDO") = ""session("PROGRAMAPEDIDO") = ""session("OBSPEDIDO") = ""'---------------------------------------- REMOVENDO AS SESSÕES DOS PROGRAMAS FULLsession("PROGRAMAPEDIDO1") = ""session("PROGRAMAPEDIDO2") = ""session("PROGRAMAPEDIDO3") = ""session("PROGRAMAPEDIDO4") = ""session("PROGRAMAPEDIDO5") = ""session("PROGRAMAPEDIDO6") = ""session("PROGRAMAPEDIDO7") = ""'---------------------------------------- REMOVENDO AS SESSÕES DE ERRO DE PROGRAMA1session("P1B1") = ""session("P1B2") = ""session("P1B3") = ""session("P1B4") = ""session("P1B5") = ""session("P1ERRO") = ""'---------------------------------------- REMOVENDO AS SESSÕES DE ERRO DE PROGRAMA2session("P2B1") = ""session("P2B2") = ""session("P2B3") = ""session("P2B4") = ""session("P2B5") = ""session("P2ERRO") = ""'---------------------------------------- REMOVENDO AS SESSÕES DE ERRO DE PROGRAMA3session("P3B1") = ""session("P3B2") = ""session("P3B3") = ""session("P3B4") = ""session("P3B5") = ""session("P3ERRO") = ""'---------------------------------------- REMOVENDO AS SESSÕES DE ERRO DE PROGRAMA4session("P4B1") = ""session("P4B2") = ""session("P4B3") = ""session("P4B4") = ""session("P4B5") = ""session("P4ERRO") = ""'---------------------------------------- REMOVENDO AS SESSÕES DE ERRO DE PROGRAMA5session("P5B1") = ""session("P5B2") = ""session("P5B3") = ""session("P5B4") = ""session("P5B5") = ""session("P5ERRO") = ""'---------------------------------------- REMOVENDO AS SESSÕES DE ERRO DE PROGRAMA6session("P6B1") = ""session("P6B2") = ""session("P6B3") = ""session("P6B4") = ""session("P6B5") = ""session("P6ERRO") = ""'---------------------------------------- REMOVENDO AS SESSÕES DE ERRO DE PROGRAMA7session("P7B1") = ""session("P7B2") = ""session("P7B3") = ""session("P7B4") = ""session("P7B5") = ""session("P7ERRO") = ""'----------------- LIMPANDO E REDIRECIONANDO PARA PAGE ATUALresponse.clearresponse.Redirect("pedidodvd.asp?DVD=Personalizado&pagina="&VPAGE)%>

[jrcardozo 4]

tente assim

 

if (VPROGRAMA2 = "") and ((P2B1 > "") and (P2B2 > "") and (P2B3 > "") and (P2B4 > "") and (P2B5 > "")) then

[Anubis 0]

tente assim

if (VPROGRAMA2 = "") and ((P2B1 > "") and (P2B2 > "") and (P2B3 > "") and (P2B4 > "") and (P2B5 > "")) then

JONATHAN MEU VELHO, NÃO FUNCIONOU DO JEITO Q VOCÊ CITOU.....VALEU.........