var cgiMail="/cgi-bin/HIMail.pl"
var currUrl=unescape(""+this.location)
var currProt=currUrl.substring(0, currUrl.indexOf(':'))
var defStatus="Directorio y buscador cristiano de Empresas, Organismos, Iglesias y Websites del mundo hispano"
var local=(currProt=="file")
var domUrl=""
var sslUrl=""
var pos=currUrl.indexOf('.com/')
if (pos>-1) domUrl=currUrl.substring(0,pos+5)
else domUrl="http://localhost/"
sslUrl=domUrl

var opera=(navigator.appName.indexOf('Opera')>-1)
var ns=(navigator.appName.indexOf('Netscape')>-1)
var ns4=(ns && parseInt(navigator.appVersion)==4)
var ns5=(ns && parseInt(navigator.appVersion)==5)

colorDis='#FFFFCC'
colorEna='white'
colorForm='#FFFFCC'
colorButton='gray'
colorButtonText='#005500'
colorButtonFocusText='#003300'
colorFocus='#FFFF88'
colorFld='black'
colorFldFocus='black'

function HIInit(pFocus){
	MYInit()
	if (pFocus) formFocus()
	return dst()
}
function MYInit(){}

function MM_reloadPage(init) {
  if (init) {if (ns4) {document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; window.onresize=MM_reloadPage;}}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true)

var tip=new Array()
tip[0]="El Directorio de Empresas, Organismos, Iglesias y Websites Cristianos"
tip[1]="Pulse aquí para ver las Entidades Cristianas de esta categoría"
tip[2]="Pulse aquí para ver las Empresas Cristianas de esta categoría"
tip[3]="Pulse aquí para ver los Organismos Cristianos de esta categoría"
tip[4]="Pulse aquí para ver las Iglesias Cristianas de esta denominación"
tip[5]="Pulse aquí para ver los Websites Cristianos de esta categoría"
tip[6]="Acceder a la Página Principal"
tip[7]="El equipo detrás de las «Páginas Arco Iris Cristianas»"
tip[8]="Contactar con nosotros"
tip[9]="Abre una ventana nueva con la información de «Internet Christians»"
tip[10]="Pulse aquí para ver las Empresas Cristianas"
tip[11]="Pulse aquí para ver los Organismos Cristianos"
tip[12]="Pulse aquí para ver las Iglesias Cristianas"
tip[13]="Pulse aquí para ver los Websites Cristianos"
tip[14]="Abre una ventana con la definición de una Empresa Cristiana"
tip[15]="Inscribir de una Empresa Cristiana en el directorio"
tip[16]="Abre una ventana con la definición de un Organismo Cristiano"
tip[17]="Inscribir un Organismo Cristiano en el directorio"
tip[18]="Abre una ventana con la definición de una Iglesia Cristiana"
tip[19]="Inscribir una Iglesia Cristiana en el directorio"
tip[20]="Abre una ventana con la definición de un Website Cristiano"
tip[21]="Inscribir un Website Cristiano en el directorio"
tip[22]="Abre una ventana con las Condiciones de Inscripción"
tip[23]="Colabore con nosotros"
tip[24]="Prefijos telefónicos internacionales"
tip[25]="Acceder a «Mis datos»"
tip[26]="Acceder a «Mis estadísticas»"
tip[27]="Cambiar mi contraseña"
tip[28]="Salir de «Mi página»"
tip[29]="Prefijos telefónicos de España"
tip[30]="Accede a Mi Página Personal"
tip[31]="Acerca de las «Páginas Arco Iris Cristianas»"
tip[32]="Acceder a las estadísticas de «Mis banners»"
tip[33]="Pulse aquí para ver la Agenda Cristiana"
tip[34]="Acceder a «Mis eventos»"
tip[35]="Asi funciona la Agenda cristiana..."
tip[36]="Para aclarar sus dudas accede a nuestras Preguntas Frequentes"
tip[37]="Contrate el servicio de publicidad con un banner"
tip[38]="Agregue nuestra búsqueda a su página principal de Google o Google Desktop"
tip[39]="Agregue nuestra búsqueda a su Navegador Firefox o Internet Explorer"
var maxtip=tip.length

