home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 March
/
VPR9703A.ISO
/
MS_DEV
/
VID
/
SERVER
/
ASF
/
DATA.Z
/
script3.asp
< prev
next >
Wrap
Text File
|
1996-10-22
|
986b
|
34 lines
<CENTER>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub CommandButton1_Click()
Window.location.href = "atumd2.asp#UsingtheTextStreamComponent"
end sub
-->
</SCRIPT>
<OBJECT ID="CommandButton1" WIDTH=96 HEIGHT=32
CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57">
<PARAM NAME="Caption" VALUE="Show Me">
<PARAM NAME="Size" VALUE="2540;847">
<PARAM NAME="FontCharSet" VALUE="0">
<PARAM NAME="FontPitchAndFamily" VALUE="2">
<PARAM NAME="ParagraphAlign" VALUE="3">
</OBJECT>
<BR>
<%
On Error Resume Next
Set InStream = Server.CreateObject("MS.TextStream")
Randomize
TipNumber = Int(Rnd*10)
Instream.OpenTextFile Server.MapPath ("/advworks") + "\tips.txt", 1, FALSE, FALSE, FALSE
InStream.SkipLines(TipNumber)
TipOfTheDay = Instream.ReadLine
Instream.CloseTextFile
%>
<BR><FONT FACE="ARIAL NARROW" SIZE=4 COLOR="#800000"><STRONG>
<%= TipOfTheDay %></STRONG></FONT>
</CENTER>