open text file

<i><b>Originally posted by : Wayne (enyaw24@yahoo.com)</b></i><br />I read a db and display the file names.<br />How do I have the filename hyperlinked to the text file and have the file opened for view.<br /><br />IE..if file name is MyCode.txt<br />How do I hyperlink and open the file in a new window or notepad?<br /><br />Thanks,<br />Wayne<br /><br />db has 3 fields..id, filename,filedisplay<br /><br />

<i><b>Originally posted by : antony (antovelan@usa.net)</b></i><br />sample code to display text content from db file<br /><br /><br /><%<br />dim con,rs<br />set con=server.CreateObject("adodb.connection")<br />con.Open "dsn=test1"<br />if err.number <> 0 then<br />Response.Write err.description<br />end if<br />set rs=server.CreateObject("ADODB.RECORDSET")<br />rs.Open "select * from file",con<br />if not rs.EOF then<br />'set fs=server.CreateObject("scripting.filesystemobject")<br />'set a=fs.OpenTextFile(rs(1),1)<br />'do while a.atendofstream <> true<br />' b=a.readline<br />' Response.Write b + "<br>"<br />'loop %><br /><br /><a href="javascript:void(0)" onClick="javascript:filedisplay('<%=rs(1)%>')">click here to open the file </a><br /><script language=javascript><br />function filedisplay(filepath)<br />{<br />a=window.open(filepath)<br />}<br /></script><br /><% end if<br /><br />rs.Close<br />con.Close<br /><br />set rs=nothing<br />set con=nothing<br /><br /><br />%><br />