SUB DetectEnviroment()
dim Windows, IExplorer, Navegador, Resolucion, noacepta
dim Wincomp, IExplocomp, Navegacomp, Resolucomp, salto

salto = chr(13) & chr(10)
Windows = left(mid(navigator.appVersion,28),10)
Navegador = navigator.appName
IExplorer = left(mid(navigator.appVersion,22),4)
Resolucion = screen.width & "x" & screen.height

Wincomp = "Windows 98"
IExplocomp = 4.0
Navegacomp = "Microsoft Internet Explorer"
Resolucomp = "640x480"

noacepta = "Falso"
if Windows <> Wincomp then 
   if strcomp(Navegador,Navegacomp) <> 0 then noacepta = "Verdadero"
   if IExplorer < IExplocom then noacepta = "Verdadero"
end if
if strcomp(Resolucion,Resolucomp) <> 0 then noacepta = "Verdadero"

if strcomp(noacepta,"Verdadero") = 0 and decide = 0 then 
   msgbox "Alfaped requiere de: " & salto & salto & Wincomp & " o Windows95 con " & salto & Navegacomp & " >= " & IExplocomp & ".0" & salto & "Resolución: " & Resolucomp & " píxeles" & salto & salto & "Usted tiene: " & salto & salto & Windows & " con " & salto & Navegador & IExplorer & salto & "Resolución: " & Resolucion & " píxeles",vbexclamation+vbcritical,"Error de configuración"
   document.write("<FONT COLOR='YELLOW'>Error de lectura en módulo " & document.title & "</FONT><BR><BR>Una vez corregida su configuración puede <A HREF='javascript:history.go(-1)' TITLE='Recarga la hoja de compatibilidad'><FONT COLOR='LIME'>Recargar</FONT></A> el sitio.<BR>")
document.write("<A HREF='alterno.html' TITLE='Continuar con la carga'><FONT COLOR='LIME'>Continuar con errores</FONT></A>, pues no quiero o no puedo cambiar mi configuración.")
   document.fgColor = "CYAN"
   document.bgColor = "BLACK"
   document.title = "Alfaped - Error de Configuración"
end if
END SUB
SUB info()
cambio = chr(13) & chr(10)
msgbox "Las siguientes personas comparten mi cumpleaños:" & cambio & cambio & _
"1767  John Quincy Adams Braintree, Massachusetts, 6to Presidente" & cambio & _
"          (D) (1825-1829)" & cambio & _
"1899  E.B. White, escritor (Charlotte's Web, Elements of Style)" & cambio & _
"1920  Yul Brynner, actor (King & I, 10 Commandments)" & cambio & _
"1950  Bonnie Pointer, cantante (Hermanas Pointer)" & cambio & _
"1953  Leon Spinks US, campeón de boxeo peso pesado" & cambio & _
"          (1978, Medalla Olímpica 1976)" & cambio & cambio & _
"Los siguientes eventos ocurrieron ese día:" & cambio & cambio & _
"1955  El Congreso de E.E.U.U autoriza que toda su moneda diga" & cambio & _
"          'En Dios confiamos'" & cambio & _
"1962  Primera transmición trasatlántica de TV vía satélite (Telstar I)" & cambio & _
"1962  Fred Baldasare es el primero en bucear bajo el Canal Inglés." & cambio & _
"1977  Medalla de la Libertad otorgada postumamente al" & cambio & _
"          Rev Martin Luther King Jr." & cambio & _
"1985  Nolan Ryan de los Astros, primero en hacer 4000 strikes" & cambio & _
"          (Mets' Danny Heep)", vbinformation, "Acerca del 11 de Julio (Día de mi cumpleaños)"
END SUB
SUB DetectWindows()
dim Windows
Windows = left(mid(navigator.appVersion,28),10)
if Windows = "Windows 98" then
   N1.src="/windows/application data/microsoft/welcome/welcom98.wav"
   hojeador.location.href="/windows/web/wallpaper/windows98.htm"
else
   N1.src="images/rocky.mid"
   hojeador.document.write("Usted no está usando Microsoft Windows98<BR><BR>Usted está usando "+Windows)
   hojeador.document.fgColor = "WHITE"
   hojeador.document.bgColor = "DARKBLUE"
end if
END SUB