|
Contact Information & Directions

Contact
Please direct all inquires to Judy Lefkowitz at 203-397-1714 ext. 113.
Directions to Our Campus
From the Merritt-Wilbur Cross Parkway (north or south)
Take exit 59. At the end of the ramp, turn right. Follow the road until it converges at the Mobil gas station. Follow
Whalley Avenue (road bearing to the left) for about seven blocks. You will pass a McDonald's on you right hand side and then go
through a traffic light at the intersection of Whalley and Emerson. Just past the intersection, Chapel Haven's main residence is on your right
at 1040 Whalley Avenue. The parking lot is just past the residence. Please use the main entrance to the Bershaw-Boswell Community
Center at the end of the parking lot.
From Interstate 95 (north or south)
Take exit 47 (Downtown New Haven--Route 34). Go north on the exit connector to the end (third exit). Continue straight on
North Frontage Rd to the end where it meets Ella Grasso Boulevard. Turn right. Continue on Boulevard to the first light and turn left onto
route 34. Follow past Yale Avenue. The Ravens baseball field is on the left and the Yale stadium is on the right. At the next corner, turn right
onto Central Avenue. Follow Central Avenue to the end where it meets Whalley Avenue. Turn left onto Whalley Avenue. Chapel Haven is
about three blocks up on the left, at 1040 Whalley Avenue (if you pass McDonald's, you've gone too far). The parking lot is just before the red
brick residence. Please use the main entrance to the Bershaw-Boswell Community Center at the back of the parking lot.
<%
'Dimension variables
Dim fsoObject 'File System Object
Dim tsObject 'Text Stream Object
Dim filObject 'File Object
Dim lngVisitorNumber 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count
'Create a File System Object variable
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
'Initialise a File Object with the path and name of text file to open
Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt"))
'Open the visitor counter text file
Set tsObject = filObject.OpenAsTextStream
'Read in the visitor number from the visitor counter file
lngVisitorNumber = CLng(tsObject.ReadAll)
'Increment the visitor counter number by 1
lngVisitorNumber = lngVisitorNumber + 1
'Create a new visitor counter text file over writing the previous one
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt"))
'Write the new visitor number to the text file
tsObject.Write CStr(lngVisitorNumber)
'Reset server objects
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
'Display the hit count as text
'Response.Write(lngVisitorNumber)
%>
|