<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 2.0">
<title>Test page</title>
</head>
<body bgcolor="#C0C0C0">
<script language="VBScript"><!--
Sub window_onload()
HotImage1.Image = "mind1.gif"
HotImage1.HotImage = "mind2.gif"
HotImage2.Image = "msj1.gif"
HotImage2.HotImage = "msj2.gif"
HotImage1.Description = "Microsoft Interactive Developer"
HotImage2.Description = "Microsoft Systems Journal"
Check1.Value = 1
end sub
--></script><script language="VBScript"
for="HotImage1" event="onclick"><!--
MsgBox "Congratulations for your choice!"+Chr(13)+Chr(10)+"Your preference goes to " + HotImage1.Description, 0, "Choose Magazine"
--></script><script
language="VBScript" for="HotImage2" event="onclick"><!--
MsgBox "Congratulations for your choice!"+Chr(13)+Chr(10)+"Your preference goes to " + HotImage2.Description, 0, "Choose Magazine"
--></script>
<p><font size="4" face="Verdana">This is a HTML page generated by<strong>
Scriptlet Wizard</strong>. </font></p>
<hr>
<p><font size="4" face="Verdana">Give your preference to the
finest programming magazine:</font> </p>
<div align="center"><center>
<table border="0">
<tr>
<td><p align="center"><object id="HotImage1"
data="HotImage.htm" align="absbottom" border="0"
width="300" height="100" type="text/x-scriptlet"></object>
</p>
</td>
<td><p align="center"><object id="HotImage2"
data="HotImage.htm" align="absbottom" border="0"
width="300" height="100" type="text/x-scriptlet"></object>
</p>
</td>
</tr>
</table>
</center></div>
<p><font size="4" face="Verdana">Just click on the logo and go! </font><font
size="4"><script language="VBScript"><!--
origColor1 = ""
origColor2 = ""
Sub Button2_Click()
if HotImage1.BackgroundColor <> "gainsboro" then
origColor1 = HotImage1.BackgroundColor
HotImage1.BackgroundColor = "gainsboro"
else
HotImage1.BackgroundColor = origColor1
end if
if HotImage2.BackgroundColor <> "gainsboro" then
origColor2 = HotImage2.BackgroundColor
HotImage2.BackgroundColor = "gainsboro"
else
HotImage2.BackgroundColor = origColor2
end if
end sub
--></script> <object
id="Button2" name="Button2"
classid="CLSID:D7053240-CE69-11CD-A777-00DD01143C57"
align="right" border="0" hspace="0" width="96" height="32"><param
name="Caption" value="Change Bkgnd"><param name="Size"
value="2540;847"><param name="FontCharSet" value="0"><param
name="FontPitchAndFamily" value="2"><param name="ParagraphAlign"
value="3"><param name="FontWeight" value="0"></object></font><font
size="4" face="Verdana"> </font><font size="4"><script
language="VBScript"><!--
bOrig = 1
Sub Button1_Click()
if bOrig = 1 then
HotImage1.Image = "msj1.gif"
HotImage1.HotImage = "msj2.gif"
HotImage1.Description = "Microsoft Systems Journal"
HotImage2.Image = "mind1.gif"
HotImage2.HotImage = "mind2.gif"
HotImage2.Description = "Microsoft Interactive Developer"
bOrig = 0
else
HotImage1.Image = "mind1.gif"
HotImage1.HotImage = "mind2.gif"
HotImage1.Description = "Microsoft Interactive Developer"
HotImage2.Image = "msj1.gif"
HotImage2.HotImage = "msj2.gif"
HotImage2.Description = "Microsoft Systems Journal"
bOrig = 1
end if
end sub
--></script> <object id="Button1" name="Button1"
classid="CLSID:D7053240-CE69-11CD-A777-00DD01143C57"
align="right" border="0" hspace="0" width="96" height="32"><param
name="Caption" value="Invert"><param name="Size" value="2540;847"><param
name="FontCharSet" value="0"><param name="FontPitchAndFamily"
value="2"><param name="ParagraphAlign" value="3"><param
name="FontWeight" value="0"></object> </font></p>
<p><font size="4"><script language="VBScript">
<!--
Sub Check1_Change()
HotImage1.Enabled = Check1.Value
HotImage2.Enabled = Check1.Value
end sub
-->
</script> <object
id="Check1" name="Check1"
classid="CLSID:8BD21D40-EC42-11CE-9E0D-00AA006002F3"
align="baseline" border="0" width="366" height="24"><param
name="BackColor" value="2147483663"><param name="ForeColor"
value="2147483666"><param name="DisplayStyle" value="4"><param
name="Size" value="7435;635"><param name="Value" value="0"><param
name="Caption"
value="Enable the HotImage capability for both objects"><param
name="FontName" value="Tahoma"><param name="FontEffects"
value="1073741825"><param name="FontHeight" value="200"><param
name="FontCharSet" value="0"><param name="FontPitchAndFamily"
value="2"><param name="FontWeight" value="700"></object> </font></p>
<p> </p>
<p> </p>
<p> </p>
</body>
</html>
Tidak ada komentar:
Posting Komentar