%
' Licensing Postback Routine
' Executed once per application start up
If Application("PostBackCompleted") <> "True" Then
Dim App_Id, PageURL, IPAddress, CurrentTime, PostBackURL, PostBackCompleted, SERVER_SOFTWARE
App_Id = "ASPProtect Full v7.x"
PageURL = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
CurrentTime = NOW
SERVER_SOFTWARE = Request.ServerVariables("SERVER_SOFTWARE")
PostBackURL = "http://www.cjwsoft.com/licensing_postback/default.asp?App_Id=" & Server.URLEncode(App_Id) & "&PageURL=" & Server.URLEncode(PageURL) & "&SERVER_SOFTWARE=" & Server.URLEncode(SERVER_SOFTWARE) & "&CurrentTime=" & Server.URLEncode(CurrentTime)
PostBackCompleted = "False"
Err.Clear
On Error Resume Next
Dim ObjHttpMSXML, ObjHttpMSXMLStr
Set ObjHttpMSXML = Server.CreateObject("Msxml2.ServerXMLHTTP")
If Err.Number = 0 Then
ObjHttpMSXML.open "POST", PostBackURL, "False"
ObjHttpMSXML.Send ObjHttpMSXMLStr
'Response.Write "MSXML Installed
"
Response.Write ObjHttpMSXML.responseText
PostBackCompleted = "True"
Else
PostBackCompleted = "False"
End If
Set ObjHttpMSXML = nothing
If PostBackCompleted = "False" Then
Err.Clear
On Error Resume Next
Dim ObjHttpASPHTTP
Set ObjHttpASPHTTP = Server.CreateObject("AspHTTP.Conn")
If Err.Number = 0 Then
ObjHttpASPHTTP.Url = PostBackURL
Response.Write "ASPHTTP Installed
"
'Response.Write ObjHttpASPHTTP.GetURL
PostBackCompleted = "True"
Else
PostBackCompleted = "False"
End If
Set ObjHttpASPHTTP = nothing
End If
If PostBackCompleted = "False" Then
Err.Clear
On Error Resume Next
Dim ObjHttpASPTEAR, ObjHttpASPTEARStr
Set ObjHttpASPTEAR = CreateObject("SOFTWING.ASPtear")
If Err.Number = 0 Then
HttpASPTearStr = ObjHttpASPTEAR.Retrieve(PostBackURL, 1, ObjHttpASPTEARStr, "", "")
Response.Write "ASPTEAR Installed
"
'Response.Write HttpASPTearStr
PostBackCompleted = "True"
Else
PostBackCompleted = "False"
End If
Set ObjHttpASPTEAR = nothing
End If
Application.Lock
Application("PostBackCompleted") = "True"
Application.Unlock
End If
%>