PSICOLOGIA INDUSTRIAL

Profesor : Ricardo Cabana

Aca para ingresar al chat Psicología Industrial

<% Dim oConn, RS, mostrar, pag_totales, pag_actual Set oConn = Server.CreateObject ("ADODB.Connection") Set RS = Server.CreateObject ("ADODB.RecordSet") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./foro.mdb") sql = "SELECT * FROM discusion WHERE IdCabeza=0 ORDER BY Fecha DESC" RS.Open sql, oConn,3,1 mostrar = 10 rs.PageSize = mostrar rs.CacheSize = mostrar if Request.Querystring("pagina")="" then pag_actual=1 else pag_actual=CInt(Request.Querystring("pagina")) end if pag_totales = rs.PageCount if pag_actual < 1 then pag_actual = 1 end if if pag_actual > pag_totales then pag_actual = pag_totales end if if pag_totales=0 then Response.Write("No hay mensajes en el foro.") else rs.AbsolutePage = pag_actual Response.Write "

" Response.Write("Página " & Pag_actual & " de " & pag_totales &" ") cant_registros = 0 Response.Write "	" if pag_actual > 1 then Response.Write("Mensajes anteriores    ") end if if pag_actual < pag_totales then Response.Write("Mensajes más viejos ") end if%> <%do while not rs.EOF and cant_registros < mostrar fecha = RS("Fecha")%> <% Response.Write "" cant_registros = cant_registros +1 RS.MoveNext Loop end if RS.Close oConn.Close Set RS = nothing Set oConn = nothing %> Título del Mensaje Respuestas Fecha   <%=(RS.Fields("Titulo"))%>  ["&RS("Respuestas")&"]  " &Day(fecha)&"/"&Month(fecha)&"