<%@ language = VBScript%> <% dim rs, strSql, nb_seminaires, page_en_cours, iCpt set rs = server.CreateObject("ADODB.Recordset") rs.cursorLocation = 3 strSql = "SELECT * FROM CONFERENCE ORDER BY num_page" rs.open strSql, cn nb_pages = rs.recordCount if not isNull(request.QueryString("p")) and request.QueryString("p") <> "" then page_en_cours = CInt(request.QueryString("p")) if page_en_cours > nb_pages then page_en_cours = nb_pages else page_en_cours = 1 end if if nb_pages > 0 then rs.absolutePosition = page_en_cours titre = rep(rs("titre")) contenu = rep(rs("contenu")) rs.close end if function rep(txt) if not isNull(txt) and txt <> "" then rep = replace(txt, vbCrLf, "
") else rep = "" end function %> Etre soi - Tantra et développement personnel - Conférences > Conférences > Page  <%for iCpt = 1 to nb_pages%> <%if iCpt = page_en_cours then%><%=iCpt%> <%else%><%=iCpt%> <%end if%> <%if iCpt < nb_pages then%> | <%end if%> <%next%>