<% 'verificar sessão if session("numUsuario") = "" then response.write("") Else Dim numUsuario numUsuario = session("numUsuario") end if 'Abrir conexão com o banco de dados Dim conn set conn = server.createobject("ADODB.Connection") conn.open DSNString Dim rs, numErro, msgErro Dim titulo, texto, publicar 'Verificar dados titulo = request("titulo") if titulo <> "" then if (instr(titulo,"'")>0) then numErro = numErro+1 msgErro = msgErro & "Caracter inválido no campo Título
" End if Else numErro = numErro + 1 msgErro = msgErro & "É necessário o preenchimento do Título
" End if texto = request("texto") If texto <> "" then if (instr(texto,"'")>0) then numErro = numErro+1 msgErro = msgErro & "Caracter inválido no campo Nome
" End if Else numErro = numErro + 1 msgErro = msgErro & "É necessário o preenchimento do texto da notícia
" End if 'Gravar dados If numErro = 0 then If request("publicar") = "" then publicar = false else publicar = true end if conn.execute(" Insert into Noticias (titulo, texto, datCria, status) values ('"&titulo&"','"&texto&"','"&now()&"',"&publicar&")") response.write("") End if %> Administração
Administração - Notícias
Mensagem: <%=msgErro%>
Nova Notícia
Titulo
Texto da notícia
Publicar na página inicial