Display HTML from a Zip

This ASP script shows how to open a Zip and display the HTML file stored within it.

<%
' Display zipped HTML
set zip = Server.CreateObject("Chilkat_9_5_0.Zip")

' Any value passed to UnlockComponent begins the 30-day trial.
unlocked = zip.UnlockComponent("30-day trial")
if unlocked then

	' Open the Zip.
	' Be sure your ASP code has permission to access the directory.
	' (returns 0 for failure, 1 for success)
	success = zip.OpenZip("c:/temp/HelloWorld.zip")
    if (success = 0) then
    
    	Response.Write zip.LastErrorHtml
    	
    else
    
		' Retrieve the HTML from the 1st file in the Zip
		' Entry = Nothing if this fails.
		set entry = zip.GetEntryByIndex(0)
		if (entry is Nothing) then
			Response.Write zip.LastErrorHtml
		else
			' Display the HTML contained within the Zip archive
			Response.Write entry.InflateToString2()
		end if
		
		zip.CloseZip
		
	end if
	
end if

%>