<% nof_rootDir="../" nof_scriptDir="scripts" nof_debug=true nof_sitePath = GetSitePath(nof_rootDir) function GetSitePath(RootDir) Dim relPath relPath = split(RootDir, "/") forwardSteps = UBound(relPath) - 1 if forwardSteps = 0 and relPath(0) = "." then forwardSteps = -1 GetSitePath = Server.MapPath(".") for idx=0 to forwardSteps GetSitePath = Left(GetSitePath, inStrRev(GetSitePath, "\") - 1) next GetSitePath = GetSitePath & "\" end function %> <% function FileExists(ByVal file, ByVal sitePath, ByVal scriptDir) dim fso, filePath on error resume next Set fso = Server.CreateObject("Scripting.FileSystemObject") filePath = sitePath & scriptDir & "\" & file FileExists = fso.FileExists(filePath) set fso = nothing end function %> <% sub IncludeLib(ByVal lib, ByVal sitePath, ByVal scriptDir) dim fso, f, buf, filePath Set fso = Server.CreateObject("Scripting.FileSystemObject") filePath = sitePath & scriptDir & "\" & lib if fso.FileExists(filePath) then set f = fso.OpenTextFile(filePath, 1, false, -2) buf = f.ReadAll f.close() set f = nothing Dim regEx Set regEx = New RegExp regEx.Pattern = "^\s*<" & chr(37) & "\s*" regEx.IgnoreCase = True regEx.Global = True buf = regEx.Replace(buf,"") regEx.Pattern = "\s*" & chr(37) & ">\s*$" regEx.IgnoreCase = True regEx.Global = True buf = regEx.Replace(buf, "") set regEx = nothing ExecuteGlobal buf else if nof_debug then Response.Write "Could not include the file `" & filePath & "`." else Response.Write "

An error occured. Please contact the site administrator.

" Response.Write "

Error code: 103

" end if Response.End end if set fso = nothing end sub %> <% call IncludeLib("nof_util.asp", nof_sitePath, nof_scriptDir) %> Register
GetCoolLogo3Csolo400

HVAC Industry support for contractors, consumers and utilities worldwide..

TM

Toll Free: 1-877-583-3272

Contact info

Get-Cool Registration

<% if FileExists("rememberValues.js", nof_sitePath, nof_scriptDir) then %> <% rc = nof_captcha_randomChars("ABCDEFGHIJKLMNOPQRSTUVWXYZ", CInt(5)) Session("nof_1256413736359_CaptchSettings") = rc & "|0|ffffff|000000|10|10|5|5|charsmap/zebra" %>
Company Name<% if Len(request("1256413736359_CompanyNameErrImg")) > 0 then response.write "" end if %>
TrueTech Invoice No<% if Len(request("1256413736359_TrueTechInvErrImg")) > 0 then response.write "" end if %>
Country<% if Len(request("1256413736359_countryErrImg")) > 0 then response.write "" end if %>
Phone<% if Len(request("1256413736359_phoneErrImg")) > 0 then response.write "" end if %>
E-mail<% if Len(request("1256413736359_emailErrImg")) > 0 then response.write "" end if %>
Comment<% if Len(request("1256413736359_commentErrImg")) > 0 then response.write "" end if %>
Enter the shown code:<% if Len(request("1256413736359_captchaErrImg")) > 0 then response.write "" end if %>
<% if Len(request("1256413736359_SubmitErrImg")) > 0 then response.write "" end if %>
App 1<% if Len(request("1256413736359_AppNo1ErrImg")) > 0 then response.write "" end if %>
App 2<% if Len(request("1256413736359_AppNo2ErrImg")) > 0 then response.write "" end if %>
App 3<% if Len(request("1256413736359_AppNo3ErrImg")) > 0 then response.write "" end if %>
App 4<% if Len(request("1256413736359_AppNo4ErrImg")) > 0 then response.write "" end if %>
App 5<% if Len(request("1256413736359_AppNo5ErrImg")) > 0 then response.write "" end if %>
App 6<% if Len(request("1256413736359_AppNo6ErrImg")) > 0 then response.write "" end if %>
App 7<% if Len(request("1256413736359_AppNo7ErrImg")) > 0 then response.write "" end if %>
App 8<% if Len(request("1256413736359_AppNo8ErrImg")) > 0 then response.write "" end if %>
App 9<% if Len(request("1256413736359_AppNo9ErrImg")) > 0 then response.write "" end if %>
App 10<% if Len(request("1256413736359_AppNo10ErrImg")) > 0 then response.write "" end if %>
<%=request("1256413736359_Errors")%>
<% Response.Write "" else if nof_debug then Response.Write "Could not include the file `" & nof_sitePath & nof_scriptDir & "\" & "rememberValues.js`." else Response.Write "

An error occured. Please contact the site administrator.

" Response.Write "

Error code: 103

" end if end if %>
BuiltWithNOF
[Home] [Software] [Download] [Software FAQ's] [Features] [Intro Videos] [Purchase] [Hardware] [Consumers] [Contractors]