Salve, il problema si � spostato ed � questo. Ho una pagina asp costruita con un recordset, il quale pi� contenere N record. In questa pagina ho una form cos� composta.
Maglia Nome Cognome Convocato Motivo
Il campo Maglia lo edito
I campi Nome e Cognome li recupero da recordset
Il campo Motivo lo edito
Il campo Convoato � di tipo checkbox
Qui il codice di questa prima pagina:
Nella pagina CONVOCAZIONI3.asp recupero i dati e li inserisco nella tabella.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 = 1 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"><%=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" checked="checked"></td> <td><input type="text" name="Motivo" class="casellaTestoLong"></td> </tr> <input type="hidden" name="Nome" value="<%=rsAnag.Fields.Item("Nome").Value%>"> <input type="hidden" name="Cognome" value="<%=rsAnag.Fields.Item("Cognome").Value%>"> <input type="hidden" name="serie" 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> </form> </tr>
Il problema sorge quando vado a inserire il campo convocato, poich� se faccio la insert escludendo tale campo non ci sono problemi e tutto fila liscio.codice:Set cn1 = Server.CreateObject("ADODB.Connection") cn1.Open strConn Dat = request.Form("DataItalia") Giorno = Mid(Dat, 1, 2) Mese = Mid(Dat, 4, 2) Anno = Mid(Dat, 7, 4) DataAmerica = Mese&"/"&Giorno&"/"&Anno no = replace(request.form("Nome"), "'", "''") co = Replace(Request.Form("Cognome"), "'", "''") motivo = request.Form("Motivo") Convocato = request.Form("Convocato") if request.Form("Maglia") <> "" then Maglia = request.Form("Maglia") else Maglia = "" end if DivisioneNome = split(no,",") DivisioneCognome = split(co,",") DivisioneMotivo = split(motivo,",") DivisioneMaglia = split(Maglia,",") For i = LBound(DivisioneNome) to UBound(DivisioneNome) sql1 = "INSERT INTO T_Convocazioni"&session("StagioneAttuale")&" ( Nome, Cognome, DataConvocazione, Maglia, Convocato) " &_ "VALUES ( '" & trim(DivisioneNome(i)) & "','" & trim(DivisioneCognome(i)) & "',#" & DataAmerica & "#,'" & trim(DivisioneMaglia(i)) & "','" & Convocato(i) & "')" cn1.Execute sql1 next
Vi prego datemi una manona non s� pi� che pesci prendere![]()

Rispondi quotando


