Después de recoger todos los datos
Cita: Sub grabar (FECHA, HORA)
Hora_In_Sistemas= HORA
Fecha_In_Sistemas= FECHA
Hora_In_Sistemas = FormatDateTime(Hora_In_Sistemas, 4)
Entidad=Request.Form("ENTIDAD")
Dir_Entidad=Request.Form("DIRENTIDAD")
Ciu_Entidad=Request.Form("CIUDENTIDAD")
At_Entidad=Request.Form("ATENTIDAD")
Ord=Request.Form("ORD")
Dac=Request.Form("Dac")
Num_Subtel=Request.Form("NUMSUBTEL")
Fech_Ord=Request.Form("FECHORD")
Fech_In_Form=Request.Form("FECHINFORM")
Nom_Cliente=Request.Form("NOMCLIENTE")
Rut_Cliente=Request.Form("RUTCLIENTE")
Tele_Cliente=Request.Form("TELECLIENTE")
Dir_Cliente=Request.Form("DIRCLIENTE")
Ciu_Cliente=Request.Form("CIUCLIENTE")
Monto=Request.Form("MONTO")
Insistencia = Request.Form("Insistencia")
Materia = Request.Form ("Materia")
ID = Request.Form ("ID")
Haces una consulta preguntando si ya existe en la BD ese ID (que me figuro que será único en tu BD no?) y si existe muestras error, y si no pos palante!!!