<%if Request("oculto")="1" then
dim id_var, empresa_var, gas_var, facturacion_var
dim costo_var, trabajadores_var,nombre_var,cargo_var,correo_var
empresa_var=request("empresa_cmb")
nombre_var=Request("nombre_txt")
cargo_var=Request("cargo_txt")
correo_var=Request("correo_txt")
gas_var=request("gas_txt")
facturacion_var=request("facturacion_txt")
costo_var=request("costo_txt")
trabajadores_var=request("trabajadores_txt")
sql="select max(id) as mayor from ciec_test3"
registros.open sql,conexion,1
id_var=registros("mayor")+1
If Isnull(id_var) then
id_var=1
else
id_var=registros("mayor")+1
End If
registros.close
sql="select * from ciec_test3"
registros.open sql,conexion,1
registros.AddNew
registros("id")=id_var
registros("fecha")=date
registros("hora")=time
registros("empresa")=empresa_var
registros("nombre")=nombre_var
registros("cargo")=cargo_var
registros("correo")=correo_var
registros("gas")=gas_var
registros("facturacion")=facturacion_var
registros("costo")=costo_var
registros("trabajadores")=trabajadores_var
registros.Update
registros.Close%>
<%end if%>
|
