%@LANGUAGE=VBScript%> <%Option Explicit%> <% Response.Buffer = True Response.CacheControl = "Private" Response.Expires = -1 'We don't want this to be cached anywhere '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' print.asp - Make a link to this page from your page. ' Assumes that your page has printable content within two comments ' content_starts_here and content_ends_here. Gets the page, strips of the ' the content, gets the BaseURL and prints the stripped out page ' Needs MSXML 3.0 or above installed ' ' S Babu. vsbabu-removethis@vsbabu.org. 05/23/2001 ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' If Request.ServerVariables("HTTP_REFERER") <> "" Then ' if this didn't come from anywhere, ignore. Dim strContent Dim xml_http Set xml_http = Server.CreateObject("Microsoft.XMLHTTP") xml_http.Open "GET", Request.ServerVariables("HTTP_REFERER"), False xml_http.Send strContent = xml_http.responseText Set xml_http = Nothing Dim regex Dim reg_matches Dim strtitle Dim strbody 'On Error Resume Next ' Get the body Set regex = New RegExp regex.Pattern = "(.|\n)*" regex.IgnoreCase = True regex.Global = True strbody = strContent Set reg_matches = regex.Execute(strbody) If reg_matches.Count > 0 Then strbody = reg_matches.Item(0).Value End If Set regex = Nothing Set reg_matches = Nothing ' Get the title Set regex = New RegExp regex.Pattern = "