// Función:		viewer
// Código:		20010915js0033
// Autor:		Amadeo Acera © 2001
// Rev. A
//    Primera versión de este programa.

function viewer(InitImg,NumOfImgs,RootImgName,WinTitle,Width,Height){
//-------------------------------------------------------------------
   if (InitImg < 1 || InitImg > NumOfImgs) return;

	// Se ajusta el ancho para visualizar el borde de la imagen.
	var width = Width + 2;
	var height;
	var ventana;
	// Se ajusta el alto de la ventana en función de si hay que visualizar una o más imágenes.
	// Si hay que mostrar más de una hay que hacer sitio para los enlaces de navegación.
	if (NumOfImgs > 1) height = Height + 54;
	else height = Height + 31;
   var wFeatures = 'width=' + width + ',height=' + height;
	// Se abre una ventana con diferente nombre en función de si hay que visualizar una o más imágenes.
   if (NumOfImgs > 1) ventana = window.open("","MV",wFeatures);
   else ventana = window.open("","SV",wFeatures);

   with(ventana.document){

// DOCUMENTO DE LA VENTANA DEL VISOR
// =================================

      writeln('<html>');
      writeln('<head>');
      writeln('<title>' + WinTitle + '</title>');
		if (NumOfImgs > 1){
	      writeln('<style><!- ');
	      writeln('a.black:link,a.black:active,a.black:visited  {color:black; font:bold 8pt arial}');
		   writeln(' -></style>');

// SCRIPTS PARA LA VENTANA DEL VISOR

	      writeln('<script language="JavaScript">');
		   writeln('  var currentImg = ' + InitImg + ';');
			writeln('  var rootImgName = "' + RootImgName + '";');
			writeln('  function firstImg(){');
				      //-----------------------
	      writeln('     currentImg = 1;');
	      writeln('     showImg()');
	      writeln('  }');
	      writeln('  function prevImg(){');
	               //----------------------
	      writeln('     if (currentImg == 1) return;');
	      writeln('     currentImg--;');
	      writeln('     showImg()');
	      writeln('  }');
	      writeln('  function nextImg(){');
	               //----------------------
	      writeln('     if (currentImg == ' + NumOfImgs + ') return;');
	      writeln('     currentImg++;');
	      writeln('     showImg()');
	      writeln('  }');
	      writeln('  function lastImg(){');
	               //----------------------
	      writeln('     currentImg = ' + NumOfImgs + ';');
	      writeln('     showImg()');
		   writeln('  }');
	      writeln('  function showImg(){');
		            //----------------------
			writeln('     document.img.src = rootImgName + currentImg + ".jpg";');
			writeln('  }');
	      writeln('<\/script>');
		}
      writeln('</head>');

// CUERPO DE LA VENTANA DEL VISOR

      writeln('<body bgcolor=white leftmargin=0 topmargin=0>');
      writeln('<table width=' + Width + '>');
      if (NumOfImgs == 1){
         writeln('<tr height=25><td>');
			writeln('<span style="color:black; font:italic 8pt arial">Visor por Amadeo Acera &copy; 2001</span></td>');
      }
		else {
			writeln('<tr height=15><td colspan=3>');
			writeln('<span style="color:black; font:italic 8pt arial">Visor por Amadeo Acera &copy; 2001</span></td>');
			writeln('<td align=right>');
			writeln('<span style="color:black; font:italic 8pt arial">(' + NumOfImgs + ' im&aacute;genes)</span></td>');
		   writeln('<tr height=30>');
			writeln('     <td width=25% align=center>');
			writeln('        <a class=black href="javascript:firstImg()">Primera</a>');
			writeln('     </td>');
			writeln('     <td width=25% align=center>');
			writeln('        <a class=black href="javascript:prevImg()">Anterior</a>');
			writeln('     </td>');
			writeln('     <td width=25% align=center>');
			writeln('        <a class=black href="javascript:nextImg()">Siguiente</a>');
			writeln('     </td>');
			writeln('     <td width=25% align=center>');
			writeln('        <a class=black href="javascript:lastImg()">&Uacute;ltima</a>');
			writeln('     </td>');
		}
		writeln('</tr></table>');
      writeln('<table cellspacing=0 cellpadding=0 vspace=0 hspace=0><tr><td>');
      if (NumOfImgs > 1) writeln('<img src="' + RootImgName + InitImg + '.jpg" border=1 name="img"></td>');
		else writeln('<img src="' + RootImgName + '"  border=1></td>');
      writeln('</tr></table>');
      writeln('</body>');
      writeln('</html>');
   }
}
// Fin de viewer().
// ----------------