In questo modo aggiungo dei dati ad una tabella,ma prima controllo che non siano già presenti.

Mi restituisce questo errore:
Unexpected 'Next'

/gestione/aggiungi_giornata.asp, line 46

'-------------------------
' Dichiaro le variabile dei campi del modulo
'-------------------------

Dim strStagione
Dim StrSquadra_A
Dim StrSquadra_B
Dim StrData
Dim StrGiornata

strData = Request.Form("data")
strGiornata = Request.Form("giornata")
for i=1 to 9
strStagione = Request.QueryString("stagione")
' Popolo le variabile
strSquadra_A = Request.Form("squadraA"&i)
strSquadra_B = Request.Form("squadraB"&i)

if trim(StrSquadra_A)<>"0" then

'Controllo che non sia gia presente la partita
ObjRs.open "Select * FROM tb_calendari WHERE str_squadra_A="&StrSquadra_A&" AND str_squadra_B="&StrSquadra_B&" AND str_giornata="&StrGiornata&" AND str_stagione="&StrStagione&"",ObjConn,1,3
if ObjRs.RecordCount = BOF and ObjRs.RecordCount=EOF then


' Creo la SQL per inserire i dati ne db
strSQL = "INSERT INTO tb_calendari (str_data,str_stagione,str_giornata,str_squadra_A, str_squadra_B)"

' inserisco i dati nella tabella
strSQL = strSQL&"VALUES ("&strData&","&strstagione&","&strGiornata&","&str Squadra_A&","&StrSquadra_B&")"

objConn.Execute(strSQL)
end if
next ' LINEA 46
Response.Redirect "inserisci_giornata.asp?stagione="&Request.QuerySt ring("stagione")&"&operatore="&operatore&""
else
Response.Write"Una giornata inserita è già presente !!"
end if



Come si corregge?