001 <% @LANGUAGE=VBSCRIPT %>
002 <% Option Explicit %>
003
004 <HTML>
005 <HEAD>
006 <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
007 <META NAME="generator" CONTENT="Allaire HomeSite 4.5">
008 <TITLE>License Check with ASP</TITLE>
009 </HEAD>
010 <BODY BGCOLOR="#FFFFFF">
011 <%
012 On Error Resume Next
013 Dim xObj, strLicensee
014
015 Set xObj = Server.CreateObject("SOFTWING.ASPtear")
016 If Err.Number <> 0 Then
017 Response.Write "AspTear is not installed correctly on your machine. "
018 Response.Write "CreateObject returned the following error: "
019 Response.Write "<strong>" & Err.Number & ", " & Err.Description & "</strong>"
020 Else
021 If xObj.IsLicensed Then
022 strLicensee = xObj.Licensee
023 Response.Write "This copy of AspTear is licensed to: " & strLicensee
024 Else
025 Response.Write "Your copy of AspTear is not licensed (eval copy/incorrect license key)"
026 End If
027 End If
028 %>
029 </BODY>
030 </HTML>