Ver Mensaje Individual
  #4 (permalink)  
Antiguo 27/01/2005, 16:43
Avatar de lexus
lexus
 
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 22 años, 4 meses
Puntos: 4
un cargador con visual script

Código:
 <script>
function detenerError(){

return true
}
window.onerror=detenerError
</script>
<head>
<!--
function MM_reloadPage(init) {  
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
	document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
 <script language=VBScript>
   <!--
   Dim Bar, Line, SP
   Bar = 0 
   Line = "|"
   sP = 250
   
   Function Window_onLoad()
	 Bar = 95
	 sP = 10
   END Function
   
   Function Count()
   If Bar < 100 Then
	  Bar = Bar + 1
	  Window.Status = " C a r g a n d o   p á g i n a   . . . " & Bar & "%" & " " & String(Bar, Line)
	  setTimeout "Count()", SP
   Else
	  Window.Status = "Aqui escribe el nombre que quieras"
	  Document.Body.Style.Display = "" 
   End If 
   End Function
   
   Call Count()
   -->
   </script>
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com