Convert HTML to plain-text
Converts HTML to plain-text.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set h2t = Server.CreateObject("Chilkat_9_5_0.HtmlToText")
set http = Server.CreateObject("Chilkat_9_5_0.Http")
' Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
Response.Write http.LastErrorText & "<br>"
End If
' HTML-to-Text is a separate product from HTTP.
' The entire suite of Chilkat components may be licensed
' as a "Bundle".
success = h2t.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
Response.Write h2t.LastErrorText & "<br>"
End If
' Send the HTTP GET and return the content in a string.
html = http.QuickGetStr("http://www.bonairefishing.com/")
' Convert it to plain text:
plainText = h2t.ToText(html)
Response.Write Server.HTMLEncode( plainText) & "<br>"
%>
</body>
</html>
|
