<%
Dim Link, Desc, Query
Link = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
Query = Request.ServerVariables("QUERY_STRING")
If Not bPrint Then
If Query="" Then
Link = Link & "?"
Else
Link = Link & "?" & Query & "&"
End If
Link = Link & "printfriendly=1"
Desc = "Click here for a printer-friendly version of this page"
Else
Query = Replace(Query, "&printfriendly=1", "", 1) // at end of qs
Query = Replace(Query, "printfriendly=1&", "", 1)
Query = Replace(Query, "printfriendly=1", "", 1)
If Query<>"" Then Link = Link & "?" & Query
Desc = "Click here to return to the full version of this page"
End If
%>
<%=Desc%>
<% If bPrint Then %>
For best printouts select A4 as paper size in Page Setup.
To print background and table colours and textures go to Internet
Explorer Menu:
Tools->Internet Options->Advanced and select: "Print Background Colours
and Images".
<% End If %>
|