Foros del web, para los que viven de bits

hola tengo una pagina que tiene que registrar nuevas promociones ingresando el nombre y una descripcion. funciona pero me inserta 2 campos repetidos como si se ejecutara 2 veces la consulta sql no se donde esta el error por favor alguien que me ayude o me de una solucion? gracias

strSQLI="INSERT INTO PROMOCIONES (PRO_NOMBRE, PRO_DESCRIPCION) VALUES ('"& Nombre &"','"& Descripcion &"')"
strSQLID="SELECT MAX(ID_PROMOCION)AS MAXIMO FROM PROMOCIONES"
set objrsi=server.CreateObject("ADODB.Recordset")
Conexion.BeginTrans()
Conexion.Execute(strSQLI)
set objRSID=Conexion.Execute(strSQLID)
Conexion.CommitTrans()
IDSit=objRSID.Fields("MAXIMO")