Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Validação de Formulario

Martinsrj

Perguntado por Martinsrj,

 Share

Pergunta

Martinsrj

Martinsrj

Postado
Postado

Olá pessoal, boa noite!

Estou querendo criar um script de validação para o meu form que se encontra no código abaixo:

Uma observação: coloquei uma validação apenas nesse campo:

If IsEmpty(var_acao) then
response.write "O Campo Ação deve ser preenchido!"
response.end
End if
porem ele realiza o cadastro sem que seja impresso na tela a critica. desde já agradeço pela ajuda! 
<% Option Explicit %>
<% Dim conbd_gd, rsDados5, strSQL5, var_codeprojeto

var_codeprojeto = TRIM(Request.Form("txt_codprojeto"))


'-- strSQL = "SELECT * FROM tab_dadosprojeto WHERE login_usuario='" & session("login_total") & "' AND senha='" & var_Senha & "'"
strSQL5 = "SELECT * FROM tab_dadosprojeto WHERE login_usuario='" & session("login_total") & "' AND cod_dados='" & var_codeprojeto & "'"

Call AbreConexao
Set rsDados5 = conbd_gd.Execute(strSQL5)

If rsDados5.EOF Then
     Response.Write "Login ou Senha inválida!"
     Response.Write session("login_total")
'     Response.write var_codeprojeto
     Response.End
End if


Call FechaConexao
%>
<% If session("nivel_acesso") = "" Then
  Response.Write "Você não está logado!"
' Response.End
End If

If session("nivel_acesso") = 1 Then
%>
<%
Else 'Curioso
%>
  <a href="projetos.asp">Consultar Projeto</a> 
<%
End If
%>
<%
If session("nivel_acesso") <> 1 Then 
  Response.Write "Você não tem autorização para ver esta página!"
  Response.End
End If

%>

<!--#Include file="conexao.asp"-->
<%
Dim rsInsere, strINS, var_data, hora, Minuto, Segundo, var_acao, var_status, var_responsavel, var_datedia, var_datemes, var_dateano, var_legenda

' var_codeprojeto = TRIM(Request.Form("txt_codprojeto"))
var_acao = TRIM(Request.Form("txt_acao"))

var_status = TRIM(Request.Form("txt_status"))
'var_legenda = "img_smiles/nao_iniciado.gif"
var_responsavel = TRIM(Request.Form("txt_responsavel"))
var_datedia = TRIM(Request.Form("date_dia"))
var_datemes = TRIM(Request.Form("date_mes"))
var_dateano = TRIM(Request.Form("date_ano"))
var_data = var_dateano &"-"& var_datemes &"-"& var_datedia
'-- Essa variavel e da pagina ins.dadosprojeto.asp  var_posicaoatual = "Ativado"
'Imprimindo as variaveis data
'Response.Write(var_dateano &"-"& var_datemes &"-"& var_datedia)
'Response.End()
'Response.Write (TRIM(Request.Form("txt_status")))
'Response.End()
%>

<% if var_status = "Concluido" then
      var_legenda = "img_smiles/concluido.gif"
    else
      if var_status = "Em andamento - Atencao" then
         var_legenda = "img_smiles/andamento_atencao.gif"
      else
         if var_status = "Em andamento - Critico" then
            var_legenda = "img_smiles/andamento_critico.gif"
         else
            if var_status = "Em andamento - Normal" then
               var_legenda = "img_smiles/andamento_normal.gif"
            else
               if var_status = "não Iniciado" then
                  var_legenda = "img_smiles/nao_iniciado.gif"
               else
                  if var_status = "On-going" then
                     var_legenda = "img_smiles/on-going.gif"
                  else
                     var_legenda = "?"
                  end if
               end if
            end if
         end if
      end if
   end if %>
<%



'-- Função para conversao de data para o MySQL -- Paulo Martins.
Function ConvertDataMySQL(ConDataBanco)   
    ConDataBanco = Year(ConDataBanco) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2)    
    ConvertDataMySQL = ConDataBanco  
End Function   
'-- Response.Write(ConvertDataMySQL(Date()))  

If IsEmpty(var_acao) then
response.write "O Campo Ação deve ser preenchido!"
response.end
End if 

  

strINS = "INSERT into tab_acoesprojeto "
strINS = strINS & "(cod_dadosprojeto, acao, status, legenda, responsavel, data) "

