<% Dim strConnString, oConn, oRS, oFld Set oConn = Server.CreateObject("ADODB.Connection") strConnString = Application("conectar") oConn.Open strConnString %> News Comicvia. <% basedatos = Server.MapPath("news.mdb") Set actualiza = Server.CreateObject("ADODB.Connection") actualiza.Open oConn Dim conexion, registros, basedatos if request.form("x") = 1 then actualiza.Execute ("insert into vianewscolumna (peli, fecha) values ('" & Request.Form("pelicula") & "', '" & Request.Form("fecha") & "')") end if if request.form("x") = 2 then actualiza.Execute ("insert into vianewspuntuacioncolumna (pelicula, fecha, tabla, puntuacion) values ('" & Request.Form("pelicula") & "', '" & Request.Form("fecha") & "', '" & Request.Form("tabla") & "', '" & Request.Form("puntuacion") & "')") end if if request.form("x") = 3 then actualiza.Execute ("insert into vianewscomentariocolumna (pelicula, autor, comentario) values ('" & Request.Form("pelicula") & "', '" & Request.Form("autor") & "', '" & Request.Form("comentario") & "')") end if %> Dar de alta Peliculas:
Pelicula:
Fecha

 

 

PUNTUAR PELICULA

Pelicula:
Fecha
Persona:
Puntuacion :

 

 

COMENTAR PELICULA
Pelicula:
Autor
Comentario: