questo codice dovrebbe fare la modifica di un record ricercato non ricordo cosa scrivere nella riga sql
<%
dim Conn2, strConn2
strConn2 = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/mdb-database/calcio.mdb")
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open StrConn2
SQL2 = "SELECT * FROM squadre"
Set rs2 = Server.CreateObject("ADODB.Recordset")
Rs2.Open SQL2, Conn2, 1, 3
if request.Form("golcasa")>request.Form("golfuori") then
Do Until rs2.Eof = True
if request.Form("casa")=rs2("squadre") then
rs2("punti")=rs2("punti")+3
end if
rs2.movenext
Loop
end if
if request.Form("golcasa")<request.Form("golfuori") then
Do Until rs2.Eof = True
if request.Form("fuori")=rs2("squadre") then
rs2("punti")=rs2("punti")+3
end if
rs2.movenext
Loop
end if
Response.write "<H2>inserimento effettuato con successo</H2>"
rs2.Close
set rs2 = Nothing
conn2.Close
set conn2 = Nothing
%>

Rispondi quotando