Problema. Me inserta 2 veces el mismo registro

[estoquera44]

Buenos dias,

he estado buscando por el foro algun comentario relacionado y encontre este.
http://www.forosdelweb.com/showthrea...ertar+repetido

Mi problema es exactamente el mismo, pero no encuentro solucion y en este tema tampoco esta resuelto. En algunas ocasiones, no siempre, inserta el registro 2 veces, como si tuviera un bucle, pero no hay ningun bucle.
El Id_proyecto es una variable que busca el ultimo valor en la tabla para sumarle 1 al añadir.
Quien me puede echar una mano. Les pongo el codigo.


En una pagina de funciones tengo este codigo:

Código:

function AddProject(nuevoproyecto, ID_Empresa, Descripcion, FechaInicio)
abre_conexion_admin

set rsproject=CreateObject("adodb.Recordset")

rsproject.open "Proyectos", dbcSuperConexion, 2, 3
  	rsproject.AddNew 
		rsproject.Fields("ID_Proyecto")= nuevoproyecto
   		rsproject.Fields("ID_Empresa")= ID_Empresa
		rsproject.Fields("Nombre_proyecto")= Descripcion
		rsproject.Fields("FechaInicio")= FechaInicio
		rsproject.update 
	rsproject.close
	set rsproject = nothing
		
	If Err then 
	response.write("Error de conexion" & err.description)
	Exit Function
    end if
	
	cierra_conexion 
	  
	AddProject = True
	
End Function

Y en la pagina "insertar" tengo este otro codigo:

Código:

<table width="90%"> <tr><td>
	
	<% 
	ID_Empresa = request.form("Empresa")
	Descripcion = request.form("Descripcion")
	FechaInicio = request.form("txtFechaDesde")
	nuevoproyecto = proyectoactual + 1

	if AddProject(nuevoproyecto, ID_Empresa, Descripcion, FechaInicio) = False then
		cadena_datos_incorrectos
	else
		response.Redirect "verproyecto.asp?busqueda=all"
	end if%>
				  
</td></tr></table>

Gracias.