%
id=request.querystring ("id_article")
Dim sConnection, objConn , objRS
sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=mysql911.ixwebhosting.com; DATABASE=C220421_naq1; UID=C220421_naq1;PASSWORD=sAlAm7007; OPTION=3"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open(sConnection)
Dim sql_new, id, sql_new2
sql_new="select * from object where id_obj="
Set rs_new = objConn.Execute("select * from object where id_obj=" & id)
Nom_article = rs_new("title")
OurArticle = rs_new("body")
Author = rs_new("author")
set rs_new =nothing
set connstring = nothing
%>
:: Les Ma�tres Soufi Naqshbandi :: <%response.write ""&Nom_article&""%> :: (<%response.write ""&Author&""%>) - Naqshbandi.ca
:: - Naqshbandi.ca">
">
<% img = RandomImage("/img-small/","/img-small/default.gif") %>
|
| |
| �
Les Ma�tres Soufi Naqshbandi |
 |
|  |
<%=OurArticle%>
|
|
| |
|