<%
Dim page, text, filesys
page = request.querystring("page")
Sub ReplaceTxt(what,door)
Dim regularExpressionObject
Set RegularExpressionObject = New RegExp
With RegularExpressionObject
.Pattern = what
.IgnoreCase = True
.Global = True
End With
text = RegularExpressionObject.Replace(text,door)
Set RegularExpressionObject = nothing
End Sub
'opening the page
Set FileSys = server.createobject("scripting.FileSystemObject")
text = filesys.openTextfile(server.mappath(page)).readall
call replacetxt("",""," -->")
'writing the text-only version
response.write "Printer Friendly Version of "&page&"
"
response.write text
%>