<%
'topic = Request.QueryString("topic")
topic = "ISLAM/Doctrine-Aqida"
fr = "French"
en = "English"
language = "English"
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, page, offset, lastpage, prevpage, nextpage, firstpage, c
Offset = 20
start = 0
dim rsql
dim Baseset
dim rsql2
dim Baseset2
rsql = "SELECT * FROM topics, topobj, object WHERE object.id_obj = topobj.id_obj AND topobj.id_t = topics.id_t AND name_t LIKE '"&topic&"' AND language LIKE '"&fr&"' ORDER BY datge DESC "
set Baseset=Server.CreateObject("adodb.recordset")
rsql2 = "SELECT * FROM topics, topobj, object WHERE object.id_obj = topobj.id_obj AND topobj.id_t = topics.id_t AND name_t LIKE '"&topic&"' AND language LIKE '"&en&"' ORDER BY datge DESC "
set Baseset2=Server.CreateObject("adodb.recordset")
Baseset.open rsql, conn, 1, 1, 1
Baseset2.open rsql2, conn, 1, 1, 1
howmanyrecords = Baseset.recordcount
howmanyrecords2 = Baseset2.recordcount
%>
:: La doctrine en Islam - Aqida :: Naqshbandi.ca
<%if strcomp(language,"English",1)=0 then%>
<%response.write ""&Nom_article&""%>
» Doctrine in Islam - Aqida
<%
c=start
i=0
if howmanyrecords2 <> 0 then
Baseset2.move start
end if
t=1
do while not baseset2.eof
if i=0 then
response.write "
