<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' Title: printer_friendly.asp
' Description: Any 404 errors are directed here via IIS settings
' Original: Jacques Delsemmes
' Review: Andre Daniels 2008-05-07
%>
Currents: Print Friendly Version
<%
'Creates a file system object
set fileobj = Server.CreateObject("Scripting.FileSystemObject")
'Opens the file, whose name is passed to it, for reading
Dim filename
filename=request.QueryString("url")
if CheckFileName(CStr(filename)) then
set openfile = fileobj.OpenTextFile(server.MapPath(fileName))
else
DisplayInputError
End if
temp=trim(openfile.ReadAll)
'Displays the content in Print format in popup window
if(Len(temp)>0) then
pos_st=instr(temp,"BEGIN STORY") 'Starting index position
pos_ed=instr(temp,"END STORY")
Response.write(" "&mid(temp,pos_st - 5,(pos_ed - (pos_st - 5)) + 15 ))
'In the above print statement (pos_ed - (pos_st - 5)) + 15 ) is length of the story
end if
'Closes opened file
openfile.close()
%>
