displaying text files without using include file

<i><b>Originally posted by : cem tekin (tekin65@yahoo.com)</b></i><br />hi, i'm quite new to asp. i wonder if there's anybody who do have an answer to my problem.<br /><br />i'm trying to insert one of many text files into a page based on the choice of the visitor. the names of the text files are stored in a database and depending on the choice the file name is callaed to the page, but how to open it? can't do it with <include file> because html operates before asp. is there a way to open a text file using vb script or java script?<br />

<i><b>Originally posted by : Richard (richard@trinet.co.uk)</b></i><br />The following function will return the contents of a file on your web-server. Pass it the name of the file relative to the current document. For example, if you documents are in a folder called 'Documents', call:<br /> Response.Write _<br /> GetHTMLFile("Documents/test.html")<br />to output the contents of an HTML file called test. If the documents contain plain text, you may want to use:<br /> Response.Write Server.HTMLEncode _<br /> (GetHTMLFile("Documents/test.txt"))<br />to ensure it displays properly.<br /><br /><br />Function GetHTMLFile(strFileName)<br />Dim fso, file, FName<br />On Error Resume Next<br /> FName = Server.MapPath(strFileName)<br /> Set fso = Server.CreateObject _<br /> ("Scripting.FileSystemObject")<br /><br /> If Not(fso Is Nothing) Then<br /> If fso.FileExists(FName) Then<br /> Set file=fso.OpenTextFile(FName,1)<br /> GetHTMLFile = Trim(file.readAll())<br /> Else<br /> GetHTMLFile = _<br /> "<H3>File not found - " & _<br /> FName & "</H3>" & vbCrLf<br /> End If<br /> Set fso = Nothing<br /> Else<br /> GetHTMLFile="<H3>Unable to find file - " _<br /> & err.description & "</H3>"<br /> End If<br />End Function<br />