% 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 "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 ""
'' fichier2.writeline " " '' fichier2.writeline " "
'' fichier2.writeline ""
''
'' if lien2 <> "" then
'' fichier2.writeline "Télécharger l'article. | "
'' fichier2.writeline "
Modifier une publication :