<%@ LANGUAGE="VBSCRIPT" %> 
<!--#include virtual="/site/scripts/iProtect/loggedin.asp" -->

<%

sql = "INSERT INTO noticias (titulo, manchete, noticia, tem_link, link, categoria, posicao, imgcapa, data, aprovado) "

sql = sql & "VALUES( "
sql = sql & "'" & Replace(Request.form("titulo"),"'","") &"',"
sql = sql & "'" & Replace(Request.form("manchete"),"'","") & "',"
sql = sql & "'" & Replace(Request.form("noticia"),"'","") & "',"
sql = sql & "'" & Request.form("tem_link") & "',"
sql = sql & "'" & Request.form("link") & "',"
sql = sql & "'" & Request.form("categoria") & "',"
sql = sql & "'" & Request.form("posicao") & "',"
sql = sql & "'" & Request.form("imgcapa") & "',"
sql = sql & "'" & Request.form("data") & "',"
sql = sql & "'" & Request.form("aprovado") & "')"
	
Set Conn = Server.CreateObject("ADODB.Connection") 
BdConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Domains\antonioautopecas.com.br\db\conteudo.mdb;" 
conn.Open BdConn

Conn.Execute(sql)
Conn.Close 

Response.Redirect "not_listagem.asp"

%>