SQL2 = "UPDATE News SET Titre=" & Request.form("Titre")
& ", News=" & Request.Form("News")
& " Where ID=" & Request.QueryString("ID")
-------------------------------
Réponse au message :
-------------------------------
bijour a tous , pour commencer voilà mon code :
<%
Dim rs
Set rs = Server.CreateObject ("ADODB.recordset")
Set conn = Server.CreateObject("ADODB.Connection")
connstring = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/Annuaire/db/DB.mdb")
conn.Open connstring
sql = "select * from News WHERE ID =" & Request.QueryString("ID")
rs.Open sql, conn, 3, 3
rs.movefirst
Choix = Left(UCase(Request("Modifier")),2)
If Choix = "MO" Then
SQL2 = "UPDATE News SET Titre=" & Request.form("Titre")", News=" & Request.Form("News")" Where ID=" & Request.QueryString("ID")
conn.Execute SQL2
response.Write("Sa a bien été modifier")
End IF
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" Text="#000000">
<form name="form1" method="post" action="modif2.asp">
<p>
<Input Type="text" name="Titre" value="<%=rs("Titre") %>">
Premier champs</p>
<p>
<Input Type="text" name="News" value="<%=rs("News") %>">
Deuxieme champs</p>
<p>
<Input name="Modifier" Type="submit" id="Modifier" value="MODIFIER">
</p>
</form>
</body>
</html>
<% conn.close %>
et quand sa sexecute voilà lerreur :
Type d'erreur :
Erreur de compilation Microsoft VBScript (0x800A0401)
Fin d'instruction attendue
/Annuaire/admin/news/modif2.asp, line 13, column 55
SQL2 = "UPDATE News SET Titre=" & Request.form("Titre")", News=" & Request.Form("News")" Where ID=" & Request.QueryString("ID")
help me plzzz
---->ASP Rulezzzzzzzzzz<----