function st(stat) {window.status=htmlToHex(stat); return true;}
function wst(n) {if (n>=0 && n<maxtip) {return st(tip[n])} else {return st(n)}}
function dst() {return st(defStatus)}
function Tst() {return wst(1)}
function Est() {return wst(2)}
function Ost() {return wst(3)}
function Ist() {return wst(4)}
function Wst() {return wst(5)}

function detst(n) {return st("Pulse aqu&iacute; para m&aacute;s informaci&oacute;n de &laquo;"+n+"&raquo;")}
function mailst(n) {return st("Pulse aqu&iacute; para enviar un mensaje a &laquo;"+n+"&raquo;")}
function webst(n) {return st("Pulse aqu&iacute; para visitar el website de &laquo;"+n+"&raquo;")}

function Entidad(n,ns,nc,nsc,na,nac,nuc,nd,c,cs,d,dc) {this.name=n; this.names=ns; this.namec=nc; this.namesc=nsc; this.namea=na; this.nameac=nac; this.nameuc=nuc; this.named=nd; this.cat=c; this.cats=cs; this.dir=d; this.doc=dc}
var entidad=new Array()
entidad["T"]=new Entidad("Entidad", "Entidades", "Entidad Cristiana", "Entidades Cristianas", "la Entidad", "la Entidad Cristiana", "una Entidad Cristiana", "de la Entidad", "Categor&iacute;a", "categor&iacute;as", "entidades", "entidad")
entidad["E"]=new Entidad("Empresa", "Empresas", "Empresa Cristiana", "Empresas Cristianas", "la Empresa", "la Empresa Cristiana", "una Empresa Cristiana", "de la Empresa", "Categor&iacute;a", "categor&iacute;as", "empresas", "empresa")
entidad["O"]=new Entidad("Organismo", "Organismos", "Organismo Cristiano", "Organismos Cristianos", "el Organismo", "el Organismo Cristiano", "un Organismo Cristiano", "del Organismo", "Categor&iacute;a", "categor&iacute;as", "organismos", "organismo")
entidad["I"]=new Entidad("Iglesia", "Iglesias", "Iglesia Cristiana", "Iglesias Cristianas", "la Iglesia", "la Iglesia Cristiana", "una Iglesia Cristiana", "de la Iglesia", "Denominaci&oacute;n", "denominaciones", "iglesias", "iglesia")
entidad["W"]=new Entidad("Website", "Websites", "Website Cristiano", "Websites Cristianos", "el Website", "el Website Cristiano", "un Website Cristiano", "del Website", "Categor&iacute;a", "categor&iacute;as", "websites", "website")

function displayEntity(t) {
  var s="Abre una ventana con la definici&oacute;n de "+entidad[t].nameuc
  document.write('<a href="javascript:definition(&quot;'+t+'&quot;)" alt="'+s+'" title="'+s+'" onMouseOver="return st(&quot;'+s+'&quot;)" onMouseOut="return dst()">'+entidad[t].namec+'</a>')
}

function displayEntities(t) {
  var s="Abre una ventana con la definici&oacute;n de "+entidad[t].nameuc
  document.write('<a href="javascript:definition(&quot;'+t+'&quot;)" alt="'+s+'" title="'+s+'" onMouseOver="return st(&quot;'+s+'&quot;)" onMouseOut="return dst()">'+entidad[t].namesc+'</a>')
}

function closeWindow() {
  var s="Cerrar la ventana"
  document.writeln('<p class="close"><a href="javascript:window.close()" alt="'+s+'" title="'+s+'" onMouseOver="return st(&quot;'+s+'&quot;)" onMouseOut="return dst()">Cerrar la ventana</a></p>')
}

function popupWindow(win,n,u,w,h,l,t) {
  var par="status=1,resizable=1,scrollbars=1,width="+w+",height="+h+",left="+l+",top="+t
  win=window.open(u,n,par)
  win.creator=self
  win.focus()
}

