<%
topic2 = "TARIQAT/Principes"
dim conn
Set conn = Server.CreateObject("ADODB.Connection")
connstring = "DRIVER={MySQL};HOST=eaglemaster.cqhost.net;UID=naq1_naqsql;PWD=ba92vt;DATABASE=naq1_naq"
conn.Open connstring
dim start, last, n, howmanyrecords, howmanyrecords2, howmanyrecords3, howmanyrecords5, page, offset, lastpage, prevpage, nextpage, firstpage, c
Offset = 20
start = 0
dim rsql
dim Baseset
dim rsql2
dim Baseset2
dim rsql3
dim Baseset3
%>
:: L'Ordre Soufi Naqshbandi: Principes de la voie ::
» Principes de la voie
<%
rsql = "SELECT * FROM topics, topobj, object WHERE object.id_obj = topobj.id_obj AND topobj.id_t = topics.id_t AND name_t LIKE '"&topic2&"' ORDER BY datge DESC "
set Baseset=Server.CreateObject("adodb.recordset")
Baseset.open rsql, conn, 1, 1, 1
howmanyrecords = Baseset.recordcount
c=start
i=0
if howmanyrecords <> 0 then
Baseset.move start
end if
t=1
do while not baseset.eof
if i=0 then
response.write "
