si questo è quanto ho scriito nella pagina modificasql:
<%@ Language="VBScript"%>
<html>
<head>
<title>conferma modifica: </title>
</head>
<body bgcolor="#FF9933">
<%
id=Request.QueryString("id")
%>
<% on error resume next
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/dbcinema.mdb")
dim conn
dim rs
dim strID
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")
rs.open "daticinema", conn, 2, 2
rs.movefirst
for x = 1 to 5
rs("film") = request.form("film" & x)
rs("orario") = request.form("orario" & x)
rs.update
rs.movenext
Next
rs.movefirst
%>
<p><b><font color="#FFFFFF" size="1" face="Verdana">Modifica effettuata con successo!</font></b></p>
<p> </p>
<p> </p><center>
<table BORDER="0" width="200" style="border-collapse: collapse" cellpadding="0" cellspacing="0" height="36">
<% x = 1
rs.movefirst
Do While NOt Rs.EOF %>
<tr>
<td width="63" height="10"><strong><font size="1" face="Verdana" color="#FFFFFF">Cinema:</font></strong></td>
<td width="192" height="10"><% = rs("cinema")%></td></tr>
<tr>
<td width="63" height="10"></td>
<td width="192" height="10"></td></tr>
<tr><td width="63" height="12" valign="top"><strong><font size="1" face="Verdana" color="#FFFFFF">Film:</font></strong></td>
<td width="192" height="100" valign="top"><% = rs("film")%></td></tr>
<tr><td width="63" height="12"></td>
<td width="192" height="12"></td>
<tr><td width="63" height="12"><strong><font size="1" face="Verdana" color="#FFFFFF">Orario:</font></strong></td>
<td width="192" height="12"><% = rs("orario")%></td>
<%
x = x + 1
rs.movenext
Loop %><b><font size="1" face="Verdana" color="#FFFFFF"> </font></b>
</table>
<p> </p>
<p><b><a href="modificaform.asp?id=<%=id%>"><font size="1" face="Verdana" color="#FFFFFF">Clicca qui per tornare alla pagina di modifica</font></a></b></p>
<%
set rs= nothing
set conn = nothing
%>
</body>
</html>