var popCond
function conditions(){popupWindow(popCond,"Condiciones","/condiciones.shtml",500,300,150,100)}
var popDefinition
function definition(t){popupWindow(popDefinition,"Definicion","/"+entidad[t].dir+"/definicion.shtml",400,250,200,125)}
var popExample
function example(){popupWindow(popExample,"Ejemplo","/ejemplo.shtml?tipo="+getType(),600,500,100,10)}
var popMail
function email(id,t) {popupWindow(popMail,"Mensaje","/"+entidad[t].dir+"/email.shtml?id="+id,600,475,100,50)}
var popCondAg
function condagenda(){popupWindow(popCondAg,"Condiciones","/agenda/condiciones.shtml",500,400,150,100)}
var popComoAg
function comoagenda(){popupWindow(popComoAg,"Agenda","/agenda/como.shtml",500,300,150,100)}
var popFAQ
function showFaq(id){popupWindow(popFAQ,"PreguntasFrecuentes","/faqs/faq"+id+".shtml",500,400,150,100)}

function getcookie(par) {
  var srch=par+"="
  var res=""
  var ck=document.cookie
  if (ck.length>0) {
    var pos=ck.indexOf(srch)
    if (pos>-1) {
      pos+=srch.length
      var end=ck.indexOf(";",pos)
      if (end==-1) end=ck.length
      res=unescape(ck.substring(pos,end))
    }
  }
  return res
}

function setcookie(key,val,pdate,path,domain,secure) {
	var myDate=""
  if (typeof(pdate)=='string') myDate=pdate
  else if (typeof(pdate)=='number') myDate=(new Date((new Date()).getTime()+pdate*3600000)).toGMTString()
  document.cookie = key + '=' + val + ((myDate!="")?('; expires=' + myDate):'') + ((path)?'; path=' + path:'') + ((domain)?'; domain=' + domain:'') + ((secure && (secure==true))?'; secure':'')
}

var cookiedate="Fri, 31-Dec-2100 23:59:59 GMT"

function getInscriptionMenu(){
	var h=getMenuItem("javascript:conditions()","Abre una ventana con las Condiciones de Inscripci&oacute;n",22,"Condiciones de inscripci&oacute;n","/img/info.gif")+getMenuSep()
	h+=getMenuItem("/inscripcion.shtml?tipo=E","Inscripci&oacute;n de una Empresa Cristiana en el directorio",15,"Inscribir Empresa","/img/update.gif")+getMenuSep()
	h+=getMenuItem("/inscripcion.shtml?tipo=O","Inscripci&oacute;n de un Organismo Cristiano en el directorio",17,"Inscribir Organismo","/img/update.gif")+getMenuSep()
	h+=getMenuItem("/inscripcion.shtml?tipo=I","Inscripci&oacute;n de una Iglesia Cristiana en el directorio",19,"Inscribir Iglesia","/img/update.gif")+getMenuSep()
	h+=getMenuItem("/inscripcion.shtml?tipo=W","Inscripci&oacute;n de un Website Cristiano en el directorio",21,"Inscribir Website","/img/update.gif")
	return h
}
function getAgendaMenu(){
	var h=getMenuItem("javascript:comoagenda()","Asi funciona la Agenda cristiana...",35,"&iquest;C&oacute;mo funciona la Agenda?","/img/cal.gif")+getMenuSep()
	h+=getMenuItem("/mipagina/","Accede a Mi P&aacute;gina Personal para inscribir eventos en la Agenda Cristiana",30,"Inscribir eventos","/img/cal.gif")
	return h
}
function getColaborateMenu(){
	var h=getMenuHdr("Colabore con nosotros")
	h+=getMenuItem("/colabora.shtml","Agregue nuestro banner a su website",23,"Agregue nuestro banner a su website")+getMenuSep()
	h+=getMenuItem("/busqueda.shtml","Agregue nuestra b&uacute;squeda a su website",23,"Agregue nuestra b&uacute;squeda a su website")
	return h
}
function getMyPageMenu(){return getMenuHdr("Mi P&aacute;gina")+getMenuItem("/mipagina/","Accede a Mi P&aacute;gina Personal",30,"Acceso")}
function getMenuHdr(pTxt){
  var h=getMenuMrg("smhdr")
  h+='<tr><td class="smhdr" width="19">&nbsp;</td><td class="smhdr">'+pTxt+'</td><td class="smhdr" width="2">&nbsp;</td></tr>'
  h+=getMenuMrg("smhdr")
  return h
}
function getMenuItem(pUrl,pTitle,pSt,pTxt,pImg){
	var myimg=(arguments.length<5)?"/img/libro2.gif":(pImg.indexOf("/img/")==-1)?"/img/"+pImg:pImg
	var h=getMenuMrg("sm")
	h+='<tr>'
  h+='<td class="sm" width="19" align="center">'
  h+='<a href="'+pUrl+'" title="'+pTitle+'" onMouseOver="return wst('+pSt+')" onMouseOut="return dst()"><img src="'+myimg+'" border="0" /></a>'
  h+='</td>'
  h+='<td class="sm">'
  h+='<a href="'+pUrl+'" title="'+pTitle+'" onMouseOver="return wst('+pSt+')" onMouseOut="return dst()">'+pTxt+'</a>'
  h+='</td>'
  h+='<td class="sm" width="2">&nbsp;</td>'
  h+='</tr>'
	h+=getMenuMrg("sm")
  return h
}
function getMenuSep(){return '<tr height="1"><td class="smhdr" colspan="3"><img src="/img/pixel.gif" border="0" width="1" height="1"></td></tr>'}
function getMenuMrg(pCls){return '<tr height="2"><td class="'+pCls+'" colspan="3"><img src="/img/pixel.gif" border="0" width="2" height="2"></td></tr>'}

