Viewing .txt Files using VBScript

Viewing .txt Files using  VBScript

<%@ Language=VBScript %>





<%
dim orderid,order
dim fs,wfile ,filecontent,FileToRead
dim strSecurefileName,filename,counter
strSecurefileName = "D:\SSL\tomdickins"
orderid=Request.QueryString("orderid")
order="order_" & orderid&".txt"
filename=strSecurefileName&"\"&order
 set fs=server.CreateObject("Scripting.FileSystemObject")
 if fs.FileExists(filename) then
   Set wfile = fs.OpenTextFile(filename,1)
   counter=0
   do while not wfile.AtEndOfStream
   counter=counter+1
   singleline=wfile.readline
   response.write ("" &  singleline & "
")
 loop
  wfile.close
  Set wfile=nothing
  Set fs=nothing
  else
  Response.Write "File Does Not Exists"
 end if
%>