<% lista = Request.Querystring("lista") id = Request.Querystring("id") Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("foro.mdb")) strSQL = "SELECT * FROM comentarios WHERE Id_comentario= " & id Set comentario = oConn.Execute(strSQL) response.write("
") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("

Foro de Cuevas del Becerro (Histórico)

" & comentario("Titulo") & "
") response.write("
Autor: " & comentario("Autor") & "
Fecha: " & comentario("Fecha") & "
") response.write("") response.write("
" & comentario("Comentario") & "
") response.write("") response.write("
") response.write("Volver al Foro
") if comentario("Nivel")=0 then response.write(" ") else response.write("Volver al comentario original") end if response.write("
") response.write("


") if comentario("Nivel") = 0 then strSQL = "SELECT * FROM comentarios WHERE Nivel= " & id Set respuesta = oConn.Execute(strSQL) response.write("
") response.write("") response.write("") response.write("") response.write("
Respuestas al comentario
") response.write("") response.write("") i=0 while (not respuesta.Eof) i=i+1 response.write("") respuesta.MoveNext wend response.write("
FechaTítuloAutor
" & respuesta("Fecha") & "
" & respuesta("Autor") & "
" & i & " respuestas a " & comentario("Titulo") & "
") end if comentario.Close oConn.Close set comentario = nothing set oConn = nothing %>