A questo punto potrei fare goal , autogoal , goalsubiti(nel caso del portiere
codice:
<%
avversari=request("avversari")
evento=request("evento")
data=request("data")
orario=request("orario")
luogo=request("luogo")
idcalendario=request("idcalendario")
%>
Partita di <%=evento%>Del <%=data%> alle ore:<%=orario%> </td>
Giocata a: <%=luogo%>><%=avversari%>
<br /><br />
<form action="db_team.asp" method="post">
<%
'aperta connnessione al database
Set Conn = Server.createobject("ADODB.Connection")
Conn.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.Mappath("/mdb-database/ov.mdb")
Conn.Open
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL ="SELECT * FROM atleti order by nmaglia"
RS.Open SQL,Conn, 3, 3
While not RS.EOF
%>
<%=rs("nmaglia")%>/<%=rs("cognome")%>/<%=rs("nome")%>
<input type="checkbox" name="presenze" value="1">
<input type="hidden" name="idgiocatore" value="<%=rs("idgiocatore")%>" />
<input type="hidden" name="idcalendario" value="<%=idcalendario%>" />
<input type="hidden" name="evento" value="<%=evento%>" />
<br />
<%
RS.MoveNext
Wend
%>
<input type="submit" value="Invia" name="metodo" / class="button" />
<%
RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>
i dati vengono inviati alla pagini db_team.asp dove dopo averli raccolti dovrei scrivere sul db
codice:
For i = 1 To Request.Form.count
ReDim Preserve arrayidgiocatore(i)
ReDim Preserve arrayidcalendario(i)
ReDim Preserve arrayevento(i)
ReDim Preserve arraypresenze(i)
arrayidgiocatore(i) = Request.Form("arrayidgiocatore")(i)
arrayidcalendario(i) = Request.Form("arrayidcalendario")(i)
arrayevento(i) = Request.Form("arrayevento")(i)
arraypresenze(i) = Request.Form("arraypresenze")(i)
Set Connn = Server.createobject("ADODB.Connection")
Connn.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.Mappath("/mdb-database/ov.mdb")
Connn.Open
SQL = "INSERT INTO presenze (idgiocatore,idcalendario,evento,presenze) VALUES ('"&arrayidgiocatore(i)&"','"&arrayidcalendario(i)&"','"&arrayevento(i)&"','"&arraypresenze(i)&"')"
response.Write SQL
response.End()
Connn.Execute(SQL)
response.Redirect "calendario.asp"
Next