Friday, May 18, 2012
Coast to Coast
  Home     Contact Us    
Order Site Login
User Id (Email Address):
Password:
forgot your password?

 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META content="text/html; charset=unicode" http-equiv=Content-Type> <META content="MSHTML 5.00.3013.2600" name=GENERATOR></HEAD> <BODY><P> <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%"> <TR> <TD align=middle> <HR color=#000000 noShade SIZE=1> <FONT color=#000000 face="helvetica, arial" size=1> <!--#include file="./ApprCtl.asp"--> <% If IsEmpty(Session("WSAgent")) Then Set WebSpeedQuery = Server.CreateObject("WSASP.WSAgent") else Set WebSpeedQuery = Session("WSAgent") End If WebSpeedQuery.ServiceName = AppriseWSbroker Function StripStateAware(inString) dim regEx Set regEx = New RegExp regEx.pattern = "^set-cookie: .*" regEx.IgnoreCase = True StripStateAware = regEx.replace(inString, "") StripStateAware = Replace(StripStateAware, vbcr, "") StripStateAware = Replace(StripStateAware, vblf, "") End Function Function DisplayWebmaster() WebSpeedQuery.RunScript("/wbwebmaster.p") DisplayWebmaster = StripStateAware(WebSpeedQuery.Output) End Function Function DisplayMarketing() WebSpeedQuery.RunScript("/wbmarketing.p") DisplayMarketing = StripStateAware(WebSpeedQuery.Output) End Function dim webmaster, marketing webmaster = DisplayWebmaster() marketing = DisplayMarketing() %> Contents of this page &copy; Coast to Coast, LLC <%Response.Write(Year(Date))%><BR> <BR> Best viewed with <A href="http://www.microsoft.com/windows/ie/download/default.asp"><BR><IMG src="file:///Macintosh HD/work/EBusinessTest copy/IE.GIF" alt="Internet Explorer" border=0 align=center ></A> </FONT> </TD> </TR> </TABLE> </P></BODY></HTML>