<% if Session("login")="" then Response.Redirect("index.asp") end if page = Request.QueryString("id") 'if page="" then 'page = Request.Form("id") 'end if if Request.Form("modifier")="modifier" then function dosql(ch) 'dosql = replace(ch,"""","""""") 'dosql = replace(dosql,"'","''") dosql = replace(ch,"'","''") end function page = Request.Form("id") titre = Request.Form("titre") titre2 = dosql(titre) texte = Request.Form("text") texte2 = dosql(texte) theme = Request.Form("theme") theme2 = dosql(theme) url2 = Request.Form("url") page2 = Request.Form("id") lien = Request.Form("lien") lien2 = dosql(lien) 'tab_page = split(page2, ".") 'page3 = tab_page(UBOUND(tab_page)) 'if (page3 = "zip" OR page3 = "rtf") then ' page2 = "droit/" & page2 'end if ladate2 = Request.Form("ladate") ladate2 = dosql(ladate2) motcle2 = Request.Form("motcle") motcle2 = dosql(motcle2) 'SQL="UPDATE publications Set titre='"&titre2&"', texte='"&texte2&"', theme='"&theme2&"', url='"&url2&"', date='"&ladate2&"' where id="&page2&"" SQL="UPDATE publications set titre='"&titre2&"', fichier='"&lien2&"', texte='"&texte2&"', theme='"&theme2&"', url='publications/"&url2&"', motcle='"&motcle2&"' where id="&page2&"" Set rs=Conn.execute(SQL) '---------------------- génération du fichier .asp pour le dossier publications ------------------------- set fs=CreateObject("Scripting.FileSystemObject") set fichier=fs.CreateTextFile(Server.MapPath("../publications/"&url2),true) fichier.writeline "" fichier.writeline "" fichier.writeline ""&titre&"" fichier.writeline "" if lien2 <> "" then fichier.writeline "Télécharger l'article.


" end if fichier.writeline "

" & titre & "

" fichier.writeline texte fichier.writeline "

retour à la rubrique 'Autres articles'

" fichier.writeline "" fichier.writeline "" fichier.writeline "" fichier.close '---------------------- génération du fichier .asp pour le dossier recherche/publications ------------------------- '' set fichier2 = fs.CreateTextFile(Server.MapPath("/recherche/publications/"&url2),true) 'fichier2.Delete '' fichier2.writeline "" '' fichier2.writeline "" '' fichier2.writeline "'"&titre&"'" '' fichier2.writeline "" '' fichier2.writeline "" '' fichier2.writeline "" '' fichier2.writeline "
" '' fichier2.writeline "
" '' fichier2.writeline "" '' fichier2.writeline "" '' fichier2.writeline "" '' fichier2.writeline "" '' fichier2.writeline "
" '' fichier2.writeline "
" '' fichier2.writeline "

" '' fichier2.writeline "" '' '' if lien2 <> "" then '' fichier2.writeline "Télécharger l'article.


" '' end if '' '' fichier2.write texte2 '' fichier2.writeline "
" '' fichier2.writeline "

retour à la rubrique 'Autres articles'

" '' fichier2.writeline "
" '' fichier2.writeline "
" '' fichier2.writeline "
" '' fichier2.writeline "" '' fichier2.writeline "" '' '' fichier2.close end if SQL = "Select * From publications where id="&page&"" %><% 'Création de la variable SQL et affectation de la chaine de caracteres qui est la requete SQL Set rs=Conn.execute(SQL) 'Affectation du résultat de l'éxecution de la requete SQL dans l'objet nommé rs %>

Insérer une publication

Modifier une publication :

Modifier une publication

<% do while not rs.EOF%>

">Supprimer

titre ">
<% nom_url = mid(rs("url"),14) %> lien ">

url
date ">
theme
">
Mot clés " size=85>
<%rs.movenext%> <%Loop%> <%Set rs=Nothing%>
<% ' Déconnexion Conn.close : Set Conn=nothing %>