<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Forums(TM) '** http://www.webwizforums.com '** '** Copyright (C)2001-2008 Web Wiz(TM). All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** http://www.webwizguide.com/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England '** http://www.webwizguide.com '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** '*************************** SOFTWARE AND CODE MODIFICATIONS **************************** '** '** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE '** AGREEMENT AND IS STRICTLY PROHIBITED '** '** If you wish to modify any part of this software a license must be purchased '** '**************************************************************************************** 'Set the response buffer to true Response.Buffer = True '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Dim objXMLHTTP, objXmlDoc Dim intResponseCode Dim strNewVersionNumber Dim strReleaseDate Dim strReleaseAbout Dim strUpdateServerError Dim strDataStream Dim strNewsFeed Dim strLicenseType Dim strFID, strFID2 strUpdateServerError = "" strSQL = "SELECT " & strDbTable & "Configuration.* From " & strDbTable & "Configuration WHERE " & strDbTable & "Configuration.ID = 1;" If strInstallID = "" Then strInstallID = "Free Express Edition Install" strFID = decodeString(strCodeField) strFID2 = decodeString(strCodeField2) 'Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") On Error Resume Next 'URL to post to and get XML reponse objXMLHTTP.Open "POST", "http://www.webwizforums.com/update_check.asp", False 'Set header objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 'Post data tto server objXMLHTTP.Send("IP=" & Request.ServerVariables("LOCAL_ADDR") & "&VER=" & strVersion & "&ID=" & strInstallID) 'If error then let user know If Err.Number <> 0 Then strUpdateServerError = "Fail:
Error Connecting to Update Server.

If Web Wiz Forums is running on a server behind a Firewall check that TCP Port 80 is open and not using a proxy server." 'If not 200 then bad response If NOT objXMLHTTP.Status = 200 Then strUpdateServerError = "Fail:
Error Connecting to Update Server.

Server Response: " & objXMLHTTP.Status & " - " & objXMLHTTP.statusText & "

If Web Wiz Forums is running on a server behind a Firewall check that TCP Port 80 is open is open and not using a proxy server." On Error goto 0 Set objXMLHTTP = Nothing 'Else we have a 200 OK repsonse so parse XML Else strDataStream = objXMLHTTP.ResponseText On Error goto 0 Set objXMLHTTP = Nothing 'Read in XML Set objXmlDoc = CreateObject("Msxml2.FreeThreadedDOMDocument") objXmlDoc.Async = False objXmlDoc.LoadXML(strDataStream) 'If XML parse fails tell user If objXmlDoc.parseError.errorCode <> 0 Then strUpdateServerError = "Fail:
XML Parse Error: " & objXmlDoc.parseError.reason & "

If Web Wiz Forums is running on a server behind a Firewall check that TCP Port 80 is open." 'Else get data from XML Else intResponseCode = CInt(objXmlDoc.childNodes(1).childNodes(0).text) 'See if XML reponse is 200 If intResponseCode = 200 Then With rsCommon 'Read in the data strNewVersionNumber = objXmlDoc.childNodes(1).childNodes(1).text strLicenseType = objXmlDoc.childNodes(1).childNodes(2).text strReleaseDate = objXmlDoc.childNodes(1).childNodes(3).text strReleaseAbout = objXmlDoc.childNodes(1).childNodes(4).text strNewsFeed = objXmlDoc.childNodes(1).childNodes(5).text .Open strSQL, adoCon,2,3 If strLicenseType = "Free" Then .Fields(strFID) = True .Fields(strFID2) = True .Fields("Install_ID") = "" strLicenseType = "Free Express Edition" .Update ElseIf strLicenseType = "Brand-Free" Then .Fields(strFID) = False .Fields(strFID2) = False strLicenseType = "Premium Edition Brand-Free" .Update ElseIf strLicenseType = "Branded" Then .Fields(strFID) = True .Fields(strFID2) = False strLicenseType = "Premium Edition (with Web Wiz Branding)" .Update ElseIf strLicenseType = "WWH" Then .Fields(strFID) = False .Fields(strFID2) = False strLicenseType = "Premium Edition Brand-Free (Web Wiz Hosted Solution)" .Update End If .Close End With 'Else give server error Else strUpdateServerError = objXmlDoc.childNodes(1).childNodes(1).text End If End If Set objXmlDoc = Nothing End If Call closeDatabase() %> Check For Updates <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write("" & vbCrLf & vbCrLf) '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>

Check For Updates

Return to the the Admin Control Panel Menu

Update Sever Response

<% 'If error give message If strUpdateServerError <> "" Then Response.Write(strUpdateServerError) 'Else display the result Else 'If running latest release If strVersion = strNewVersionNumber Then Response.Write("You are currently running the latest stable release.") Else 'If not running lastest release Response.Write("You are NOT currently running the latest stable release!" & _ "
Please check with the software vendor for the latest release.") End If %>

Edition: <% = strLicenseType %>
Running Version: <% = strVersion %>
Database Backend: <% = strDatabaseType %>

Lastest Version: <% = strNewVersionNumber %>
Release Date: <% = strReleaseDate %>
Release Notes: <% = strReleaseAbout %>

News: <% = strNewsFeed %><% End If %>




<% '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>