<%
'topic = Request.QueryString("topic")
topic = "ISLAM/Ibadaat"
fr = "French"
en = "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
%>
:: Questions Reponses<%response.write ""&Nom_article&""%> :: Naqshbandi.ca
<%if strcomp(language,"English",1)=0 then%>
In the Name of God, the Most Merciful, the Most Compassionate, with Praise and Peace on our Beloved Prophet, His Family and Companions
<%rsql="SELECT * FROM object order by datge desc LIMIT 3"
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 "
