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>"%>