<% lista = Request.Querystring("lista") mostrar=10 'numero de comentarios a mostrar por pagina If IsEmpty(lista) then lista=1 else if lista="" then lista=1 end if end if Set conn = Server.CreateObject("ADODB.Connection") conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("foro.mdb")) sql = "SELECT * FROM comentarios WHERE Nivel=0 ORDER BY Orden" set comentario = Server.CreateObject("ADODB.Recordset") comentario.open sql, conn, 3, 1 contador = comentario.RecordCount if contador mod mostrar = 0 then listas = Fix(contador / mostrar) else listas = Fix(contador / mostrar) + 1 end if x=contador for i=2 to CInt(lista) x=x-mostrar next inicio = x final = x - mostrar +1 if final <= 0 then final = 1 end if 'comentario.Sort="Id_comentario" comentario.Move inicio - 1 ip=request.servervariables("REMOTE_ADDR") 'if (ip="85.48.107.69") then 'response.write("

La proxima vez que quieras insultar a alguien diselo a la cara al que sea.

") 'response.write("


Como vuelvas ha usar el foro para insultar me encargaré de publicar tu nombre.

") 'response.write("


aun estoy dudando si hacerlo de todas formas, asi que no me tientes.

") 'response.write("


No busques tu mensaje pq ya lo he borrado.

") 'response.write("


Además, se que serafin no ha sido. y tu también lo sabes. O me equivoco????.

") 'else response.write("
") response.write("") response.write("") response.write("") response.write("") response.write("

Foro de Cuevas del Becerro (Debates)

Comentarios
") response.write("") response.write("") for i=final to inicio response.write("") comentario.MovePrevious next response.write("
FechaTítuloAutor
" & comentario(4) & "") if comentario(7)<>0 then response.write("
Este comentario tiene " & comentario(7) & " respuestas
") end if response.write("
" & comentario(1) & "
") response.write("
Comentarios del " & contador - inicio + 1 & " al " & contador - final + 1) response.write(" de " & contador & "
Páginas ") inicio=false final=false if ((CInt(lista) = 1) or (CInt(lista) = 2) or (CInt(lista) = 3)) then inicio=true end if if ((CInt(lista) = CInt(listas)) or (CInt(lista) = CInt(listas) - 1) or (CInt(lista) = CInt(listas) - 2)) then final=true end if if inicio then lprim=1 lfin=CInt(lista) + 3 else lprim=CInt(lista)-3 lfin=CInt(lista)+3 if CInt(lista)<>4 then response.write("<< .. ") end if end if if final then lfin=CInt(listas) end if for i=lprim to lfin if CInt(lista) = i then response.write("[" & i & "], ") else response.write("" & i & ", ") end if next if ((not final) and (CInt(lista) <> CInt(listas) - 3)) then response.write(" .. >>.. ") end if response.write(" de " & listas & "
") response.write("


<< Volver al índice del Foro
") 'end if comentario.Close conn.Close set comentario = nothing set conn = nothing %>