|
<%
Dim strCurrentPageName
strCurrentPageName = Right(Request.ServerVariables("SCRIPT_NAME"), Len(Request.ServerVariables("SCRIPT_NAME"))-1)
Dim iCount, path, fso, filename
iCount = 0
path = ""
Set fso = CreateObject("Scripting.FileSystemObject")
filename = Server.MapPath(path + "generator/show.asp")
Do While fso.FileExists(filename) = False And iCount < 101
path = "../" + path
On Error Resume Next
filename = Server.MapPath(path + "generator/show.asp")
iCount = iCount + 1
Loop
If iCount = 100 then
response.write "Sorry, we can not locate core functions. Program terminated"
Else
Session("showurl") = strCurrentPageName
Session("showback") = path + "generator/"
Server.Execute(path + "generator/show.asp")
End If
%>
Coldwell Banker Real Estate
www.coldwellbanker.com
Ct. Association of Realtors
www.ctrealtor.com
Ct. Secretary of the State
www.sots.state.ct.us/
Ct. Legislature
www.cga.state.ct.us/default.asp
Ct. Restaurants
www.ctrestaurants.com
Dept.of Consumer Protection
www.state.ct.us/dep/
Federal Bureau of Investigation
www.fbi.gov/
National Association of Realtors
www.onerealtorplace.com
Realtors
www.realtor.com
Strategic School Profile
www.state.ct.us/sde/ssp.htm
The Mortgage Journal
www.themortgagejournal.com
U.S. Environmental Agency
www.epa.gov/
Westport Chamber of Commerce
www.westportchamber.com | 
CopyrightŠ 2006 Gail Lilley Zawacki