codice:
Set rsAnag = Server.CreateObject("ADODB.Recordset")
rsAnag.ActiveConnection = strConn
DataUsa = "#"&DataUsa&"#"
rsAnag.Source = "SELECT Nome, Cognome, Id FROM [T_Anag_Clienti"&session("StagioneAttuale")&"] WHERE DateDiff('d',"&DataUsa&",[Certificato])>=1 AND ([T_Anag_Clienti"&session("StagioneAttuale")&"].Stato)='ATTIVO' and Categoria='" & Session("categoria") & "' ORDER BY [T_Anag_Clienti"&session("StagioneAttuale")&"].Cognome"
rsAnag.CursorType = 0
rsAnag.CursorLocation = 3
rsAnag.LockType = 3
rsAnag.Open()
%>
<form action="convocazioni3.asp" method="post" name="form1">
<tr>
<%
i = 0
rsAnag.movefirst
x = rsAnag.recordcount
while not rsAnag.eof
For i = 0 to x%>
<td></td>
<td><input type="text" name="Maglia" size="1" maxlength="2" class="casellaMaglia" onKeyUp="controllaMaglia()"></td>
<td><label class="label" type="text" size="8" name="Nome"><%=x%><%=rsAnag.Fields.Item("Nome").Value%></label></td>
<td><label class="label" type="text" size="10" name="Cognome"><%=rsAnag.Fields.Item("Cognome").Value%></label></td>
<td align="center"><input type="checkbox" size="3" name="Convocato" value="1"></td>
<td><input type="text" name="Motivo" class="casellaTestoLong"></td>
</tr>
<input type="hidden" name="Nome"&"<%=x%>" value="<%=rsAnag.Fields.Item("Nome").Value%>">
<input type="hidden" name="Cognome"<%=x%> value="<%=rsAnag.Fields.Item("Cognome").Value%>">
<input type="hidden" name="totale" value="<%=x%>" />
<input type="hidden" name="DataItalia" value="<%=DataItalia%>">
<% rsAnag.movenext
x = x - 1
next
wend%>
<tr>
<td><input type="submit" name="Insert" value="CARICA" title="CARICA" class="bottonicarica"></td>
Questo è il codice di recupero convocazioni3.asp
codice:
Dat = request.Form("DataItalia")
Giorno = Mid(Dat, 1, 2)
Mese = Mid(Dat, 4, 2)
Anno = Mid(Dat, 7, 4)
DataAmerica = Mese&"/"&Giorno&"/"&Anno
Set cn1 = Server.CreateObject("ADODB.Connection")
cn1.Open strConn
no = replace(request.form("Nome"), "'", "''")
co = Replace(Request.Form("Cognome"), "'", "''")
Session("categoria")
motivo = request.Form("Motivo")
convocato = request.form("Convocato")
if convocato = "" then
convocato = 0
else
convocato = 1
end if
Session("dove1") = replace(Session("dove"),"'","''")
Session("quando")
Session("dovepartita1") = replace(Session("dovepartita"),"'","''")
Session("quandopartita")
Session("chi1") = Replace(Session("chi"), "'", "''")
Session("Acco1") = Replace(Session("Acco"), "'", "''")
Session("Uff1") = Replace(Session("Uff"), "'", "''")
Session("Med1") = Replace(Session("Med"), "'", "''")
Session("Mas1") = Replace(Session("Mas"), "'", "''")
Session("All1") = Replace(Session("All"), "'", "''")
if request.Form("Maglia") <> "" then
Maglia = request.Form("Maglia")
else
Maglia = ""
end if
sql1 = "INSERT INTO T_Convocazioni"&session("StagioneAttuale")&" ( Nome, Cognome, Categoria, Convocato, Motivo, Avversario, DataConvocazione, LuogoRitrovo, LuogoPartita, OraRitrovo, OraPartita, Accompagnatore, Ufficiale, Medico, Massaggiatore, Maglia, Allenatore) " &_
"VALUES ( '" & no & "','" & co & "','" & Session("categoria") & "','" & convocato & "','" & motivo & "','" & Session("chi1") & "',#" & DataAmerica & "#,'" & Session("dove1") & "','" & Session("dovepartita1") & "','" & Session("quando") & "','" & Session("quandopartita") & "','" & Session("Acco1") & "','" & Session("Uff1") & "','" & Session("Med1") & "','" & Session("Mas1") & "','" & Maglia & "','" & Session("All1") & "')"
cn1.Execute sql1
Response.Redirect("convocazioni2.asp?N=" & no & "&C=" & co & "&Ca=" & Session("categoria") & "&Con=" & convocato & "&M=" & motivo & "&Ch=" & Session("chi") & "&D=" & Session("dove") & "&DP=" & Session("dovepartita") & "&Q=" & Session("quando") & "&QP=" & Session("quandopartita") & "&Da=" & Dat & "&Ac=" & Session("Acco") & "&Uf=" & Session("Uff") & "&Me=" & Session("Med") & "&Ma=" & Session("Mas") & "&Nu=" & Maglia & "&Al=" & Session("All"))
Grazie a tutti