my intranet index page does a similar thing. sure you can modify it.
think i got the basics for this somewhere on the net. don't recall precisely.
' Make a file called "Quotes.txt"
' Quotes.txt format:
' quote text1|author1
' quote text2|author2
' Never miss a good chance to shut up.|Will Rogers
' The next line initializes all the variables
Dim MyPath, FConn, File, TmpStr, CNT
Dim QuoteArr, QuoteText, QuoteAuthor, LineArr
' This line should be your path to the Quotes.txt file
MyPath = "quotes.txt"
' These lines open the text file for reading
Set FConn = Server.CreateObject("Scripting.FileSystemObject")
Set File = FConn.OpenTextFile(Server.MapPath(MyPath),1)
CNT = 0
' This reads in all the lines of the file
Do While Not File.AtEndOfStream
TmpStr = File.ReadLine
ReDim Preserve LineArr(CNT)
LineArr(CNT) = TmpStr
CNT = CNT + 1
' Close the file
Set File = Nothing
Set FConn = Nothing
' This finds a random quote from the array
QuoteArr = Split(LineArr(Int(RND() * Ubound(LineArr))),"|")
QuoteText = QuoteArr(0)
QuoteAuthor = QuoteArr(1)
' The output will look like "quote text here - author"
Response.Write("<font face='verdana' size='-1' color='green'><i>""" & QuoteArr(0) & """</i> - " & QuoteArr(1) & "</font>")