<% Dim strConnString, oConn, oRS, oFld Set oConn = Server.CreateObject("ADODB.Connection") strConnString = Application("conectar") oConn.Open strConnString %> <% if request.form("x") = 1 then Dim conexion, registros, basedatos basedatos = Server.MapPath("news.mdb") Set actualiza = Server.CreateObject("ADODB.Connection") actualiza.Open oConn actualiza.Execute ("insert into noticiasinicio (fecha,autor,titulo,noticia) values ('" & Request.Form("fecha") & "','" & Request.Form("autor") & "','" & Request.Form("titulo") & "','" & Request.Form("noticia") & "')") end if %>

TITULO NOTICIA:
NOTICIA:
AUTOR NOTICIA:
FECHA:
TIPO NOTICIA:	Comic Rol Cine Libros Videojuegos Eventos Opinion
TIPO NOTICIA:	Comic Rol Cine Libros Videojuegos Eventos Opinion