<% 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 vianewsnoticia (descripcion, fecha,autor,titulo,noticia,tipo, tipo2) values ('" & Request.Form("descripcion") & "','" & Request.Form("fecha") & "','" & Request.Form("autor") & "','" & Request.Form("titulo") & "','" & Request.Form("noticia") & "','" & Request.Form("tipo") & "','" & Request.Form("tipo") & "')") end if %>

TITULO NOTICIA:
DESCRIPCIÓN:
NOTICIA:
AUTOR NOTICIA:
FECHA:
TIPO NOTICIA:	Comic Rol Cine Libros Videojuegos Eventos Opinion Columna
ORDEN	1 2 3 4 5