Ja, då.
Exempel:
<%
set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile(Server.MapPath("filen.txt"))
strFile = objFile.Readall
objFile.Close
set objFile = Nothing
set objFSO = Nothing
varLines = Split(strFile, vbCrLf)
Randomize
strRandomLine = varLines(Int((UBound(varLines) - 1) * Rnd))
Response.Write strRandomLine
%>
filen.txt har jag lagt i samma mapp som asp-filen som slumpar. Möjligen går det att göra på ett smidigare sätt, men detta fungerar.
Mvh,