codice:
'---------------------------
'	Inserimento Presenze
'---------------------------
Dim Presenze
Dim SPresenze
Dim TabellinoA
Dim TabellinoB
TabellinoA = Replace(Request.Form("tabellino_A"), ".", ",")
TabellinoB = Replace(Request.Form("tabellino_B"), ".", ",")
tabAB = TabellinoA & " " & TabellinoB

tabAB = Replace(tabAB,".",",")
if Right(tabAB,1)="," then tabAB = Left(tabAB,Len(tabAB)-1)
'Response.Write tabAB & "<hr>"
set re = new RegExp
re.Pattern="\(dal \d{1,2}’[ps]t ([^\)]+)\)"
re.Global=true
re.IgnoreCase=true
tabAB = re.Replace(tabAB,", $1")
SPresenze = SPLIT(tabAB, ", ") 
for each Presenze in SPresenze
  nome = trim(Presenze)
  ' Aggiungo la presenza al giocatore
strSQL= "UPDATE tb_carriera SET str_presenze=str_presenze+1 WHERE tb_carriera.str_giocatore in ((SELECT id_giocatore FROM tb_giocatori WHERE str_anno="&StrAnnata&" AND str_cognomegioc='"&nome&"'))"
'Response.Write strSQL & "<hr>"
objConn.Execute(strSQL)
next
Grazie
Ciao