<% Dim conexion, registros, basedatos basedatos = Server.MapPath("news.mdb") Set conexion = Server.CreateObject("ADODB.Connection") conexion.Open oConn Set registros = conexion.execute("SELECT * FROM vianewscolumna") Do until registros.eof %> <% registros.movenext loop %>

PELICULA	Mañik	Vic	Zangol	Lectores	Media
"><%response.write registros("peli")%> <% Set verpeli = conexion.execute("SELECT * FROM vianewspuntuacioncolumna where pelicula = " & registros("id") & "") %>	<% Set verpeli = conexion.execute("SELECT * FROM vianewspuntuacioncolumna where pelicula = " & registros("id") & " and tabla = '1' ") if verpeli.eof then response.write "No Ptos" else response.write verpeli("puntuacion") end if %>	<% Set verpeli = conexion.execute("SELECT * FROM vianewspuntuacioncolumna where pelicula = " & registros("id") & " and tabla = '2' ") if verpeli.eof then response.write "No Ptos" else response.write verpeli("puntuacion") end if %>	<% Set verpeli = conexion.execute("SELECT * FROM vianewspuntuacioncolumna where pelicula = " & registros("id") & " and tabla = '3' ") if verpeli.eof then response.write "No Ptos" else response.write verpeli("puntuacion") end if %>	<% Set verpeli = conexion.execute("SELECT * FROM vianewspuntuacioncolumna where pelicula = " & registros("id") & " and tabla = '4' ") if verpeli.eof then response.write "No Ptos" else response.write verpeli("puntuacion") end if %>	<% Set verpeli = conexion.execute("SELECT * FROM vianewspuntuacioncolumna where pelicula = " & registros("id") & " and tabla = '5' ") if verpeli.eof then response.write "No Ptos" else response.write verpeli("puntuacion") end if %>

<% if request.querystring("pelicula") = "" Then response.end end if Set verpeli = conexion.execute("SELECT * FROM vianewscomentariocolumna where pelicula = '" & request.querystring("pelicula") & "'") if verpeli.eof then response.write "No hay comentarios" response.end end if %>