<%@ Page Language="VB" %> <%@ Import Namespace="System.IO" %> <%@ Import Namespace="System.Net" %> <%@ Import Namespace="System.Xml" %> <%@ Import Namespace="System.Collections.Generic" %> <% If run_examples = True Then Dim exampletext As String = "We hold these truths to be self-evident, that all men are created equal, that they are endowed by their " & _ "Creator with certain unalienable rights, that among these are Life, Liberty, and the pursuit of Happiness. That to " & _ "secure these rights, Governments are instituted among Men, deriving their just powers from the consent of the " & _ "governed. That whenever any Form of Government becomes destructive of these ends, it is the Right of the People to " & _ "alter or to abolish it, and to institute new Government, laying its foundation on such principles and organizing " & _ "its powers in such form, as to them shall seem most likely to effect their Safety and Happiness. Prudence, indeed, " & _ "will dictate that Governments long established should not be changed for light and transient causes; and " & _ "accordingly all experience hath shown, that mankind are more disposed to suffer, while evils are sufferable, than " & _ "to right themselves by abolishing the forms to which they are accustomed. But when a long train of abuses and " & _ "usurpations, pursuing invariably the same Object evinces a design to reduce them under absolute Despotism, it is " & _ "their right, it is their duty, to throw off such Government, and to provide new Guards for their future security. " & _ "Such has been the patient sufferance of these Colonies; and such is now the necessity which constrains them to " & _ "alter their former Systems of Government. The history of the present King of Great Britain is a history of " & _ "repeated injuries and usurpations, all having in direct object the establishment of an absolute Tyranny over these " & _ "States. To prove this, let Facts be submitted to a candid world. He has refused his Assent to Laws, the most " & _ "wholesome and necessary for the public good. " & _ "We, therefore, the Representatives of the United States of America, in General Congress, Assembled, " & _ "appealing to the Supreme Judge of the world for the rectitude of our intentions, do, in the Name, and by Authority " & _ "of the good People of these Colonies, solemnly publish and declare, That these United Colonies are, and of Right " & _ "ought to be free and independent states; that they are Absolved from all Allegiance to the British Crown, and that " & _ "all political connection between them and the State of Great Britain, is and ought to be totally dissolved; and " & _ "that as Free and Independent States, they have full Power to levy War, conclude Peace, contract Alliances, " & _ "establish Commerce, and to do all other Acts and Things which Independent States may of right do. And for the " & _ "support of this Declaration, with a firm reliance on the Protection of Divine Providence, we mutually pledge to " & _ "each other our Lives, our Fortunes, and our sacred Honor." %> <%= wrap_title( "Response for a simple URL Internet search" ) %> <%= wrap_node( copyscape_api_url_search_internet("http://www.copyscape.com/example.html",0) ) %> <%= wrap_title( "Response for a URL Internet search with full comparisons for the first two results" ) %> <%= wrap_node( copyscape_api_url_search_internet("http://www.copyscape.com/example.html", 2) ) %> <%= wrap_title( "Response for a simple text Internet search" ) %> <%= wrap_node( copyscape_api_text_search_internet(exampletext, "ISO-8859-1", 0) ) %> <%= wrap_title( "Response for a text Internet search with full comparisons for the first two results" ) %> <%= wrap_node( copyscape_api_text_search_internet(exampletext, "ISO-8859-1", 2) ) %> <%= wrap_title( "Response for a check balance request" ) %> <%= wrap_node( copyscape_api_check_balance() ) %> <%= wrap_title( "Response for a URL add to private index request" ) %> <%=wrap_node(copyscape_api_url_add_to_private("http://www.copyscape.com/example.html", Nothing))%> <%= wrap_title( "Response for a text add to private index request" ) %> <% Dim response As System.Xml.XmlElement = copyscape_api_text_add_to_private(exampletext, "ISO-8859-1", "Extract from Declaration of Independence", "EXAMPLE_1234")%> <%= wrap_node( response ) %> <% Dim handle As String = "" %> <% If response IsNot Nothing And response.GetElementsByTagName("handle").Count > 0 And _ response.GetElementsByTagName("handle").Item(0) IsNot Nothing Then handle = response.GetElementsByTagName("handle").Item(0).InnerText End If %> <%= wrap_title( "Response for a URL private index search" ) %> <%= wrap_node( copyscape_api_url_search_private("http://www.copyscape.com/example.html",0) ) %> <%= wrap_title( "Response for a delete from private index request" ) %> <%= wrap_node( copyscape_api_delete_from_private(handle) ) %> <%= wrap_title( "Response for a text search of both Internet and private index with full comparisons for the first result (of each type)" ) %> <%= wrap_node( copyscape_api_text_search_internet_and_private(exampletext, "ISO-8859-1", 1) ) %> <% End If %>