Sub reSize()
	
	Err.Clear
	On Error Resume Next

	Set oBody	=	document.body
	Set oFrame	=	document.all("ifrm")

	oFrame.style.height = oBody.scrollHeight + (oBody.offsetHeight - oBody.clientHeight)
	oFrame.style.width = oBody.scrollWidth + (oBody.offsetWidth - oBody.clientWidth)

	if Err.Number <> 0 Then
		'An error is raised if the IFrame domain != its container's domain
		window.status =	"Error: " + Err.number + "; " + Err.description
	End If

End Sub


Sub reSize2()

	Err.Clear		'Clear error object
	On Error Resume Next	' Keep processing code
	
	Set oBody	=	SingleAd.document.body
	Set oFrame	=	document.all("SingleAd")
	
	'Set frame height based on content to display	
	oFrame.style.height = oBody.scrollHeight + (oBody.offsetHeight - oBody.clientHeight)	

	If Err.Number <> 0 Then
		'An error is raised if the IFrame domain != its containers domain 
		window.status =	"Error: " + Err.number + "; " + Err.description
	End If

End Sub


Sub DisplayEvents()
	if expand.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif" Then
		expand.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/expand_threads.gif"
		expand.alt="Click here to show events"
	else
		expand.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif"
		expand.alt = "Click here to hide events"
	End If

	if Events.style.display = "none" then
		Events.style.display = ""
	else
		Events.style.display = "none"
	end if
End Sub

Sub DisplayMonth()
	if expand21.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif" Then
		expand21.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/expand_threads.gif"
		expand21.alt="Click here to show calendar"
	else
		expand21.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif"
		expand21.alt = "Click here to hide calendar"
	End If

	if Months.style.display = "none" then
		Months.style.display = ""
	else
		MOnths.style.display = "none"
	end if
End Sub


Sub DisplayBytes()
	if expand0.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif" Then
		expand0.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/expand_threads.gif"
		expand0.alt="Click here to show hotbytes"
	else
		expand0.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif"
		expand0.alt = "Click here to hide hotbytes"
	End If

	if HotBytes.style.display = "none" then
		HotBytes.style.display = ""
	else
		HotBytes.style.display = "none"
	end if
End Sub



Sub DisplayAlerts()
	if expand01.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif" Then
		expand01.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/expand_threads.gif"
		expand01.alt="Click here to show alerts"
	else
		expand01.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif"
		expand01.alt = "Click here to hide alerts"
	End If

	if Alerts.style.display = "none" then
		Alerts.style.display = ""
	else
		Alerts.style.display = "none"
	end if
End Sub

Sub DisplayEmail()
	if expand20.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif" Then
		expand20.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/expand_threads.gif"
		expand20.alt="Click here to show e-mail alerts"
	else
		expand20.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif"
		expand20.alt = "Click here to hide e-mail alerts"
	End If

	if email.style.display = "none" then
		email.style.display = ""
	else
		email.style.display = "none"
	end if
End Sub

Sub DisplayFinancials()
	if expand22.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif" Then
		expand22.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/expand_threads.gif"
		expand22.alt="Click here to show Financial data"
	else
		expand22.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif"
		expand22.alt = "Click here to hide Financial data"
	End If

	if financial.style.display = "none" then
		financial.style.display = ""
	else
		financial.style.display = "none"
	end if
End Sub

Sub ShowShortCuts()

	if scexpand.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif" Then
		scexpand.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/expand_threads.gif"
		scexpand.alt="Click here to show shortcuts"
	else
		scexpand.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif"
		scexpand.alt = "Click here to hide shortcuts"
	End If
	
	If ShortCuts.style.display = "none" then
		ShortCuts.style.display = ""
	else
		ShortCuts.style.display = "none"
	End If
	reSize()

end sub

Sub ShowWhoDoICall()

	if expand1.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif" Then
		expand1.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/expand_threads.gif"
		expand1.alt="Click here to hide Who Do I Call FAQ"
	else
		expand1.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif"
		expand1.alt = "Click here to show Who Do I Call FAQ"
	End If

	if tblWhoDoICall.style.display = "none" then
		tblWhoDoICall.style.display = ""
	else
		tblWhoDoICall.style.display = "none"
	end if
End Sub

Sub ShowHOABoardFaq()

	if expand2.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif" Then
		expand2.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/expand_threads.gif"
		expand2.alt="Click here to hide HOA Board FAQ"
	else
		expand2.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif"
		expand2.alt = "Click here to show HOA Board FAQ"
	End If

	if tblHOABoard.style.display = "none" then
		tblHOABoard.style.display = ""
	else
		tblHOABoard.style.display = "none"
	end if
End Sub

Sub ShowAnnualFeesFaq()

	if expand3.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif" Then
		expand3.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/expand_threads.gif"
		expand3.alt="Click here to hide Annual Fees FAQ"
	else
		expand3.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif"
		expand3.alt = "Click here to show Annual Fees FAQ"
	End If

	if tblAnnualFees.style.display = "none" then
		tblAnnualFees.style.display = ""
	else
		tblAnnualFees.style.display = "none"
	end if
End Sub


Sub ShowCovenantsFaq()

	if expand4.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif" Then
		expand4.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/expand_threads.gif"
		expand4.alt="Click here to hide Covenants FAQ"
	else
		expand4.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif"
		expand4.alt = "Click here to show Covenants FAQ"
	End If

	if tblCovenants.style.display = "none" then
		tblCovenants.style.display = ""
	else
		tblCovenants.style.display = "none"
	end if
End Sub

Sub ShowCAFaq()

	if expand5.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif" Then
		expand5.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/expand_threads.gif"
		expand5.alt="Click here to hide Common Area FAQ"
	else
		expand5.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif"
		expand5.alt = "Click here to show Common Area FAQ"
	End If

	if tblCA.style.display = "none" then
		tblCA.style.display = ""
	else
		tblCA.style.display = "none"
	end if
End Sub

Sub ShowContacts()

	if contact.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif" Then
		contact.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/expand_threads.gif"
		contact.alt="Click here to show contacts"
	else
		contact.src = "http://www.bradfieldfarms.com/htdocs/dcforum/images/collapsed_threads.gif"
		contact.alt = "Click here to hide Contacts"
	End If

	if ShowContact.style.display = "none" then
		ShowContact.style.display = ""
	else
		ShowContact.style.display = "none"
	end if
End Sub