strINS = strINS & "VALUES ('" & var_codeprojeto & "',"
strINS = strINS & "'" & var_acao & "',"
strINS = strINS & "'" & var_status & "',"
strINS = strINS & "'" & var_legenda & "'," 
strINS = strINS & "'" & var_responsavel & "'," 
strINS = strINS & "'" & var_data & "'"
'strINS = strINS & "'" & var_data & "',"
'strINS = strINS & "'" & var_posicaoatual & "'"
strINS = strINS & ")"


Call AbreConexao
conbd_gd.Execute(strINS)
'response.write strINS
'response.end()

'Comentário-- Verifica o sucesso da operação, baseado na variavel 'err'
    if err.number = 0 then
        Response.redirect("ins1.descprojeto.asp")
        Response.End
        '--Response.Write "<font face='arial' size'3' color='green'><b>O ID: " & var_nome.projeto & " foi incluído com sucesso!</font></b><br>
        Else
            response.write ("Erro: " + err.description)
        End if

Call FechaConexao
%>
esse código começa na linha 103. 
If IsEmpty(var_acao) then
response.write "O Campo Ação deve ser preenchido!"
response.end
End if

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
Martinsrj

Martinsrj

Postado
  • Autor
Postado

RESOLVIDO!!!

código abaixo,

<% Option Explicit %>
<% Dim conbd_gd, rsDados5, strSQL5, var_codeprojeto

var_codeprojeto = TRIM(Request.Form("txt_codprojeto"))
If TRIM(Request.Form("txt_acao")) = "Codigo do Projeto:" then
response.write "Preencha o campo código do projeto corretamente!"
'response.Redirect("default.asp?page_error=home&erro=Por favor, digite o campo ação!")
response.end
End if

'-- strSQL = "SELECT * FROM tab_dadosprojeto WHERE login_usuario='" & session("login_total") & "' AND senha='" & var_Senha & "'"
strSQL5 = "SELECT * FROM tab_dadosprojeto WHERE login_usuario='" & session("login_total") & "' AND cod_dados='" & var_codeprojeto & "'"

Call AbreConexao
Set rsDados5 = conbd_gd.Execute(strSQL5)

If rsDados5.EOF Then
     Response.Write "Login ou Senha inválida!"
     Response.Write session("login_total")
'     Response.write var_codeprojeto
     Response.End
End if

Call FechaConexao
%>
<% If session("nivel_acesso") = "" Then
  Response.Write "Você não está logado!"
' Response.End
End If
  
If session("nivel_acesso") = 1 Then
%>
<%
Else 'Curioso
%>
  <a href="projetos.asp">Consultar Projeto</a> 
<%
End If
%>
<%
If session("nivel_acesso") <> 1 Then 
  Response.Write "Você não tem autorização para ver esta página!"
  Response.End
End If

%>
<!--#Include file="conexao.asp"-->
<%
Dim rsInsere, strINS, var_data, hora, Minuto, Segundo, var_acao, var_status, var_responsavel, var_datedia, var_datemes, var_dateano, var_legenda

' var_codeprojeto = TRIM(Request.Form("txt_codprojeto"))

var_acao = TRIM(Request.Form("txt_acao"))
If TRIM(Request.Form("txt_acao")) = "" then
response.write "O Campo Ação deve ser preenchido!"
response.end
End if

var_status = TRIM(Request.Form("txt_status"))
If TRIM(Request.Form("txt_status")) = "Escolher Status" then
response.write "Preencha o campo Status corretamente!"
response.end
End if

'var_legenda = "img_smiles/nao_iniciado.gif"

var_responsavel = TRIM(Request.Form("txt_responsavel"))
If TRIM(Request.Form("txt_responsavel")) = "" then
response.write "O Campo Responsavel deve ser preenchido! " & "<br>"
'response.Redirect("inclusao_descricao.asp")
response.end
End if

var_datedia = TRIM(Request.Form("date_dia"))
If TRIM(Request.Form("date_dia")) = "Dia" then
response.write "Preencha o dia corretamente!"
response.end
End if

var_datemes = TRIM(Request.Form("date_mes"))
If TRIM(Request.Form("date_mes")) = "Mês" then
response.write "Preencha o Mês corretamente!"
response.end
End if

