<% if Session("login")="" then Response.Redirect("index.asp") end if page = Request.QueryString("page") if page="" then page = Request.Form("page") end if if Request.Form("inserer")="inserer" then function dosql(ch) 'dosql = replace(ch,"""","""""") 'dosql = replace(dosql,"'","''") dosql = replace(ch,"'","''") end function mois=mid(NOW(),4,7) titre = Request.Form("titre") titre2 = dosql(titre) texte = Request.Form("texte") texte2 = dosql(texte) theme = Request.Form("theme") theme2 = dosql(theme) 'date = Request.Form("date") page2 = Request.Form("page") 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 ladate = Request.Form("date") motcle2 = Request.Form("motcle") motcle2 = dosql(motcle2) sqlmax = "select max(id) as maxid from publications" rs=Conn.execute(sqlmax) maxid = rs("maxid") + 1 Set rs = nothing 'SQL="INSERT INTO publications(titre,texte,url,theme,date) VALUES('"&titre2&"','"&texte2&"','"&page2&"','"&theme2&"','"&ladate&"')" ' SQL="INSERT INTO publications(titre, date, texte, theme, url, motcle) VALUES(,'"&titre2&"', '"&ladate&"', '"&texte2&"', '"&theme2&"', 'publications/"&page2&"', '"&motcle2&"')" SQL="INSERT INTO publications VALUES(" & maxid & ",'"&titre2&"', '"&ladate&"', '"&texte2&"', '"&theme2&"', 'publications/"&page2&"', '"&motcle2&"', '')" %><% 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/" & page2) ,true,false) fichier.writeline "" fichier.writeline "" fichier.writeline ""&titre&"" fichier.writeline "" fichier.writeline "

"&titre&"

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


" end if fichier.write texte2 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/"&page2),true,false) 'fichier2.writeline "" 'fichier2.writeline "" 'fichier2.writeline ""&titre&"" 'fichier2.writeline "" 'if lien2 <> "" then ' fichier2.writeline "Télécharger l'article.


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

retour à la rubrique 'Autres articles'

" 'fichier2.writeline "" 'fichier2.writeline "" 'fichier2.writeline "" 'fichier2.close end if Function FormatMediumDate(DateValue) Dim strYYYY Dim strMM Dim strDD strYYYY = CStr(DatePart("yyyy", DateValue)) strMM = CStr(DatePart("m", DateValue)) If Len(strMM) = 1 Then strMM = "0" & strMM strDD = CStr(DatePart("d", DateValue)) If Len(strDD) = 1 Then strDD = "0" & strDD FormatMediumDate = strYYYY & "/" & strMM & "/" & strDD End Function %>

Modifier une publication :

Insérer une publication

<% if Request.Form("inserer")="inserer" then %>

Publication inséré

<% end if %>
titre

url
date
theme
Mots clés
<% ' Déconnexion Conn.close : Set Conn=nothing %>