<%= rst("Titulo") %>
Fecha: <%= rst("Fecha") %>

" align="left"><%= rst("Noticia") %>

<%= rst("Autor") %>  @ <%= rst("Hora") %> |  <% Notide = rst("Notid") rst.Filter = 0 rst.Movelast Cadena = Clng(Request.QueryString("NotID")) Tabla = Clng(rst("Notid")) IF ((Cadena = Tabla) OR (Request.QueryString("NotID") = "")) Then rst.Moveprevious Notid1 = rst("Notid") Titulo1 = rst("Titulo") rst.Moveprevious Else Notid1 = rst("Notid") Titulo1 = rst("Titulo") rst.Moveprevious End IF Cadena = Clng(Request.QueryString("NotID")) Tabla = Clng(rst("Notid")) IF (Cadena = Tabla) Then rst.Moveprevious Notid2 = rst("Notid") Titulo2 = rst("Titulo") rst.Moveprevious Else Notid2 = rst("Notid") Titulo2 = rst("Titulo") rst.Moveprevious End IF Cadena = Clng(Request.QueryString("NotID")) Tabla = Clng(rst("Notid")) IF (Cadena = Tabla) Then rst.Moveprevious Notid3 = rst("Notid") Titulo3 = rst("Titulo") rst.Moveprevious Else Notid3 = rst("Notid") Titulo3 = rst("Titulo") rst.Moveprevious End IF rst.Close cnn.close %> <% set cnn = Server.CreateObject("ADODB.Connection") cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("pccomm.mdb") set rst = Server.CreateObject("ADODB.RecordSet") rst.Open "SELECT * FROM comentarios",cnn,3,3 rst.Filter="Notid= '" & Notide & "'" Conta = 0 Do until rst.Eof Conta = Conta + 1 rst.Movenext LOOP %> Comentarios (<%= Conta %>)  |  + Añade tus comentarios

---

<% If (Eof = True) Or (Bof = true) Then rst.Moveprevious Else End IF%> <% Do until rst.Bof%> <%= rst("Nombre") %>
<%= rst("fecha") %> @ <%= rst("hora") %>

<%= rst("Comentario") %> <% rst.Moveprevious %>

---

<% LOOP rst.Close cnn.close %>

Añade tus comentarios:

Nombre:
Comentarios:

Noticias anteriores:
<% IF Notid1 <> "" Then %> <%= Titulo1 %>
<% Else END IF IF Notid2 <> "" Then %> <%= Titulo2 %>
<% Else END IF IF Notid3 <> "" Then %> <%= Titulo3 %>
<% Else END IF %> [+]Noticias...