%@ LANGUAGE="VBSCRIPT" %> <% Const strRanFile = "slump.txt" Dim objFso : Set objFso = Server.CreateObject("Scripting.FileSystemObject") Dim objRanFile : Set objRanFile = objFso.OpenTextFile(Server.MapPath("/")&"\"&strRanFile, ForReading) Dim i : i = 0 Dim strBgsArray() Dim strImg Do Until(objRanFile.AtEndOfStream) Redim Preserve strBgsArray(i) strBgsArray(i) = objRanFile.ReadLine i = i + 1 Loop Randomize() strImg = strBgsArray( cLng(uBound(strBgsArray) * Rnd) ) objRanFile.Close %>
Fredrik had an idea about making a package design for a plastic
model kit. The model itself did not really exist, he just wanted
to make a box. The box design should resemble the look of one
of those classic model kits he used to build when he was into
that stuff. Viktor told him it had to be good old Airfix or Matchbox
because they were the only ones with a x in their names. Martin
added that the model inside the box should be made out of a fluffy
material.
Magnus and Lars did not comment because they were not into
that model stuff, but later on when Fredrik asked them they just
said they thought it was OK as long as there were lots of x's
on the box.
er... what?
© 1996-1998 XNET Web Community. All rights reserved.