Ir para conteúdo

POWERED BY:

Arquivado

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

rafa-martin

Validação

Por , em ASP Clássico

Recommended Posts

rafa-martin    2

rafa-martin
Postado

Olá,Eu estou fazendo a validação de campos mas eu gostaria de inserir chamando outro arquivo.Desde já agradeço<%@LANGUAGE=VBScript%><!--#Include File="Conexao.asp"--><!--#Include File="FC_CamposNaoValidos.asp"--><!--#Include File="FC_CamposNumericos.asp"--><%' ********************************************************************************' ************************** DEFINICAO DE VARIAVEIS ******************************' ********************************************************************************Dim BloqCadBloqCad = False%><HTML><HEAD><TITLE>Metta Serviços de Vendas Ltda - Distribuidor - Cadastro</TITLE></HEAD><BODY><FORM METHOD="Post" ACTION="teste.asp"><table style="WIDTH: 401px; HEIGHT: 294px" border="0"><tbody><!-- CNPJ --><tr><td><strong>CNPJ:</strong></td><td><input name="cnpj_distribuidor" style="WIDTH: 123px; HEIGHT: 22px" type="text" size="17"<%If Trim(Request.Form("cnpj_distribuidor")) <> "" Then%>VALUE="<%=Trim(Request.Form("cnpj_distribuidor"))%>"<%End If%>></td></tr></tr><%' ##################################################' ############ VALIDA O CNPJ - INICIO ##############' ##################################################If Request.Form("cadastrar") = "Ok" ThenIf Trim(Request.Form("cnpj_distribuidor")) = "" ThenBloqCad = True%>CNPJ campo em branco</FONT></TD></TR><%ElseIf CamposNaoValidos(Request.Form("cnpj_distribuidor")) = True ThenBloqCad = True%>CNPJ caracter invalido<%End IfEnd IfEnd If' ##################################################' ############ VALIDA O CNPJ - FINAL ###############' ##################################################%><!-- Razão Social --><tr><td><strong>Razão Social:</strong></td><td colspan="50"><input type="text" NAME="razao_social" MAXLENGHT="40" style="WIDTH: 388px; HEIGHT: 22px" size="43"<%If Trim(Request.Form("razao_social")) <> "" Then%> VALUE="<%=Trim(Request.Form("razao_social"))%>"<%End If%>></td></tr><%' ##################################################' ############ VALIDA A RAZÃO SOCIAL - INICIO ######' ##################################################If Request.Form("cadastrar") = "Ok" ThenIf Trim(Request.Form("razao_social")) = "" ThenBloqCad = True%>Razão Social em branco</FONT></TD></TR><%ElseIf CamposNaoValidos(Request.Form("razao_social")) = True ThenBloqCad = True%>Razão Social caracter invalido<%End IfEnd IfEnd If' ##################################################' ############ VALIDA A RAZÃO SOCIAL - FINAL ######' ##################################################%><tr><td><INPUT TYPE="submit" NAME="cadastrar" VALUE="Ok"></td></tr></tr></tbody></table></BODY></HTML>

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