Verificando Erros

[Galdino Vilela 0]

<% @ LANGUAGE=VBScript %><%'### Função de erro	Dim Dicionario	'Mensagens de erro	Dim i 	 'Contador de erros	Dim Sql 	 'Consulta a ser executado	Dim Rs 	 'Resultado da consulta - registro	Dim Vet 	 'Vetor de erros	set Dicionario = CreateObject("scripting.dictionary")	i = 0'Aqui você faz os testes....	if Request.Form("Titulo")="" then  Dicionario.add i, "Informe o <b>TÍTULO</b> da notícia!"  i = i+1	end if	if Request.Form("Noticia")="" then  Dicionario.add i, "Informe a <b>MATÉRIA</b> da notícia!"  i = i+1	end if	Vet = Dicionario.items		if dicionario.Count<>0 then  Response.Write "<center><font face=verdana size=3 color=red>"  Response.Write "<br><u><b>ATENÇÃO!!</u></b><br>"  Response.Write "<center><font face=verdana size=1 color=red>"  for i = 0 to Dicionario.Count - 1 	 Response.Write vet(i) & "<br>"  next  Response.Write "<br></font></center>"%>

[MalaNantes 0]

E como que eu faço para validar se o campo for numerico e a pessoa digitou letras????

 

:blink:

http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

:D

[wozniak 0]

E como que eu faço para validar se o campo for numerico e a pessoa digitou letras???? :blink: http://forum.imasters.com.br/public/style_emoticons/default/blush.gif :D

Assim:

<%If Not IsNumeric("Campo") ThenResponse.Write"Não é campo texto"elseResponse.Write"Campo Numérico"End If%>

abraçost+