Inserimento massiccio in database SQL

[freezone]

Ho un ciclo che esegue questo script:

strSQL = "INSERT INTO tblGiornate (IDGiocatore, Giornata, Stagione, Punti, Ranking, 
JBYear) VALUES (12292, 10, 1, 1, 1855, 2)"
On Error Resume Next
strSQL = Replace(strSQL, "#", "'")
strSQL = Replace(strSQL, "DELETE *", "DELETE")
objConn.Execute SQL
If Err.Number <> 0 Then
	objConn.Execute SQL
	If Err.Number <> 0 Then
		objConn.Execute SQL
		If Err.Number <> 0 Then
			objConn.Execute SQL
			If Err.Number <> 0 Then
				Response.Write(SQL & " dopo 4 tentativi
")
				Response.Write(Err.Description)
			End If
		End If
	End If
End If

Come vedete ho inserito che in caso di errore ritenti a fare l'inserimento, ma ciononostante dopo alcune centinaia di inserimenti andati a buon fine, mi ritrovo questo nella pagina:

INSERT INTO tblGiornate (IDGiocatore, Giornata, Stagione, Punti, Ranking, JBYear) VALUES (12292, 10, 1, 1, 1855, 2) dopo 4 tentativi
[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server does not exist or access denied.

Come mai? Esiste un sistema per fare degli inserimenti veloci senza appesantire troppo il server SQL? Grazie