Verificando Erros
<% @ 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>"%>
Discussão (2)
Carregando comentários...