<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP Zip</title>
</head>
<body>
<%
Dim objZip
Set objZip = Server.CreateObject("Pnvzip.ZipFunctions")
If IsObject(objZip) Then
Response.write("Pnvzip.ZipFunctions Connected")
Else
Response.write("Can not Connect to Pnvzip.ZipFunctions")
End IF
%>
</body>
</html>