<% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Con = Server.CreateObject("ADODB.Connection") con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;" Set rst = Server.CreateObject("ADODB.Recordset") rst.open "SELECT * FROM annmoto ORDER BY date_parution DESC;", con, adOpenKeyset, adLockOptimistic %>
<%while (not rst.EOF) %> ">Modifier Code de la page de modif des champs: <code><%var_id = Request.Querystring("reference")%> <% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Con = Server.CreateObject("ADODB.Connection") con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;" Set rst = Server.CreateObject("ADODB.Recordset") rst.open "SELECT * FROM annmoto WHERE id =" & var_id &";", con, adOpenKeyset, adLockOptimistic %>
<form action="modif_exe_ann_moto_wm.asp" method="post" name="form2"> <td width="50%" height="114"> id "> Nom: "> Prénom: "> Adresse E-mail: "> ">
<% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Con = Server.CreateObject("ADODB.Connection") con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;" Set Rs = Server.CreateObject("ADODB.Recordset") id_bis= Request.Form("id") nom_bis= Request.Form("nom") prenom_bis= Request.Form("prenom") mail_bis= Request.Form("mail") RequeteSQL = "Update annmoto Set nom='" & nom_bis & "',prenom='" & prenom_bis & "',mail='" & mail_bis & "' WHERE id=" & id_bis & ";" Rs.Open RequeteSQL ,con%>
<% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Con = Server.CreateObject("ADODB.Connection") con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;" Set rst = Server.CreateObject("ADODB.Recordset") rst.open "SELECT * FROM annmoto ORDER BY date_parution DESC;", con, adOpenKeyset, adLockOptimistic %>
<%while (not rst.EOF) %> ">Modifier Code de la page de modif des champs: <code><%var_id = Request.Querystring("reference")%> <% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Con = Server.CreateObject("ADODB.Connection") con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;" Set rst = Server.CreateObject("ADODB.Recordset") rst.open "SELECT * FROM annmoto WHERE id =" & var_id &";", con, adOpenKeyset, adLockOptimistic %>
<form action="modif_exe_ann_moto_wm.asp" method="post" name="form2"> <td width="50%" height="114"> id "> Nom: "> Prénom: "> Adresse E-mail: "> ">
<% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Con = Server.CreateObject("ADODB.Connection") con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;" Set Rs = Server.CreateObject("ADODB.Recordset") id_bis= Request.Form("id") nom_bis= Request.Form("nom") prenom_bis= Request.Form("prenom") mail_bis= Request.Form("mail") RequeteSQL = "Update annmoto Set nom='" & nom_bis & "',prenom='" & prenom_bis & "',mail='" & mail_bis & "' WHERE id=" & id_bis & ";" Rs.Open RequeteSQL ,con%>
<% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Con = Server.CreateObject("ADODB.Connection") con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;" Set rst = Server.CreateObject("ADODB.Recordset") rst.open "SELECT * FROM annmoto ORDER BY date_parution DESC;", con, adOpenKeyset, adLockOptimistic %>
<%while (not rst.EOF) %> ">Modifier Code de la page de modif des champs: <code><%var_id = Request.Querystring("reference")%> <% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Con = Server.CreateObject("ADODB.Connection") con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;" Set rst = Server.CreateObject("ADODB.Recordset") rst.open "SELECT * FROM annmoto WHERE id =" & var_id &";", con, adOpenKeyset, adLockOptimistic %>
<form action="modif_exe_ann_moto_wm.asp" method="post" name="form2"> <td width="50%" height="114"> id "> Nom: "> Prénom: "> Adresse E-mail: "> ">
<% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Con = Server.CreateObject("ADODB.Connection") con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;" Set Rs = Server.CreateObject("ADODB.Recordset") id_bis= Request.Form("id") nom_bis= Request.Form("nom") prenom_bis= Request.Form("prenom") mail_bis= Request.Form("mail") RequeteSQL = "Update annmoto Set nom='" & nom_bis & "',prenom='" & prenom_bis & "',mail='" & mail_bis & "' WHERE id=" & id_bis & ";" Rs.Open RequeteSQL ,con%>
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question<% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Con = Server.CreateObject("ADODB.Connection") con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;" Set rst = Server.CreateObject("ADODB.Recordset") rst.open "SELECT * FROM annmoto ORDER BY date_parution DESC;", con, adOpenKeyset, adLockOptimistic %>
<%while (not rst.EOF) %> ">Modifier Code de la page de modif des champs: <code><%var_id = Request.Querystring("reference")%> <% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Con = Server.CreateObject("ADODB.Connection") con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;" Set rst = Server.CreateObject("ADODB.Recordset") rst.open "SELECT * FROM annmoto WHERE id =" & var_id &";", con, adOpenKeyset, adLockOptimistic %>
<form action="modif_exe_ann_moto_wm.asp" method="post" name="form2"> <td width="50%" height="114"> id "> Nom: "> Prénom: "> Adresse E-mail: "> ">
<% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Con = Server.CreateObject("ADODB.Connection") con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../")&"/databases/bd.mdb;" Set Rs = Server.CreateObject("ADODB.Recordset") id_bis= Request.Form("id") nom_bis= Request.Form("nom") prenom_bis= Request.Form("prenom") mail_bis= Request.Form("mail") RequeteSQL = "Update annmoto Set nom='" & nom_bis & "',prenom='" & prenom_bis & "',mail='" & mail_bis & "' WHERE id=" & id_bis & ";" Rs.Open RequeteSQL ,con%>