1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
<% 'récupération de la valeur du bouton :
dim ligne : ligne= Request("ligne") %>
<body>
modification de la ligne n°<%=+ligne%><br><br>
il y a <%= request.form.count-1 %> champs <br>
<% For each item in request.form
if item <> "BoutonValiderFormulaireModif" then %>
<%=item%> à pour valeur : <%=request.form(item)%><br>
<% end if %>
<%next%>
<%'création de lobjet de connection
set objConn = server.CreateObject("ADODB.Connection")
base = "DRIVER={SQL Server};" & "SERVER=;UID=sa; pwd=; DATABASE=QUALIPSO"
objConn.Open base
Req1 = "UPDATE testtable SET "
For each item in request.form
if item <> "BoutonValiderFormulaireModif" then
Req2 = Req2 & item &" = "& request.form(item)&", "
end if
next
Req = Req1 & Req2
response.write "<br>"&Req
set rs = server.CreateObject("ADODB.RecordSet")
on error resume next
rs.Open Reqp,objConn
rs.close
set rs = Nothing
if err then
response.write err.description
end if
on error goto 0
%>
</body> |