cs_Fluck
Messages postés1Date d'inscriptionvendredi 27 octobre 2000StatutMembreDernière intervention15 août 2002
-
15 août 2002 à 21:05
Paxcal
Messages postés42Date d'inscriptionsamedi 24 août 2002StatutMembreDernière intervention 3 octobre 2005
-
24 août 2002 à 03:22
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
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")