codice:
if Request.Form("tess" & Sogg("CodiceGiocatore")) = "NO" and Request.Form(campoIscr) = "SI" then
SQL = "insert into punteggi (CodiceGara, CodiceGiocatore, Punteggio, Scarto, Posizione, "
SQL = SQL & "Colpi, flgRitirato, flgNonPartito, PunteggioSocieta, scost, girifatti) "
SQL = SQL & " values (" & Request.Form("Gara")
SQL = SQL & ", '" & Sogg("CodiceGiocatore")
SQL = SQL & "', 0, 'N', 0, 0, False, False, 0, 0, 0)"
'Response.Write "seconda sql...: " & SQL & "
"
'Response.flush
set rs=Conn.execute (SQL)
' controllo se è una gara C oppure IT
SQL2 = "select gare.* from gare "
Set Sogg2 = Server.CreateObject("ADODB.Recordset")
Sogg2.open SQL2,Conn,3,1
If Sogg2("tipogara") = "C" Then
SQL2 = "insert into punteggiC (CodiceGara, CodiceGiocatore, PunteggioC, Scarto, Posizione, "
SQL2 = SQL2 & "Colpi, flgRitirato, flgNonPartito, scost, girifatti) "
SQL2 = SQL2 & " values (" & Request.Form("Gara")
SQL2 = SQL2 & ", '" & Sogg("CodiceGiocatore")
SQL2 = SQL2 & "', 0, 'N', 0, 0, False, False, 0, 0)"
'Response.Write "seconda sql2...: " & SQL2 & "
"
'Response.flush
set rs=Conn.execute (SQL2)
End if
If Sogg2("tipogara") = "IT" Then
SQL3 = "insert into punteggiIT (CodiceGara, CodiceGiocatore, punteggioIT, Scarto, Posizione, "
SQL3 = SQL3 & "Colpi, flgRitirato, flgNonPartito, girifatti) "
SQL3 = SQL3 & " values (" & Request.Form("Gara")
SQL3 = SQL3 & ", '" & Sogg("CodiceGiocatore")
SQL3 = SQL3 & "', 0, 'N', 0, 0, False, False, 0)"
'Response.Write "seconda sql3...: " & SQL3 & "
"
'Response.flush
set rs=Conn.execute (SQL3)
End if
End if
io non vedo nessun errore. Però la prima sql (insert into punteggi) la esegue, la seconda no e la terza (insert into punteggiIT) si. eppure nella tabella gare al campo tipogara c'è scritto "C".