<%
Set Conn = Server.CreateObject("ADODB.Connection")
connstring="DRIVER={Microsoft Access Driver (*.mdb)};" _
& " DBQ=" & Server.MapPath("db/actualite.mdb")
Conn.Open connstring
SQL="SELECT * FROM [actualite1] "
Set RS = server.createobject("ADODB.Recordset")
RS.Open SQL,Conn , 3, 3
if request.querystring("delete")<> "" then
conn.execute("delete * from actualite1 where id like '" &request.querystring("delete")& "' ")
response.redirect("default.asp")
end if
if request.querystring("del")<> "" then
conn.execute("delete * from forum1 where id like '" &request.querystring("del")& "' ")
response.redirect("default.asp")
end if
if request("action")="envoyer" then
SQL1="SELECT * FROM [forum1]"
Set RS1 = server.createobject("ADODB.Recordset")
RS1.Open SQL1,Conn , 3, 3
rs1.addnew
rs1("name")=request.form("prenom")
rs1("email")=request.form("email")
rs1("message")=request.form("message")
rs1("posted")=now()
rs1.update
response.redirect("default.asp")
end if
%>
stampnail
