Ir para conteúdo

POWERED BY:

Arquivado

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

reinaldo polato

Validar Funcao

Por , em ASP Clássico

Recommended Posts

reinaldo polato    1

reinaldo polato
Postado

e ai galera beleza

 

eu fiz um cadastro de Vendas em asp com um campo chamado RG

 

ai eu quero fazer a validar o campo RG

 

segue o codigo 

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<title>Sistema de Cadastrar Cliente </title>
<form name="frm1" Method="Post" action="">
<td width="33%"><font color="black">RG</td>
<td width="33%"><input type="text" name="RG" Size="25">

<P> </P>

</BODY>
</HTML>

<script language="VBScript">
dim varfuncoes 

varFuncoes(0)=   "ValidarRG"

function FormataRG(Campo)
if campo <> "" then 
campo=Replace(Campo,".","")
Campo = Replace(Campo,"/","")
Campo = Replace(Campo,"-","")
Campo = Replace(Campo,",","")
Campo = Replace(Campo,"+","")
Campo = Replace(Campo," ","")
If Len(trim(campo)) = 11 then
		Campo = Replace(Campo,".","")
		Campo = Replace(Campo,"/","")
		Campo = Replace(Campo,"-","")
		Campo = Replace(Campo,",","")
		Campo = Replace(Campo,"+","")
		Campo = Replace(Campo," ","")
		Campo = Mid(Campo,1,3) & "." & Mid(Campo,4,3) & "." & Mid(Campo,7,3) & "-" & Mid(Campo,10,2)
else
		campo = Replace(campo,".","")
		campo = Replace(campo,"/","")
		campo = Replace(campo,"-","")
		campo = Replace(campo,",","")
		campo = Replace(campo,"+","")
		campo = Mid(campo,1,2) & "." & Mid(campo,3,3) & "." & Mid(campo,6,3) & "/" & Mid(campo,9,4) & "-" & Mid(campo,13,2)
end if
FormataCPFCNPJ = Campo
End Function
end if 
</script>

ele não está funcionamento como eu faço pra validar o campo RG

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

coloque a função dentro das TAGS ASP <%%> e chame a função quando você der ação ao formulário com o campo RG

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai ted beleza

 

o codigo ficou assim

 

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<form name="frm1" Method="Post" action="">
<title>Sistema de Cadastrar Cliente </title>
<td width="33%"><font color="black">RG</td>
<td width="33%"><input type="text" name="RG" Size="25">
<a href="javascript:campo(RG);">RG</a>
<input type="Submit" name="btn_Cadastrar" value=" Cadastrar >>">
<P> </P>
</form>
</BODY>
</HTML>

<%

formataRG(Request.Form("nome_campo_rg"))


dim varfuncoes 

varFuncoes(0)=   "ValidarRG"

function FormataRG(Campo)
if campo <> "" then 
campo=Replace(Campo,".","")
Campo = Replace(Campo,"/","")
Campo = Replace(Campo,"-","")
Campo = Replace(Campo,",","")
Campo = Replace(Campo,"+","")
Campo = Replace(Campo," ","")
If Len(trim(campo)) = 11 then
		Campo = Replace(Campo,".","")
		Campo = Replace(Campo,"/","")
		Campo = Replace(Campo,"-","")
		Campo = Replace(Campo,",","")
		Campo = Replace(Campo,"+","")
		Campo = Replace(Campo," ","")
		Campo = Mid(Campo,1,3) & "." & Mid(Campo,4,3) & "." & Mid(Campo,7,3) & "-" & Mid(Campo,10,2)
else
		campo = Replace(campo,".","")
		campo = Replace(campo,"/","")
		campo = Replace(campo,"-","")
		campo = Replace(campo,",","")
		campo = Replace(campo,"+","")
		campo = Mid(campo,1,2) & "." & Mid(campo,3,3) & "." & Mid(campo,6,3) & "/" & Mid(campo,9,4) & "-" & Mid(campo,13,2)
end if
FormataRG = Campo
end function
end if 



%>

 

ele está dando erro no end function

 

o codigo está errado ou está certo

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