<script type="text/javascript">
$( function() {
   $('#ModalForm').dialog(
   {
        modal : true ,
        autoOpen : false ,
        height : 220 ,
        width : 470,
        buttons : {
            Отмена : function() {
                closeForm();
            } ,
            Отправить : function() {
                     manReq();
                }
            }
 
   });
});
 
function openForm()
{
    $('#ModalForm').dialog('open');
}
 
function closeForm()
{
    $('#ModalForm input[type="text"]').val('');
    $('#ModalForm').dialog('close');
}
 
function manReq()
{
   var ajaxRequest = new htmldb_Get( null , &APP_ID. , 'APPLICATION_PROCESS=manage_request', 0);
   ajaxRequest.add( 'P101_REQ_TYPE', $v('P101_REQ_TYPE'));
   ajaxRequest.add( 'P101_UNAME', $v('P101_UNAME'));
   ajaxRequest.add( 'P101_PASSWD', $v('P101_PASSWD'));
   ajaxRequest.add( 'P101_CONTACTS', $v('P101_CONTACTS'));
   ajaxRequest.add( 'P101_XIP', $v('P101_XIP'));
   var ret = ajaxRequest.get();
   alert(ret);
   ajaxRequest = null;
   closeForm();
}
</script>

select SYS_CONTEXT('USERENV','IP_ADDRESS') from sys.dual

declare
p_rtype number;
p_uname varchar2(100);
p_passwd varchar2(100);
p_contacts varchar(1000);
p_ipaddr varchar2(15);
ret varchar2 (1000);
begin
 p_rtype := :P101_REQ_TYPE;
 p_uname := :P101_UNAME;
 p_passwd := :P101_PASSWD;
 p_contacts := :P101_CONTACTS;
 p_ipaddr := :P101_XIP;
 if length(p_uname) > 2 then begin
  if length(p_passwd) > 7 then begin
   if p_contacts is not null then begin
     INSERT INTO USERS (REQ_TYPE, UNAME, PASSWD, CONTACTS, DREQ, IP_ADDR) 
     VALUES (p_rtype, p_uname, p_passwd, p_contacts, SYSDATE, p_ipaddr);
	 ret := 'Заявка успешно направлена.';
                                  end;
   else ret := 'Укажите контактные данные!';
                               end;
  else ret := 'Пароль должен быть больше 7 символов';
  end if;
                             end;
 else ret := 'Имя пользователя должно быть больше 2-х символов';
 end if;
 htp.prn(ret);
end;