<% '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 foto = request("foto") if (instr(foto,"'")>0) then numErro = numErro+1 msgErro = msgErro & "Caracter inválido no campo Foto
" 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,foto) values ('"&titulo&"','"&texto&"','"&now()&"',"&publicar&",'"&foto&"')") response.write("") End if %> Administração
 
 




Título:

Texto da Notícia:

Link:

Publicar: