Jump over the site's Advertisements.

<% sub addQuote(new_quote, byref quote_array) u = ubound(quote_array) if quote_array(ubound(quote_array)) <> "" then u = u + 1 redim preserve quote_array(u) quote_array(u) = new_quote end sub dim quote_array() redim quote_array(0) quote_array(0) = "" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile(Server.MapPath("/files/scripts/quotes.txt")) Do While Not objTextFile.AtEndOfStream addQuote objTextFile.ReadLine, quote_array Loop objTextFile.Close Set objTextFile = Nothing Set objFSO = Nothing Randomize() int_rand = int((ubound(quote_array) + 1) * Rnd) response.write (quote_array(int_rand)) %>

Find Your Major

Contact Us

Career Center

Enrollment Management & Academic Services

Student Counseling Services

University College