error - me inserta 2 registros iguales

[estoquera44]

Buenas tardes,

tengo un problema a la hora de insertar registros a una base de datos. La primera vez que inserta un registro, lo hace 2 veces, se repite pero si sigo insertando registros ya lo hace bien, solo inserta uno.

estoy usando una sql insert y no veo donde puede estar el error.

gracias por vuestra ayuda.

[Bluesman74cl]

si nos posteas tu sql seria mejor

[estoquera44]

Este es el codigo, si alguien me puede ayudar se lo agradeceria.
Un saludo.

<%
function AddProject(IdEmpresa, Codigo, Descripcion, FechaInicio, FechaFinal, HorasEstimadas, HorasReales)
Dim cn 'Connection var
Dim cmd 'Command object
Dim strSQL 'SQL Statement var

Set cn = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")
set rsproject=CreateObject("adodb.Recordset")

strSQL = "INSERT INTO Proyectos (IDEmpresa, IDCodigo, Descripcion, FechaInicio, FechaEntrega, HorasEstimadas, HorasReales) VALUES (" & IdEmpresa & ", " & Codigo & ", '" & Descripcion & "', #" & FechaInicio & "#, #" & FechaFinal & "#, '" & HorasEstimadas & "', '" & HorasReales & "')"

On Error Resume Next

cn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("FichaTrabajo.mdb")
cn.Open
If Err then Exit Function

cmd.ActiveConnection = cn
cmd.CommandText = strSQL
cmd.Execute

sql2="select top 1 IDProyecto from Proyectos order by IDProyecto desc"
rsproject.open sql2,cn,3,3
variable= Cstr(rsproject("IDProyecto"))
imprimirproyecto = "imprimirproyecto.asp?ultimo=" & variable & ""
rsproject.close

If Err then
response.write("Error de conexion" & err.description)
Exit Function
end if
cn.close

AddProject = True

response.redirect imprimirproyecto

set rsproject = nothing
set cn = nothing

End Function
%>