if platform = "WinNT" or platform = "Win95" or platform = "Win32" and browser = "IE" then
if (fullver = "3.0") or (fullver ="3.0A") or (fullver ="3.0A3") or (fullver = "3.0B") or (fullver = "3.0B3") then
ie30 = true 'messagebox1
end if
if fullver = "3.01" then
ie31 = true 'messagebox2
end if
if fullver = "3.02" then
if instr(ua, "Update a") then
needUpdate = false
loadActivex = true
else
needUpdate = true 'messagebox3
end if
end if
if majorver = "4" then
loadActivex = true
end if
end if
If lang = "en" then
english = true
end if
%>
<HTML>
<HEAD>
<SCRIPT LANGUAGE="VBScript">
<!--
option explicit
Sub window_onLoad()
<% if ie30 and english then %>
messagebox
<% end if %>
<% if ie31 and english then %>
messagebox2
<% end if %>
<% if needUpdate and english then %>
messagebox3
<% end if %>
end sub
<% if ie30 and english then %>
Sub messagebox()
dim intButton
intButton = msgbox ("Microsoft recommends that you download the version of Internet Explorer that contains valuable new security updates. Do you want to do this now?", 4 + 64, "Get the Latest Version of Internet Explorer")
intButton = msgbox ("Microsoft recommends that you download the Internet Explorer 3.01 to 3.02 Upgrade package, which contains valuable new security updates. This upgrade package will allow you to update your current version of Internet Explorer to 3.02 without having to do a full download. Do you want to do this now?", 4 + 64, "Upgrade to the Latest Version of Internet Explorer")
intButton = msgbox ("Get Authenticode 2.0. This update includes valuable new features and renews key Authenticode certificates that help you safely download software from the Web. The update should take less than 5 minutes to download over a 28.8 Kbps modem. Do you want to visit our Authenticode Update page?", 4 + 64, "Download the Authenticode 2.0 Update Now!")