function MM_findObj(n,d)
{var p,i,x;if(!d)
d=document;if((p=n.indexOf("?"))>0&&parent.frames.length)
{d=parent.frames[n.substring(p+1)].document;n=n.substring(0,p);}
if(!(x=d[n])&&d.all)
x=d.all[n];for(i=0;!x&&i<d.forms.length;i++)
x=d.forms[i][n];for(i=0;!x&&d.layers&&i<d.layers.length;i++)
x=MM_findObj(n,d.layers[i].document);if(!x&&document.getElementById)
x=document.getElementById(n);return x;}
function MM_swapImgRestore()
{var i,x,a=document.MM_sr;for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++)
x.src=x.oSrc;}
function MM_preloadImages()
{var d=document;if(d.images)
{if(!d.MM_p)
d.MM_p=new Array();var i,j=d.MM_p.length,a=MM_preloadImages.arguments;for(i=0;i<a.length;i++)
if(a[i].indexOf("#")!=0)
{d.MM_p[j]=new Image;d.MM_p[j++].src=a[i];}}}
function MM_swapImage()
{var i,j=0,x,a=MM_swapImage.arguments;document.MM_sr=new Array;for(i=0;i<(a.length-2);i+=3)
if((x=MM_findObj(a[i]))!=null)
{document.MM_sr[j++]=x;if(!x.oSrc)
x.oSrc=x.src;x.src=a[i+2];}}
function AddData(Tabla,Dato){Tabla[Tabla.length]=Dato}
function RemoveData(Tabla,index){for(i=index;i<Tabla.length;i++){Tabla[i]=Tabla[i+1]}
Tabla.length=Tabla.length-1}
function ChangeData(Tabla,index,Dato){Tabla[index]=Dato}
function SetChecked(gender)
{var f=document.forms['FrmSubmit']
if(gender=="male"){if(f.male.value=='X'){f.male.value=''}else{f.male.value='X'
f.female.value=''}}else{if(f.female.value=='X'){f.female.value=''}else{f.female.value='X'
f.male.value=''}}}
function CreateListBox(Name,ListaLabel,ListaVal,Preselect,OnChg,filas,selmultiple,estilo)
{Fil=""
if(filas>0)Fil="SIZE="+filas
Mul=""
if(selmultiple>0)Mul=" MULTIPLE"
document.write('<SELECT NAME='+Name+' VALUE="" '+Fil+' ONCHANGE="'+OnChg+'(this)"'+Mul+' style="'+estilo+'">')
if(ListaLabel!=0){for(i=0;i<ListaVal.length;i++){Sel=""
if(ListaVal[i]==Preselect)Sel=" SELECTED"
document.write('<OPTION value="'+ListaVal[i]+'"'+Sel+'>'+ListaLabel[i]+'</OPTION>')}}
document.write('</SELECT>')}
function AddNewOption(listbox_destino,texto,valor,defaultSel,sel)
{var isNew=true
if(listbox_destino.length>0)
{for(i=0;i<listbox_destino.length;i++)
{if(listbox_destino.options[i].value==valor)
{isNew=false
break}}}
if(isNew)
{newoption=new Option(texto,valor,defaultSel,sel)
listbox_destino.options[listbox_destino.length]=newoption}
else
{listbox_destino.options[i].selected=true}}
function DeleteOption(obj_listbox)
{seleccionados=new Array()
for(i=0;i<obj_listbox.length;i++)
{if(obj_listbox.options[i].selected)
AddData(seleccionados,obj_listbox.options[i].value)}
for(i=0;i<obj_listbox.length;i++)
{for(x=0;x<seleccionados.length;x++)
{if(obj_listbox.options[i].value==seleccionados[x])
obj_listbox.options[i]=null}}}
function QuitarSeleccion(obj_listbox)
{for(i=0;i<obj_listbox.length;i++)
{obj_listbox.options[i].selected=false}}
var msg_status=""
function scroll_status(seed)
{var out=" "
var c=1
lg=msg_status.length+5
if(150<seed)
{seed--;var cmd="scroll_status("+seed+")"
timerTwo=window.setTimeout(cmd,50)}
else
{if(seed<=lg&&0<seed)
{for(c=0;c<seed;c++)
{out+=" "}
out+=msg_status
seed--
var cmd="scroll_status("+seed+")"
window.status=out
timerTwo=window.setTimeout(cmd,50)}
else
{if(seed<=0)
{if(-seed<msg_status.length)
{out+=msg_status.substring(-seed,msg_status.length)
seed--
var cmd="scroll_status("+seed+")"
window.status=out
timerTwo=window.setTimeout(cmd,50)}
else
{window.status=" "
timerTwo=window.setTimeout("scroll_status(lg)",50)}}}}}
function NuevaVentana(url,target,w,h,t,l,tb,sb,r,d,mb,s)
{params="width="+w+",height="+h+",top="+t+",left="+l+",toolbar="+tb+",scrollbars="+sb+",resizable="+r+",menubar="+mb+",status="+s;var v=window.open(url,target,params);v.focus()}
function caracterRaro(cadena){caracteres=new Array();caracteres[0]="%"
caracteres[1]="?"
caracteres[2]=","
caracteres[3]="'"
caracteres[4]="*"
caracteres[5]="#"
caracteres[6]="$"
caracteres[7]="@"
caracteres[8]="!"
caracteres[9]="\\"
caracteres[10]="\""
caracteres[11]="^"
caracteres[12]=":"
caracteres[13]=";"
caracteres[14]="/"
caracteres[15]="&"
caracteres[16]="<"
caracteres[17]=">"
caracteres[18]="["
caracteres[19]="]"
caracteres[20]="{"
caracteres[21]="}"
caracteres[22]="á"
caracteres[23]="é"
caracteres[24]="í"
caracteres[25]="ó"
caracteres[26]="ú"
caracteres[27]="Á"
caracteres[28]="É"
caracteres[29]="Í"
caracteres[30]="Ó"
caracteres[31]="Ú"
caracteres[32]="ñ"
caracteres[33]="Ñ"
for(i=0;i<cadena.length;i++){for(j=0;j<caracteres.length;j++){if(cadena.charAt(i)==caracteres[j])return true}}
return false}
function caracterProhibido(cadena){caracteres=new Array();caracteres[0]="%"
caracteres[1]="?"
caracteres[2]="'"
caracteres[3]="$"
caracteres[4]="!"
caracteres[5]="\\"
caracteres[6]="\""
caracteres[7]="^"
caracteres[8]=":"
caracteres[9]=";"
caracteres[10]="/"
caracteres[11]="<"
caracteres[12]=">"
caracteres[13]="["
caracteres[14]="]"
caracteres[15]="{"
caracteres[16]="}"
for(i=0;i<cadena.length;i++){for(j=0;j<caracteres.length;j++){if(cadena.charAt(i)==caracteres[j])return true}}
return false}
function emailCheck(emailStr)
{if(emailStr=="")
return true
var emailPat=/^(.+)@(.+)$/
var specialChars="\\(\\)<>@,;:\\\\\\\"\\.\\[\\]"
var validChars="\[^\\s"+specialChars+"\]"
var quotedUser="(\"[^\"]*\")"
var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/
var atom=validChars+'+'
var word="("+atom+"|"+quotedUser+")"
var userPat=new RegExp("^"+word+"(\\."+word+")*$")
var domainPat=new RegExp("^"+atom+"(\\."+atom+")*$")
var matchArray=emailStr.match(emailPat)
if(matchArray==null){mailvalido=1;return false}
var user=matchArray[1]
var domain=matchArray[2]
if(user.match(userPat)==null){mailvalido=1;return false}
var IPArray=domain.match(ipDomainPat)
if(IPArray!=null){for(var i=1;i<=4;i++){if(IPArray[i]>255){mailvalido=1;return false}}
return true}
var domainArray=domain.match(domainPat)
if(domainArray==null){mailvalido=1;return false}
var atomPat=new RegExp(atom,"g")
var domArr=domain.match(atomPat)
var len=domArr.length
if(domArr[domArr.length-1].length<2||domArr[domArr.length-1].length>3){mailvalido=1;return false}
if(len<2){var errStr="no email"
mailvalido=1;return false}
return true;}
function spamCheck(messageStr){var messagePat=/http|href/
var matchArray=messageStr.match(messagePat)
if(matchArray==null){return true}
return false;}
function amplia()
{if(self.outerWidth)
{if((self.screen.width*80/100>self.outerWidth)||(self.screen.height*70/100>self.outerHeight))
{window.moveTo(0,0)
window.resizeTo(screen.availWidth,screen.availHeight)}}
else if(document.body)
{if((self.screen.width*80/100>document.body.clientWidth)||(self.screen.height*70/100>document.body.clientHeight))
{window.moveTo(0,0)
window.resizeTo(screen.availWidth,screen.availHeight)}}}
function GetXmlHttpObject()
{var xmlHttp=null
try
{xmlHttp=new XMLHttpRequest()}
catch(e)
{try
{xmlHttp=new ActiveXObject("Msxml2.XMLHTTP")}
catch(e)
{xmlHttp=new ActiveXObject("Microsoft.XMLHTTP")}}
return xmlHttp}
function CargarPagina(pagina_requerida,id_contenedor)
{if(pagina_requerida.readyState==4&&(pagina_requerida.status==200||window.location.href.indexOf("http")==-1))
{try
{document.getElementById(id_contenedor).innerHTML=pagina_requerida.responseText}
catch(e)
{var wrappingDiv=document.createElement('div')
wrappingDiv.innerHTML=pagina_requerida.responseText
document.getElementById(id_contenedor).appendChild(wrappingDiv)}}}
function Llamada_GET(url,id_contenedor)
{var sep="&";if(url.substr(url.length-4)==".php")
sep="?"
var date=new Date()
var url_send=url+sep+"tmst="+date.valueOf()
var pagina=GetXmlHttpObject()
pagina.onreadystatechange=function()
{CargarPagina(pagina,id_contenedor)}
pagina.open('GET',url_send,true)
pagina.send(null)}
function Llamada_POST(url,parametros,id_contenedor)
{var pagina=GetXmlHttpObject()
pagina.onreadystatechange=function()
{CargarPagina(pagina,id_contenedor)}
pagina.open('POST',url,true)
pagina.setRequestHeader("Content-type","application/x-www-form-urlencoded")
pagina.setRequestHeader("Content-length",parametros.length)
pagina.setRequestHeader("Connection","close")
pagina.send(parametros)}
function textLimit(field,maxlen)
{if(field.value.length>maxlen)
field.value=field.value.substring(0,maxlen)}