<%@ 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%>
<%end if%>
<%if iCpt < nb_pages then%> | <%end if%>
<%next%>
|