Ir para conteúdo

POWERED BY:

Arquivado

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

Mosquitinho

Verificação de dado

Por , em ASP Clássico

Recommended Posts

Mosquitinho    0

Mosquitinho
Postado

Po fiz um sistema de cdont maneiro aew pus o código pra ele verificar se o campo foi escrito ou nao , mas ele nao acusa quandu nao esta digitado.

 

 

 

Alguem me ajuda...

 

 

aki ta o cod..

 

ASP

[*]<%@LANGUAGE="vb script:history.go(-1)"

 

[*] </script>

 

[*] <%

 

[*]status="Falha"

 

[*]

 

[*]'verifica se o campo fone esta preenchido

 

[*]If trim(Request.Form("Fone")) ="" then

 

[*] %>

 

[*] <script language="JavaScript">

 

[*]  alert('\nCampo Fone em branco. \n \nFavor digitar o Telefone.') 

 

[*]  window.location.href = "java script:history.go(-1)"

 

[*] </script>

 

[*] <%

 

[*]status="Falha"

 

[*]End IF

 

[*]

 

[*]If trim(Request.Form("Senha")) ="" then

 

[*] %>

 

[*] <script language="JavaScript">

 

[*]  alert('\nCampo Senha em branco. \n \nFavor digitar a Senha.') 

 

[*]  window.location.href = "java script:history.go(-1)"

 

[*] </script>

 

[*] <%

 

[*]status="Falha"

 

[*]End IF

 

[*]

 

[*]If trim(Request.Form("Fone")) ="" then

 

[*] %>

 

[*] <script language="JavaScript">

 

[*]  alert('\nCampo Login em branco. \n \nFavor digitar o Login.') 

 

[*]  window.location.href = "java script:history.go(-1)"

 

[*] </script>

 

[*] <%

 

[*]status="Falha"

 

[*]End IF

 

[*]'você pode fazer verificações para todos os campos....

 

[*]

 

[*]Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

 

[*]EnviarMail.To = var_to

 

[*]EnviarMail.From = var_email

 

[*]EnviarMail.Subject = "Meu Site - Contatos"

 

[*]MsgBody = "<html>" _

 

[*]& "<head>" _

 

[*]& "</head>" _

 

[*]& "<body bgcolor=""#FFFFFF"">" _

 

[*]& "<p align=""left""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você recebeu o cadástro de: <b>" & var_nome & "</b> <br>Email: <b>" & var_email & "</b><br>Nascimento: <b>" & var_nasc & "</b><br>Rua: <b>" & var_rua & "</b><br>Bairro: <b>" & var_bairro & "</b><br>Cidade: <b>" & var_cidade & "</b><br>Estado: <b>" & var_estado & "</b><br>País: <b>" & var_pais & "</b><br>Cep: <b>" & var_cep & "</b><br>Fone: <b>" & var_fone & "</b><br>Login: <b>" & var_login & "</b><br>Senha: <b>" & var_senha & "</b></font>" _

 

[*]& "</body>" _

 

[*]& "</html>"

 

[*]EnviarMail.Body = MsgBody

 

[*]EnviarMail.Importance = 1

 

[*]EnviarMail.BodyFormat = 0

 

[*]EnviarMail.MailFormat = 0

 

[*]EnviarMail.Send

 

[*]

 

[*]Set EnviarMail = Nothing

 

[*]

 

[*]

 

[*]Response.redirect "http://www.mosquitinhohp.rg3.net"

 

[*]%>

 

[*]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

tem um if num comentario'verifiIf trim(Request.Form("Nome")) ="" then veja se é isso...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Agora ke nao ta indu mesmo, ai keraka so falta issu..

 

 

Valeu pela ajuda kra

só fazendo uma depuração com mais calma então, pois vi aquilo de cara e poderia ser...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

ajeita isso'verifiIf trim(Request.Form("Nome")) ="" then %>ca se o campo nome esta preenchido e posta como ta agora o code

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mosquitinho    0

Mosquitinho
Postado

Nao tem outrao jeiro de fazer nao...?esse e muito complicado,aew tem komo tb fazer o e-mail ser enviado pra mais de 1 e-mail?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

como assim só pedi pra você ajeitar o que ta lá em vez de 'verifiIf trim(Request.Form("Nome")) ="" then%>ca se o campo nome esta preenchidopoe'verifica se o campo nome esta preenchidoIf trim(Request.Form("Nome")) ="" then%>ai você testa e posta aqui o codigo se não funfar...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mosquitinho    0

Mosquitinho
Postado

Ta dandu esse erro aki olha?

 

Microsoft vb script:history.go(-1)"[/color]

 

[*] </script>

 

[*] <%

 

[*]status="Falha"

 

[*]

 

[*]'verifica se o campo fone esta preenchido

 

[*]If trim(Request.Form("Fone")) ="" then

 

[*] %>

 

[*] <script language="JavaScript">

 

[*]  alert('\nCampo Fone em branco. \n \nFavor digitar o Telefone.') 

 

[*]  window.location.href = "java script:history.go(-1)"

 

[*] </script>

 

[*] <%

 

[*]status="Falha"

 

[*]End IF

 

[*]

 

[*]If trim(Request.Form("Senha")) ="" then

 

[*] %>

 

[*] <script language="JavaScript">

 

[*]  alert('\nCampo Senha em branco. \n \nFavor digitar a Senha.') 

 

[*]  window.location.href = "java script:history.go(-1)"

 

[*] </script>

 

[*] <%

 

[*]status="Falha"

 

[*]End IF

 

[*]

 

[*]If trim(Request.Form("Fone")) ="" then

 

[*] %>

 

[*] <script language="JavaScript">

 

[*]  alert('\nCampo Login em branco. \n \nFavor digitar o Login.') 

 

[*]  window.location.href = "java script:history.go(-1)"

 

[*] </script>

 

[*] <%

 

[*]status="Falha"

 

[*]End IF

 

[*]'você pode fazer verificações para todos os campos....

 

[*]

 

[*]Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

 

[*]EnviarMail.To = var_to

 

[*]EnviarMail.From = var_email

 

[*]EnviarMail.Subject = "Meu Site - Contatos"

 

[*]MsgBody = "<html>" _

 

[*]& "<head>" _

 

[*]& "</head>" _

 

[*]& "<body bgcolor=""#FFFFFF"">" _

 

[*]& "<p align=""left""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você recebeu o cadástro de: <b>" & var_nome & "</b> <br>Email: <b>" & var_email & "</b><br>Nascimento: <b>" & var_nasc & "</b><br>Rua: <b>" & var_rua & "</b><br>Bairro: <b>" & var_bairro & "</b><br>Cidade: <b>" & var_cidade & "</b><br>Estado: <b>" & var_estado & "</b><br>País: <b>" & var_pais & "</b><br>Cep: <b>" & var_cep & "</b><br>Fone: <b>" & var_fone & "</b><br>Login: <b>" & var_login & "</b><br>Senha: <b>" & var_senha & "</b></font>" _

 

[*]& "</body>" _

 

[*]& "</html>"

 

[*]EnviarMail.Body = MsgBody

 

[*]EnviarMail.Importance = 1

 

[*]EnviarMail.BodyFormat = 0

 

[*]EnviarMail.MailFormat = 0

 

[*]EnviarMail.Send

 

[*]

 

[*]Set EnviarMail = Nothing

 

[*]

 

[*]

 

[*]Response.redirect "http://www.mosquitinhohp.rg3.net"

 

[*]%>

 

[*]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

isso mesmo seu primeiro IF esta sem END IF

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

mas ficou no mesmo erro??

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