Dove metto il next??

[waitec401]

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?

[kluster]

<%
'------------------------- 
' 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&","&strSquadra_A&","&StrSquadra_B&")" 
			
			objConn.Execute(strSQL) 
		end if 
		Response.Redirect "inserisci_giornata.asp?stagione="&Request.QueryString("stagione")&"&operatore="&operatore&"" 
	else 
		Response.Write    "Una giornata inserita è già presente !!" 
	end if
next 
%>

[waitec401]

In questo modo mi inserisce solo la prima partita, le altre le ignora...