% Dim myweb myweb = Request.ServerVariables("Server_Name") if myweb = "www.emissionscreditexchange.com" then Response.Redirect ("http://www.EmissionCreditsExchange.com") end if if myweb = "www.emissionscreditsexchange.com" then Response.Redirect ("http://www.EmissionCreditsExchange.com") end if if myweb = "www.rtcexchange.com" then Response.Redirect ("http://www.EmissionCreditsExchange.com") end if if myweb = "www.emissioncredits.com" then Response.Redirect ("http://www.EmissionCreditsExchange.com") end if if myweb = "www.emissioncreditexchange.com" then Response.Redirect ("http://www.EmissionCreditsExchange.com") end if %> <% Dim lngHits Dim objCounter Tien = Request.ServerVariables ("Remote_Host") If Tien <> "65.255.197.10" Then Set objCounter = Server.CreateObject("MSWC.PageCounter") objCounter.PageHit lngHits = objCounter.Hits +780 Set objCounter = Nothing Else Set objCounter = Server.CreateObject("MSWC.PageCounter") lngHits = objCounter.Hits +780 Set objCounter = Nothing End If %>
![]() |
|||||||||
|
|||||||||
![]() |
|||||||||
|
Justice Alliance: Trading made easy with Justice Alliance.
Assisting you in generating credits and trading credits, while offering the regulatory advice you need.
|
|
||
|
a Division of Justice & Associates |
|||
|
Copyright © 2009 Justice Alliance. All rights reserved. |
|||