function getBanner(pId,pUrl,pTip,pImg,pWidth,pHeight,pVSpace){
  var h='<a href="'
  h+=pUrl?pUrl:'/cgi-bin/bannerid.pl?id='+pId
  h+='" target="_blank" title="'+pTip+'" onMouseOver="return st(&quot;'+pTip+'&quot;)" onMouseOut="return dst()">'
  h+='<img src="'+pImg+'" width="'+pWidth+'" height="'+pHeight+'" border="0" '
  if (pVSpace>0) h+='vspace="'+pVSpace+'" '
  h+='alt="'+pTip+'" /></a>'
  return h
}

function showBanner(pId,pUrl,pTip,pImg,pWidth,pHeight){
  document.write(getBanner(pId,pUrl,pTip,pImg,pWidth,pHeight,2))
}

function showTopBanner(pId,pUrl,pTip,pImg,pWidth,pHeight){
  var h='<table border="0" cellpadding="0" cellspacing="0">'
  h+='<tr><td class="topmenu">Publicidad</td></tr>'
  h+='<tr><td>'
  h+='<table border="0" cellpadding="2" cellspacing="0" width="100%"><tr><td style="background-color:#336633">'
  h+='<table border="0" cellpadding="2" cellspacing="0" width="100%"><tr><td style="background-color:#FFFF88">'
  h+=getBanner(pId,pUrl,pTip,pImg,pWidth,pHeight,0)
  h+='</td></tr></table>'
  h+='</td></tr></table>'
  h+='</td></tr>'
  h+='</table>'
  document.write(h)
}

function showId(pId,pType,pName,pTip,pEmail,pWeb){
  var s=h=''
  if (pEmail){
    s="Pulse aqu&iacute; para enviar un mensaje a &laquo;"+pTip+"&raquo;"
    h+='<td width="16px"><a href="javascript:email('+pId+',&quot;'+pType+'&quot;)" title="'+s+'" onMouseOver="return mailst(&quot;'+pTip+'&quot;)" onMouseOut="return dst()"><img src="/img/mail.gif" border="0" /></a></td>'
  } else {
  	h+='<td><img src="/img/pix.gif" border="0" width="16" height="1" /></td>'
  }
  if (pWeb) {
    s="Pulse aqu&iacute; para visitar el website de &laquo;"+pTip+"&raquo;"
    h+='<td width="16px"><a href="/cgi-bin/visitid.pl?id='+pId+'" target="_blank" title="'+s+'" onMouseOver="return webst(&quot;'+pTip+'&quot;)" onMouseOut="return dst()"><img src="/img/web.gif" border="0" hspace="2" /></a></td>'
  } else {
  	h+='<td><img src="/img/pix.gif" border="0" width="18" height="1" /></td>'
  }
//  s="Pulse aqu&iacute; para m&aacute;s informaci&oacute;n de &laquo;"+pTip+"&raquo;"
//  h+='<td class="content" width="60%"><a href="/'+entidad[pType].dir+'/'+entidad[pType].doc+'.shtml?id='+pId+'" target="_blank" title="'+s+'" onMouseOver="return detst(&quot;'+pTip+'&quot;)" onMouseOut="return dst()">'+pName+'</a></td>'
  document.write(h)
}