Problemer med AddNew funktion

Jeg har en AddNew funktion og nogen gange gemmer den to gange i databasen er der nogen der kan svare på hvorfor???

<%
objConn.BeginTrans
'On Error Resume Next

Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open "project_tab", objConn, 3, 3

objRs.AddNew
    objRs.Fields("No").Value=Request.Form("No")
    objRs.Fields("Donor").Value=Request.Form("Donor")
    objRs.Fields("Country").Value=Request.Form("Country")       
    objRs.Fields("Title").Value=Request.Form("Title")
    objRs.Fields("Ref_no").Value=Request.Form("Ref_no")
    objRs.Fields("Link").Value=Request.Form("Link")
    objRs.Fields("Value").Value=Request.Form("Value")
    objRs.Fields("Category").Value=Request.Form("Category")
    objRs.Fields("Status").Value=Request.Form("Status")
    objRs.Fields("Deadline").Value=Request.Form("Deadline")
    objRs.Fields("Contact").Value=Request.Form("Contact")
    objRs.Fields("DateReg").Value=CStr(Now())   
objRs.Update
objRs.Close
objConn.CommitTrans
objConn.Close