var_dateano = TRIM(Request.Form("date_ano"))
If TRIM(Request.Form("date_ano")) = "Ano" then
response.write "Preencha o Ano corretamente!"
response.end
End if

var_data = var_dateano &"-"& var_datemes &"-"& var_datedia
'-- Essa variavel e da pagina ins.dadosprojeto.asp  var_posicaoatual = "Ativado"
'Imprimindo as variaveis data
'Response.Write(var_dateano &"-"& var_datemes &"-"& var_datedia)
'Response.End()
'Response.Write (TRIM(Request.Form("txt_status")))
'Response.End()
%>

<% if var_status = "Concluido" then
      var_legenda = "img_smiles/concluido.gif"
    else
      if var_status = "Em andamento - Atencao" then
         var_legenda = "img_smiles/andamento_atencao.gif"
      else
         if var_status = "Em andamento - Critico" then
            var_legenda = "img_smiles/andamento_critico.gif"
         else
            if var_status = "Em andamento - Normal" then
               var_legenda = "img_smiles/andamento_normal.gif"
            else
               if var_status = "não Iniciado" then
                  var_legenda = "img_smiles/nao_iniciado.gif"
               else
                  if var_status = "On-going" then
                     var_legenda = "img_smiles/on-going.gif"
                  else
                     var_legenda = "?"
                  end if
               end if
            end if
         end if
      end if
   end if %>
<%

'-- Função para conversao de data para o MySQL -- Paulo Martins.
Function ConvertDataMySQL(ConDataBanco)   
    ConDataBanco = Year(ConDataBanco) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2)    
    ConvertDataMySQL = ConDataBanco  
End Function   
'-- Response.Write(ConvertDataMySQL(Date()))  

strINS = "INSERT into tab_acoesprojeto "
strINS = strINS & "(cod_dadosprojeto, acao, status, legenda, responsavel, data) "

strINS = strINS & "VALUES ('" & var_codeprojeto & "',"
strINS = strINS & "'" & var_acao & "',"
strINS = strINS & "'" & var_status & "',"
strINS = strINS & "'" & var_legenda & "'," 
strINS = strINS & "'" & var_responsavel & "'," 
strINS = strINS & "'" & var_data & "'"
'strINS = strINS & "'" & var_data & "',"
'strINS = strINS & "'" & var_posicaoatual & "'"
strINS = strINS & ")"

Call AbreConexao
conbd_gd.Execute(strINS)
'response.write strINS
'response.end()

'Comentário-- Verifica o sucesso da operação, baseado na variavel 'err'
    if err.number = 0 then
        Response.redirect("ins1.descprojeto.asp")
        Response.End
        '--Response.Write "<font face='arial' size'3' color='green'><b>O ID: " & var_nome.projeto & " foi incluído com sucesso!</font></b><br>
        Else
            response.write ("Erro: " + err.description)
        End if

Call FechaConexao
%>

alguém sabe, quando o usuario selecionar na combobox dia o numero 30 e na combobox o mês de fevereiro de uma critica como: o mês de fevereiro não possui 30 dias.

Só falta isso Galera, o mais já está resolvido!!!

Abraços.

Link para o comentário
Compartilhar em outros sites
  • 0
Martinsrj

Martinsrj

Postado
  • Autor
Postado

Olá Jonathan, essa situação eu já resolvi, conforme o meu 2° post.

Alguém sabe, quando o usuario selecionar na combobox dia o numero 30 e na combobox o mês de fevereiro de uma critica como: o mês de fevereiro não possui 30 dias.

Só falta isso Galera, pois os outros campos está funcionando direitinho!

Vejam a imagem abaixo:

ae8611788279802e07136815ba8ce9d3.jpg

Abraços.

Link para o comentário
Compartilhar em outros sites
  • 0
Jonathan Queiroz

Jonathan Queiroz

Postado
Postado

Opa !

Não tinha visto o segundo post rsrs (postei 1min depois de você)

Quando à segunda pergunta, para fazer isso em tempo real será necessário utilizar JavaScript

Peço a você que verifique se já existe algum script pronto no Repositório de Scripts - JS e, se não existir, poste na área Ajax, JavaScript, XML, DOM

Obs.:

Vou marcar o tópico como Resolvido

Link para o comentário
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...