<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.MapPath("db/simpleBlog.mdb") &";"
strServer = "http://www.brodypro.com/blog//"


strSQL = "SELECT * FROM T_SETTINGS"

	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.ActiveConnection = strConn
	Rs.Source = strSQL
	Rs.CursorType = 0
	Rs.CursorLocation = 2
	Rs.LockType = 1
	Rs.Open()


' do not change this, use intDisplayLCID below 
InitLCID = 1033
SESSION.LCID = InitLCID

' use this for the date display 
intDisplayLCID = rs("lcid")

' frontpage display modes */
' 0 = show all blogs, 1 = show blogs from last seven days, 2 = last 30 days, 3 = show x number of blogs (intTopCount below) */
intDisplayMode = rs("displaymode")
'how many blogs on your frontpage if intDisplayMode = 3  */
intTopCount = rs("topcount")
' text for comments link */
strCommentText = rs("commenttext")
' text for permanent link text */
permalinktext = rs("permalinktext")
' image url for comments header */
strCommentHeader = rs("commentheader")
' text to appear if no comments have been made */
strNoComments = rs("nocomments")
' text to appear if anonymous commenter */
strNameEmpty = rs("nameempty")
' use "approve comments" feature */
boolApproveComments = rs("approveComments")

' poll ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
' allow people to vote more than once ? */
strPollAllowMultiple = rs("pollallowmultiple")
' 3 strings for text in poll add-on */
strPollText_button = rs("polltext_button")
strPollText_viewRes = rs("polltext_viewres")
strPollText_votes = rs("polltext_votes")


Rs.close()
set Rs = nothing


' clean up: move functions to func. include file
function dateToInt(theDate)
' changes selected date to integer, number of minutes from given date in compareStamp
if instr(theDate,".") => 1 Then
theDate = replace(theDate,".","/")
end if 
compareStamp = "01/01/01 12:00:00"
dateToInt = DateDiff("n",compareStamp,formatdatetime(theDate,vbshortdate)) 
end function

function IntToDate(theInt)
' changes integer to date
compareStamp = "01/01/01 12:00:00"
IntToDate = DateAdd("n",theInt,compareStamp)
end function

function DisplayDate(theDate)
SESSION.LCID = intDisplayLCID
DisplayDate = Day(theDate) & " " & monthName(month(theDate)) & " " & Year(theDate)
SESSION.LCID = InitLCID
end function

%>
<%
function tidydate(thedate)
    tidydate=day(thedate) & " " & left(monthname(month(thedate)),3) & " " & year(thedate)
end function

' this function is used in comments, inserts appropriate html chars for some special characters
' that didn't display correctly through xmlhttp. Call it a hack if you will
function insChars(strString)

strArray1 = array("ó","ú","á","é","í","æ","ö","þ","ð","ý","å")
strArray2 = array("&oacute;","&uacute;","&aacute;","&eacute;","&iacute;","&aelig;","&ouml;","&thorn;","&eth;","&yacute;","&aring;")

strReturn = strString

for i = 0 to uBound(strArray1) 
strReturn = replace(LCase(strReturn), strArray1(i) , strArray2(i)) 
next 

insChars = strReturn

end function

' ******************************************************************************************
' added 16/03/06: sql injection prevention functions
' usage -
'			stripQuotes(stringToClean) - optional, if we want to keep quotes
'			sanitize(stringToClean)
' ******************************************************************************************

function stripQuotes(strWords) 
stripQuotes = replace(strWords, "'", "''") 
end function 

function sanitize(strWords) 

dim badChars 
dim newChars 

badChars = array("select","union", "drop", ";", "--", "insert", "delete", "xp_", "#", "%", "&", "'", "(", ")", "/", "\", ":", ";", "<", ">", "=", "[", "]", "?", "`", "|") 

newChars = strWords 

for i = 0 to uBound(badChars) 
newChars = replace(LCase(newChars), LCase(badChars(i)) , "") 
next 

sanitize = newChars 

end function 
' ******************************************************************************************
function getRecentPosts()

strSQL = "SELECT TOP 10 * FROM  T_WEBLOG WHERE b_published = true ORDER BY b_date DESC, b_time DESC"

	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.ActiveConnection = strConn
	Rs.Source = strSQL
	Rs.CursorType = 0
	Rs.CursorLocation = 2
	Rs.LockType = 1
	Rs.Open()

		If Not Rs.EOF Then
			response.Write("<ul class=""linkList"">")
				Rs.MoveFirst
					while not Rs.EOF
						response.Write("<li><a href=""?view=plink&id=" & rs("id") & """>" & rs("b_headline") & "</a></li>")
					Rs.MoveNext
				Wend
			response.Write("</ul>")
		end if


end function


Sub GetBlogs()

if intTopCount = null Then
	intTopCount = 3
end if
if intDisplayMode = null Then
	intDisplayMode = 3
end if


Select case intDisplayMode
Case "",0
strSQL = "SELECT * FROM  T_WEBLOG WHERE b_published = true ORDER BY b_date DESC, b_time DESC"
Case 1
weekCode = DateAdd("d",-7,Date())
weekCode = dateToInt(weekCode)
strSQL = "SELECT * FROM  T_WEBLOG WHERE "&weekCode&" < b_date AND b_published = true ORDER BY b_date DESC, b_time DESC"
Case 2
montCode = DateAdd("d",-30,Date())
montCode = dateToInt(montCode)
strSQL = "SELECT * FROM  T_WEBLOG WHERE "&montCode&" < b_date AND b_published = true ORDER BY b_date DESC, b_time DESC"
Case 3
strSQL = "select TOP "&Cint(intTopCount)&" * FROM (SELECT * FROM  T_WEBLOG WHERE b_published = true ORDER BY b_date DESC, b_time DESC)"
End Select


	If request.QueryString("view") = "archives" then
		intMonth = request.QueryString("month")
			' check for injection attempt
			if not isnumeric(intMonth) then
			response.Write("error! Bad month value!!")
			response.End()
			
		end if
		intYear  = request.QueryString("year")
			strSQL = "SELECT * FROM T_WEBLOG WHERE b_year = " & sanitize( intYear ) & " AND b_month = " & sanitize( intMonth ) & " AND b_published = true ORDER BY ID DESC"
	End if
	If request.QueryString("view") = "day" then
	
	strDate = request.QueryString("blogDate")
	strDate = DateToInt(strDate)
	
	strSQL = "SELECT * FROM T_WEBLOG WHERE b_date = " & sanitize( strDate ) & " AND b_published = true ORDER BY ID DESC"

	else if request.QueryString("view") = "plink" then
	 strSQL = "SELECT * FROM T_WEBLOG WHERE id = " & sanitize( request.QueryString("id") )
	end if
	end if 
	
	
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.ActiveConnection = strConn
	Rs.Source = strSQL
	Rs.CursorType = 0
	Rs.CursorLocation = 2
	Rs.LockType = 1
	Rs.Open()
	

If Not rs.EOF Then
rs.MoveFirst
while not rs.EOF
%>
<div class="d_blog">
<h2 class="content_header"><%=rs("b_headline")%></h2>
<p class="content_date"><%=DisplayDate(IntToDate(rs("b_date")))%></p>
<div class="content_content"><%=rs("b_content")%></div>
<ul class="content_linkrow">
<% if rs("b_author") <> "" then
response.Write("<li class=""author"">")
response.Write(rs("b_author")) & " @ " & formatdatetime(rs("b_time"),vbshorttime) & "&nbsp;"
response.Write("</li>")
end if 
%>
<li class="comments" id="dOpen"><% Call GetCommentLink(rs("id")) %></li>&nbsp;
<li class="plink"><a href="?view=plink&amp;id=<%=rs("id")%>"><%=permalinktext%></a></li>&nbsp;
</ul>
</div>
<a name="aComments__<%=rs("id")%>"></a>
<div id="dComments__<%=rs("id")%>" style="display:none; visibility:hidden"></div>
<%
	
rs.MoveNext
wend

 else
 response.Write("<div class=""d_blog""><strong>no blogs have been published ...</strong></div>")
End if
%>
<%
rs.Close
set rs = Nothing
End Sub
%>
<%
Sub getArchives()

'strSQL = "SELECT DISTINCT Month(b_date) as b_month, Year(b_date) as b_year  FROM T_WEBLOG WHERE b_published = true  ORDER BY Year(b_date) DESC, Month(b_Date) DESC"
strSQL = "SELECT DISTINCT b_month, b_year FROM T_WEBLOG WHERE b_published = true  ORDER BY b_year DESC, b_month DESC"


Set rsDates = Server.CreateObject("ADODB.Recordset")
rsDates.ActiveConnection = strConn
rsDates.Source = strSQL
rsDates.CursorType = 0
rsDates.CursorLocation = 2
rsDates.LockType = 1
rsDates.Open()

IF Not rsDates.EOF Then
response.Write("<ul class=""linkList"">")
	rsDates.MoveFirst
	While Not rsDates.EOF
	response.Write("<li><a href=""?view=archives&amp;month="&rsDates("b_month")&"&amp;year="&rsDates("b_year")&""">")
	SESSION.LCID = intDisplayLCID
	response.Write(MonthName(Cint(rsDates("b_month"))) &" - "& Cint(rsDates("b_year")) & "</a></li>")
	SESSION.LCID = InitLCID
	rsDates.MoveNext
	Wend
response.Write("</ul>")
End If

rsDates.Close
set rsDates = Nothing
End Sub
%>
<%
Sub GetCommentLink(bID)

if boolApproveComments Then
strSQL = "SELECT Count(*) AS CommentCount FROM T_COMMENTS WHERE ((isApproved = true) AND ((T_COMMENTS.c_bID_fk)=" & bID & "))"
else
strSQL = "SELECT Count(*) AS CommentCount FROM T_COMMENTS WHERE (((T_COMMENTS.c_bID_fk)=" & bID & "))"
end if

Set rsC_Count = Server.CreateObject("ADODB.Recordset")
rsC_Count.ActiveConnection = strConn
rsC_Count.Source = strSQL
rsC_Count.CursorType = 0
rsC_Count.CursorLocation = 2
rsC_Count.LockType = 1
rsC_Count.Open()

'Response.Write("<a href=""comments.asp?id=" & bID & """ onclick=""window.open(this.href,'Comments','scrollbars=yes,resizable=no,width=400,height=500'); return false"">" & strCommentText & "(" & rsC_Count("CommentCount") & ")</a>")
Response.Write("<a href=""javascript:void()"" onclick=""jah('comments_get.asp?id=" & bID & "','dComments__" & bID & "');setTimeout('location.hash = \'aComments__"&bID&"\'',550)"">" & strCommentText & "(" & rsC_Count("CommentCount") & ")</a>")


rsC_Count.close
Set rsC_Count = Nothing
End Sub
%>
<%
Sub GetComments(bID)
strbID = sanitize( bID )
if boolApproveComments Then
strSQL = "SELECT * FROM T_COMMENTS WHERE c_bID_fk=" & bID  &" AND isApproved = true ORDER BY id asc"
else
strSQL = "SELECT * FROM T_COMMENTS WHERE c_bID_fk=" & bID  &" ORDER BY id asc"
end if

Set rsComments = Server.CreateObject("ADODB.Recordset")
rsComments.ActiveConnection = strConn
rsComments.Source = strSQL
rsComments.CursorType = 0
rsComments.CursorLocation = 2
rsComments.LockType = 1
rsComments.Open()
%>

<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
    <td align="center"><h1>Simpleblog 2.3</h1></td>
  </tr>
  <tr> 
    <td class="c_content">&nbsp;</td>
  </tr>
  <%
If Not rsComments.EOF Then
 rsComments.MoveFirst
 While Not rsComments.EOF
 %>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <%
  thisComment = rsComments("c_content")
  thisUrl = rsComments("c_url")
  thisUrl = replace(thisUrl,"http://","")
  thisUrl = "http://" & thisUrl
  ' insert emoticons */
  IISfolder = server.MapPath("emoticons/")
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	Set folder = fso.GetFolder(IISfolder)
	Set Files = folder.Files

	For Each File in Files
	strEmoticon =  File.name
	strEmoticon = replace(strEmoticon,".gif","")
	strEmoticon = "!" & strEmoticon & "!"
	if strEmoticon <> "Thumbs.db" Then
	thisComment = replace(thisComment,strEmoticon,"<img src=emoticons/"& File.name &" border=0 alt="""&strEmoticon&""" />")
	End if
	Next
  
  
  %>
  <tr> 
    <td class="c_content"><%=thisComment%></td>
  </tr>
  <tr> 
    <td class="c_content"><b><% if rsComments("c_name") <> "" Then response.Write(rsComments("c_name")) else response.Write(strNameEmpty) end if %></b>
	<% if rsComments("c_email") <> "" Then %>
	 | <a href="mailto:<%=rsComments("c_email")%>"><%=rsComments("c_email")%></a>
	 <% end if %>
	 <% if rsComments("c_url") <> "" Then %>
	  | <a href="<%=thisUrl%>" target="_blank"><%=rsComments("c_url")%></a>
	  <% end if %>
	   | <%=tidydate(rsComments("c_time"))%> @ <%=formatdatetime(rsComments("c_time"), vbshorttime)%></td>
  </tr>
<tr><td>&nbsp;</td></tr>
  <tr><td><table width="85%" height="2" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
<tr><td></td></tr></table></td></tr>
  <%
  rsComments.MoveNext
  Wend
  
  else
  %>
  <td class="c_content" align="center"><%=strNoComments%></td>
  <%
  End if
  %>
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td align="center"><form action="" method="post" name="f1" id="f1">
        <table width="320" border="0" cellspacing="0" cellpadding="0" class="c_content">
          <tr> 
            <td>Name<br> 
              <input name="name" type="text" id="name" size="38" value="<%=request.Cookies("visitorName")%>"></td>
          </tr>
          <tr> 
            <td>Email<br> 
              <input name="email" type="text" id="email" size="38" value="<%=request.Cookies("visitorEmail")%>"> </td>
          </tr>
          <tr> 
            <td>URL<br> 
              <input name="url" type="text" id="url" size="38" value="<%=request.Cookies("visitorUrl")%>"> </td>
          </tr>
          <tr> 
            <td>Comment<br> <textarea name="main" cols="58" rows="14" wrap="VIRTUAL" id="main"></textarea> 
            </td>
          </tr>
          <tr> 
            <td><% call getEmoticons()%></td>
          </tr>
          <tr>
            <td><input type="button" name="Submit" value="    OK    " onClick="this.disabled=true; document.forms[0].submit()">
              <input name="id" type="hidden" id="id" value="<%=intbID%>">
              <input name="userIP" type="hidden" id="userIP" value="<%=Request.ServerVariables("REMOTE_ADDR")%>"></td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>
<%
End Sub
%>

<%
Sub CommentsGet(bID)
strbID = sanitize( bID )
if boolApproveComments Then
strSQL = "SELECT * FROM T_COMMENTS WHERE c_bID_fk=" & bID  &" AND isApproved = true ORDER BY id asc"
else
strSQL = "SELECT * FROM T_COMMENTS WHERE c_bID_fk=" & bID  &" ORDER BY id asc"
end if

iCommImage = 1

Set rsComments = Server.CreateObject("ADODB.Recordset")
rsComments.ActiveConnection = strConn
rsComments.Source = strSQL
rsComments.CursorType = 0
rsComments.CursorLocation = 2
rsComments.LockType = 1
rsComments.Open()
%>
<a name="commentsForm"></a>
<h3 class="c_cHeader">comments</h3>
  <%
If Not rsComments.EOF Then
 rsComments.MoveFirst
 While Not rsComments.EOF

  thisComment = insChars(rsComments("c_content"))
   if rsComments("c_name") <> "" Then 
   thisCName = insChars(rsComments("c_name"))
    else 
    thisCName = insChars(strNameEmpty)
	end if
  
  thisUrl = rsComments("c_url")
  thisUrl = replace(thisUrl,"http://","")
  thisUrl = "http://" & thisUrl
  ' insert emoticons */
  IISfolder = server.MapPath("emoticons/")
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	Set folder = fso.GetFolder(IISfolder)
	Set Files = folder.Files

	For Each File in Files
	strEmoticon =  File.name
	strEmoticon = replace(strEmoticon,".gif","")
	strEmoticon = "!" & strEmoticon & "!"
	if strEmoticon <> "Thumbs.db" Then
	thisComment = replace(thisComment,strEmoticon,"<img src=emoticons/"& File.name &" border=0 alt="""&strEmoticon&""" />")
	End if
	Next
	
  
if iCommImage = 1 Then
strAvatar = "warhol.gif"  
iCommImage = 2
else
strAvatar = "nashville.gif"
iCommImage = 1
end if
  %>
   <div class="c_contentPerson" style="background-image:url(img/avatar/<%=strAvatar%>)">
   <strong><%=thisCName %></strong>
	 <% if rsComments("c_url") <> "" Then %>
	  | <a href="<%=thisUrl%>" target="_blank"><%=rsComments("c_url")%></a>
	  <% end if %>
	   ( <%=tidydate(rsComments("c_time"))%> @ <%=formatdatetime(rsComments("c_time"), vbshorttime)%> )</div>
  <div class="c_contentTop"></div>
  <div class="c_content"><%=thisComment%></div>
  <div class="c_contentBottom"></div>

   
  <%
  rsComments.MoveNext
  Wend
  
  else
  %>
  <div><%=strNoComments%></div>
  <%
  End if
  %>
<div class="commentsForm">
<form action="comments.asp" method="post" name="f1" id="f1">
<h3>ADD YOUR COMMENT</h3>	
Name
<br /> 
<input name="name" type="text" id="name" size="38" value="<%=request.Cookies("visitorName")%>" onfocus="this.className='selected';" onblur="this.className='';">
<br />

Email
<br /> 
<input name="email" type="text" id="email" size="38" value="<%=request.Cookies("visitorEmail")%>" onfocus="this.className='selected';" onblur="this.className='';">
<br />

URL
<br /> 
<input name="url" type="text" id="url" size="38" value="<%=request.Cookies("visitorUrl")%>" onfocus="this.className='selected';" onblur="this.className='';">
<br />

Comment<br /> 
<textarea name="main" cols="52" rows="14" wrap="VIRTUAL" id="main" onfocus="this.className='selected';" onblur="this.className='';"></textarea> 
<br />
<% call getEmoticons()%>
<br />
<input type="button" name="Submit" value="    OK    " onClick="this.disabled=true; document.forms[0].submit()" class="btn">
<input name="id" type="hidden" id="id" value="<%=intbID%>">
<input name="userIP" type="hidden" id="userIP" value="<%=Request.ServerVariables("REMOTE_ADDR")%>">
</form>
<%
End Sub
%>


<%
Sub InsertComment()


bID 		= request.Form("id")
strName		= request.Form("name")
strEmail	= request.Form("email")
strUrl		= request.Form("url")
strComment	= request.Form("main")
strComment	= replace(strComment,"'","''")
strComment	= replace(strComment,vbCrLf,"!br!")
strComment  = sanitize( strComment )
strComment  = replace(strComment,"!br!","<br />")
str_userIP	= request.Form("userIP")

'create cookies to store user info */
Response.Cookies("visitorName") = strName
Response.Cookies("visitorEmail") = strEmail
Response.Cookies("visitorUrl") = strUrl

Response.Cookies("visitorName").Expires = Date + 120
Response.Cookies("visitorEmail").Expires = Date + 120
Response.Cookies("visitorUrl").Expires = Date + 120

' insert Comment */

strSQL = "INSERT INTO T_COMMENTS(c_content, c_name, c_email, c_url, c_bID_fk,ip) VALUES ('" & strComment & "','" & sanitize( strName ) & "','" & sanitize( strEmail ) & "','" &  sanitize( strUrl )& "'," &  sanitize( bID )& ",'"&str_userIP&"')"

Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open strConn
MyConn.Execute(strSQL)
MyConn.Close
Set MyConn = Nothing

response.Redirect("default.asp?view=plink&id=" & bID & "&comments=1")
%>

<%
End Sub
%>
<%
Sub getEmoticons()
eCount = 0
IISfolder = server.MapPath("emoticons/")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(IISfolder)
Set Files = folder.Files

For Each File in Files
strEmoticon =  File.name
if strEmoticon <> "Thumbs.db" Then
response.Write("<a href=""javascript:AddHTML('!"&replace(strEmoticon,".gif","")&"!')""><img src=emoticons/"&strEmoticon&" border=0 alt="&replace(strEmoticon,".gif","")&"></a>")
eCount = eCount + 1
	If eCount = 15 Then
	response.Write("<br>")
	eCount = 0
	else
	response.Write("&nbsp;")
	end If
End if
Next

End Sub


Function blogCalendar()


Dim rs_cal
Dim rs_cal_numRows

Set rs_cal = Server.CreateObject("ADODB.Recordset")
rs_cal.ActiveConnection = strConn
rs_cal.Source = "SELECT b_date FROM T_WEBLOG WHERE b_published = true"
rs_cal.CursorType = 0
rs_cal.CursorLocation = 2
rs_cal.LockType = 1
rs_cal.Open()

rs_cal_numRows = 0


If Request("blogDate") <> "" Then
blogDate = Request("blogDate")
'blogDate = intToDate(Request("blogDate"))
blogDate = DateValue(blogDate)
blogDate = Month(blogDate) & "/" & Day(blogDate) & "/" & Year(blogDate)
Else
blogDate = date()
End if
if request.QueryString("view") = "archives" Then
blogDate = request.QueryString("month") & "/" & Day(Now()) & "/" & request.QueryString("year")
End if

CurrentMonth = Month(blogDate)
CurrentMonthName = MonthName(CurrentMonth)
Session.lcid = intDisplayLCID
CurrentMonthName = MonthName(CurrentMonth)
session.LCID = InitLCID
CurrentYear = Year(blogDate)
FirstDayDate = DateSerial(CurrentYear, CurrentMonth, 1)
FirstDay = WeekDay(FirstDayDate, 0)
CurrentDay = FirstDayDate
Dim tmpHTML
tmpHTML=""
tmpHTML = tmpHTML & "<div class=""dCenter""><table summary=""blog_Cal"" id=""calendar"" cellspacing=""0"">" & Chr(10)
tmpHTML = tmpHTML & "<tr id=""title"">" & Chr(10)
tmpHTML = tmpHTML & "<th colspan=""7"" align=""center"">" & Chr(10)

strBackMonth = Month(DateAdd("m",-1,blogDate))
strBackYear = Year(blogDate)
if strBackMonth = 12 Then
strBackYear = Year(DateAdd("yyyy",-1,blogDate))
end if
strFwdMonth = Month(DateAdd("m",1,blogDate))
strFwdYear = Year(blogDate)
if strFwdMonth = 1 Then
strFwdYear = Year(DateAdd("yyyy",1,blogDate))
end if

tmpHTML = tmpHTML & "<a href=""?view=archives&amp;month="&strBackMonth&"&amp;year="&strBackYear&""">&lt;&lt;</a>&nbsp;"
tmpHTML = tmpHTML &  CurrentMonthName & " " & CurrentYear 
tmpHTML = tmpHTML & "&nbsp;<a href=""?view=archives&amp;month="&strFwdMonth&"&amp;year="&strFwdYear&""">&gt;&gt;</a>"
tmpHTML = tmpHTML & "</th>" & Chr(10) & "</tr>" & Chr(10) & "<tr id=""days"">"
Response.Write(tmpHTML)
For DayLoop = 1 to 7
Response.Write("<th>" & WeekDayName(Dayloop, True, 0) & "</th>" & Chr(10))
Next 
Response.Write("</tr>" & Chr(10) & "<tr class=""firstweek"">")
If FirstDay <> 1 Then
Response.Write("<td align=""center"" colspan=""" & (FirstDay -1) & """ class=""blank"">&nbsp;</td>" & Chr(10))
End if
DayCounter = FirstDay
CorrectMonth = True
Do While CorrectMonth = True
isEvent = FALSE
rs_cal.filter = 0
Dim iCheck
Dim chkStr
chkStr = (rs_cal.Fields.Item("b_date").Name)
iCheck = CurrentDay
iCheck = dateToInt(iCheck)
rs_cal.filter = chkStr & "=" & (iCheck)
If not(rs_cal.EOF) Then isEvent = TRUE
If CurrentDay = blogDate Then
Response.Write("<td align=""center"" class=""today"">") 	
Else
Response.Write("<td align=""center"" class=""day" & DayCounter & """>")
End if
If isEvent = TRUE Then
useDate = Month(CurrentDay) & "/" & Day(CurrentDay) & "/" & Year(CurrentDay)
Response.Write("<a href=""?view=day&amp;blogDate=" & useDate & """>" & Day(CurrentDay)& "</a>")

Response.Write("</td>" & Chr(10))
Else
Response.Write(Day(CurrentDay) & "</td>" & Chr(10))
End If
DayCounter = DayCounter + 1
If DayCounter > 7 Then
DayCounter = 1
Response.Write("</tr>" & Chr(10))
Response.Write("<tr")
If Month(CurrentDay+8) <> CurrentMonth Then
Response.Write(" class=""lastweek""")
End If
Response.Write(">" & Chr(10))
End if
CurrentDay = DateAdd("d", 1, CurrentDay)
If Month(CurrentDay) <> CurrentMonth then
CorrectMonth = False
End if
Loop
IF DayCounter <> 1 Then
Response.Write("<td align=""center"" colspan=""" & (8-DayCounter) & """ class=""blank"">&nbsp;</td>")
Else
Response.Write("<td align=""center"" colspan=""7"" class=""blank"">&nbsp;</td>")
End if
Response.Write("</tr>" & Chr(10) & "</table></div>" & Chr(10))


rs_cal.Close()
Set rs_cal = Nothing


End Function
%>


<%
'/* poll functions  */
%>


<%
Sub GetCurrentPoll()

strSQL = "SELECT ID FROM T_POLLS WHERE pActive = true"

Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.ActiveConnection = strConn
	Rs.Source = strSQL
	Rs.CursorType = 0
	Rs.CursorLocation = 2
	Rs.LockType = 1
	Rs.Open()
	
	If Not Rs.EOF Then
	intActiveID = Rs("id")
	End if
	
	Rs.Close
	Set Rs = Nothing

' check if user wants to view current results */
if request.QueryString("poll") = "currentResults" Then
call GetPollResults()
else
	' check if user can answer more than once */
	if strPollAllowMultiple = false Then
			' if not, check if user has already answered */
			if Request.Cookies("poll"&intActiveID) = "done" Then
			call GetPollResults()
			else
			' get the current poll questions if user can answer more than once */
			call GetPollQuestions()
			end if
	else
			call GetPollQuestions()
	End if
End if

End Sub
%>


<%
Sub GetPollResults()

strSQL = "SELECT * FROM V_RESULTS WHERE pActive = true ORDER BY icount DESC"

Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.ActiveConnection = strConn
	Rs.Source = strSQL
	Rs.CursorType = 0
	Rs.CursorLocation = 2
	Rs.LockType = 1
	Rs.Open()

'get total count */
strCount = 0
if not Rs.EOF Then
Rs.MoveFirst
While Not Rs.EOF
	strCount = strCount + Rs("icount")
Rs.MoveNext
Wend
Rs.MoveFirst
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="poll">
<tr> 
    <td class="pollName"><%=Rs("pName")%></td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <%
  Rs.MoveFirst
  While Not Rs.EOF
  
  ' get current percent */
if Rs("icount") = 0 Then
thisPercent = "0"
thisTableWidth = "0"
else
  thisPercent = Round ( Rs("icount") / strCount * 100 , 1 )
  thisTableWidth = Round ( Rs("icount") / strCount * 100 , 0 )
end if
  %>
  <tr> 
    <td align="center"> <table width="80%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="6"></td>
        </tr>
        <tr>
          <td height="2" bgcolor="#F1F1F1"></td>
        </tr>
        <tr>
          <td height="6"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0" class="poll">
        <tr> 
          <td width="60%"> 
<table id="bar_outer" width="100%" height="12" cellspacing="0" cellpadding="0" border="0" bgcolor="#CCCCCC">
              <tr> 
                <td> <table id="bar_inner" width="<%=thisTableWidth%>%" align="left" height="12" cellspacing="0" cellpadding="0" border="0" bgcolor="#993300">
                    <tr> 
                      <td> </td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
          <td width="40%">&nbsp;<%=thisPercent%>% (<%=Rs("icount")%>)</td>
        </tr>
        <tr> 
          <td colspan="2" align="left"><%=Rs("answer")%></td>
        </tr>
      </table></td>
  </tr>
  <%
  Rs.MoveNext
  Wend
  %>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td align="right" class="pollName"><%=strPollText_votes%>:<%=strCount%></td>
  </tr>
</table>

<%
End if

End Sub
%>


<%
Sub GetPollQuestions() 
%>
<script language="JavaScript" type="text/javascript">
<!--
function doVote(form)
   {
flag = 'stop';
   for (i=0; i<form.elements.length; i++)
      {
if (form.elements[i].type == "radio")
         	
			{
			if (form.elements[i].checked == true)
				{
				flag = 'go';
				}
			}

      
      }
	  if (flag == 'stop')
	  {
	  alert('you must select an answer');
	  return false;
	  }
	  else
	  {
	  document.forms[0].submit();
	  }
	  
   
   }
-->
</script>
<%
strSQL = "SELECT * FROM V_RESULTS WHERE pActive = true"

Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.ActiveConnection = strConn
	Rs.Source = strSQL
	Rs.CursorType = 0
	Rs.CursorLocation = 2
	Rs.LockType = 1
	Rs.Open()
	
	If Not Rs.EOF Then
	strpID = Rs("pID")
	End if

'get total count */
strCount = 0
If Not Rs.EOF Then
Rs.MoveFirst
While Not Rs.EOF
	strCount = strCount + Rs("icount")
Rs.MoveNext
Wend
Rs.MoveFirst
%>
<form name="f1" id="f1" method="get" action="poll_reg.asp">
<input type="hidden" name="pID" id="pID" value="<%=strpID%>" />
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="poll" summary="current poll">
<tr> 
    <td class="pollName"><%=Rs("pName")%></td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <%
  Rs.MoveFirst
  While Not Rs.EOF
  
  ' get current percent */
  if Not Rs("icount") = null Then
  thisPercent = Round ( Rs("icount") / strCount * 100 , 1 )
  thisTableWidth = Round ( Rs("icount") / strCount * 100 , 0 )
  else
  thisPercent = "0"
  thisTableWidth = "0"
  end if
  %>
  <tr> 
    <td align="center"> 
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="poll">
        <tr> 
          <td width="100%" colspan="2"><input type="radio" name="answer" value="<%=Rs("aID")%>" />
<%=Rs("answer")%></td>
        </tr>
      </table></td>
  </tr>
  <%
  Rs.MoveNext
  Wend
  %>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <%
  If Request.Querystring <> "" Then
  tmpUrl = Request.ServerVariables("SCRIPT_NAME")&"?"&Request.Querystring&"&poll=currentResults"
  else
  tmpUrl = "?poll=currentResults"
  end if
  %>
  <tr> 
    <td class="pollName" align="center"><input type="button" name="button" value="<%=strPollText_button%>" onclick="doVote(this.form)" /><br /><a href="<%=tmpUrl%>" title="<%=strPollText_viewRes%>"><%=strPollText_viewRes%></a>
        </td>
  </tr>
</table>
</form>
<%
else
%>
<!-- error: no polls -->
<%
end if
%>
<%
End Sub
%>


<%
'ASP Simple Blog v2.3 */
'
'Copyright (c) 2003- Year(Now()) */
'www.8pixel.net */
'All rights reserved. */
'
'This script can be used for personal use as long as this notice is not removed. */
'
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><head>
<title>BRODY Professional Development - BLOG</title>
<!-- 
ASP Simple Blog v2.3

Copyright (c) 2003-<%= Year(Now())%>
www.8pixel.net
All rights reserved.

This script can be used for personal use as long as this notice is not removed.

-->

<link href="simpleBlog.css" rel="stylesheet" type="text/css" />
<link rel="alternate" type="application/rss+xml" title="RSS Simple Blog Feed" href="<%=strServer%>rss.asp" />
<script language="javascript" type="text/javascript" src="js/jah.js"></script>
<script language="JavaScript">
var whichIsFocus;
function AddHTML(X)
{
switch (whichIsFocus) {
default:
document.forms[0].main.value+=X
break;
}
}
</script>
<script type="text/javascript" language="JavaScript" src="http://www.brodypro.com/v2/wd.js"></script>
<script type="text/javascript"  language="JavaScript" src="http://www.brodypro.com/v2/accordion.js"></script>
<script type="text/javascript" language="JavaScript">

function MM_openBrWindow(theURL,winName,features, myWidth, myHeight, isCenter) { //v3.0
	  if(window.screen)if(isCenter)if(isCenter=="true"){
		var myLeft = (screen.width-myWidth)/2;
		var myTop = (screen.height-myHeight)/2;
		features+=(features!='')?',':'';
		features+=',left='+myLeft+',top='+myTop;
	  }
	  window.open(theURL,winName,features+((features!='')?',':'')+'width='+myWidth+',height='+myHeight);
	}
	
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<script type="text/javascript">
navHover = function() {
	var lis = document.getElementById("navmenu-h").getElementsByTagName("LI");
	for (var i=0; i<lis.length; i++) {
		lis[i].onmouseover=function() {
			this.className+=" iehover";
		}
		lis[i].onmouseout=function() {
			this.className=this.className.replace(new RegExp(" iehover\\b"), "");
		}
	}
}
if (window.attachEvent) window.attachEvent("onload", navHover);
navHover = function() {
	var lis = document.getElementById("navmenu-v").getElementsByTagName("LI");
	for (var i=0; i<lis.length; i++) {
		lis[i].onmouseover=function() {
			this.className+=" iehover";
		}
		lis[i].onmouseout=function() {
			this.className=this.className.replace(new RegExp(" iehover\\b"), "");
		}
	}
}
if (window.attachEvent) window.attachEvent("onload", navHover);
</script>
<script type="text/javascript">
function applySelectedTo(link) {
  var ul = document.getElementsByTagName("ul")[0];
  var allLinks = ul.getElementsByTagName("a");
  for (var i=0; i<allLinks.length; i++) { 
    allLinks[i].className = ""; 
  }
  link.className = "selected"; 
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
</script>
<style type="text/css">
<style type="text/css">

/* Root = Vertical, Secondary = Vertical */
ul#navmenu-v,
ul#navmenu-v li,
ul#navmenu-v ul {
  margin: 0;
  border: 0 none;
  padding: 0;
  width: 160px; /*For KHTML*/
  list-style: none;
}

ul#navmenu-v:after /*From IE 7 lack of compliance*/{
  clear: both;
  display: block;
  font: 1px/0px serif;
  content: ".";
  height: 0;
  visibility: hidden;
}

ul#navmenu-v li {
  float: left; /*For IE 7 lack of compliance*/
  display: block !important; /*For GOOD browsers*/
  display: inline; /*For IE*/
  position: relative;
}

/* Root Menu */
ul#navmenu-v a {
  border: 1px solid #FFF;
  border-right-color: #CCC;
  border-bottom-color: #CCC;
  padding: 0 6px;
  display: block;
  background: #EEE;
  color: #666;
  font: bold 11px/24px Verdana, Arial, Helvetica, sans-serif;
  text-decoration: none;
  height: auto !important;
  height: 1%; /*For IE*/
}

/* Root Menu Hover Persistence */
ul#navmenu-v a:hover,
ul#navmenu-v li:hover a,
ul#navmenu-v li.iehover a {
  background: #CCC;
  color: #FFF;
}

/* 2nd Menu */
ul#navmenu-v li:hover li a,
ul#navmenu-v li.iehover li a {
  background: #EEE;
  color: #666;
}

/* 2nd Menu Hover Persistence */
ul#navmenu-v li:hover li a:hover,
ul#navmenu-v li:hover li:hover a,
ul#navmenu-v li.iehover li a:hover,
ul#navmenu-v li.iehover li.iehover a {
  background: #CCC;
  color: #FFF;
}

/* 3rd Menu */
ul#navmenu-v li:hover li:hover li a,
ul#navmenu-v li.iehover li.iehover li a {
  background: #EEE;
  color: #666;
}

/* 3rd Menu Hover Persistence */
ul#navmenu-v li:hover li:hover li a:hover,
ul#navmenu-v li:hover li:hover li:hover a,
ul#navmenu-v li.iehover li.iehover li a:hover,
ul#navmenu-v li.iehover li.iehover li.iehover a {
  background: #CCC;
  color: #FFF;
}

/* 4th Menu */
ul#navmenu-v li:hover li:hover li:hover li a,
ul#navmenu-v li.iehover li.iehover li.iehover li a {
  background: #EEE;
  color: #666;
}

/* 4th Menu Hover */
ul#navmenu-v li:hover li:hover li:hover li a:hover,
ul#navmenu-v li.iehover li.iehover li.iehover li a:hover {
  background: #CCC;
  color: #FFF;
}

ul#navmenu-v ul,
ul#navmenu-v ul ul,
ul#navmenu-v ul ul ul {
  display: none;
  position: absolute;
  top: 0;
  left: 160px;
}

/* Do Not Move - Must Come Before display:block for Gecko */
ul#navmenu-v li:hover ul ul,
ul#navmenu-v li:hover ul ul ul,
ul#navmenu-v li.iehover ul ul,
ul#navmenu-v li.iehover ul ul ul {
  display: none;
}

ul#navmenu-v li:hover ul,
ul#navmenu-v ul li:hover ul,
ul#navmenu-v ul ul li:hover ul,
ul#navmenu-v li.iehover ul,
ul#navmenu-v ul li.iehover ul,
ul#navmenu-v ul ul li.iehover ul {
  display: block;
}


/* Root = Horizontal, Secondary = Vertical */
ul#navmenu-h {
  margin: 0;
  border: 0 none;
  padding: 0;
  width: 800px; /*For KHTML*/
  list-style: none;
  height: 24px;
}

ul#navmenu-h li {
  margin: 0;
  border: 0 none;
  padding: 0;
  float: left; /*For Gecko*/
  display: inline;
  list-style: none;
  position: relative;
  height: 24px;
}

ul#navmenu-h ul {
  margin: 0;
  border: 0 none;
  padding: 0;
  width: 160px;
  list-style: none;
  
  display: none;
  position: absolute;
  top: 24px;
  left: 0;
}

ul#navmenu-h ul:after /*From IE 7 lack of compliance*/{
  clear: both;
  display: block;
  font: 1px/0px serif;
  content: ".";
  height: 0;
  visibility: hidden;
}

ul#navmenu-h ul li {
  width: 160px;
  float: left; /*For IE 7 lack of compliance*/
  display: block !important;
  display: inline; /*For IE*/
}

/* Root Menu */
ul#navmenu-h a {
  border: 1px solid #FFF;
  border-right-color: #CCC;
  border-bottom-color: #CCC;
  padding: 0 6px;
  float: none !important; /*For Opera*/
  float: left; /*For IE*/
  display: block;
  background: #EEE;
  color: #666;
  font: bold 11px/24px Verdana, Arial, Helvetica, sans-serif;
  text-decoration: none;
  height: auto !important;
  height: 1%; /*For IE*/
}

/* Root Menu Hover Persistence */
ul#navmenu-h a:hover,
ul#navmenu-h li:hover a,


ul#navmenu-h li.iehover a {
  background: #999;
  color: #FFF;
}

/* 2nd Menu */
ul#navmenu-h li:hover li a,
ul#navmenu-h li.iehover li a {
  float: none;
  background: #EEE;
  color: #666;
}

/* 2nd Menu Hover Persistence */
ul#navmenu-h li:hover li a:hover,
ul#navmenu-h li:hover li:hover a,
ul#navmenu-h li.iehover li a:hover,
ul#navmenu-h li.iehover li.iehover a {
  background: #999;
  color: #A0B83B;
}

/* 3rd Menu */
ul#navmenu-h li:hover li:hover li a,
ul#navmenu-h li.iehover li.iehover li a {
  background: #EEE;
  color: #666;
}

/* 3rd Menu Hover Persistence */
ul#navmenu-h li:hover li:hover li a:hover,
ul#navmenu-h li:hover li:hover li:hover a,
ul#navmenu-h li.iehover li.iehover li a:hover,
ul#navmenu-h li.iehover li.iehover li.iehover a {
  background: #CCC;
  color: #A0B83B;
}

/* 4th Menu */
ul#navmenu-h li:hover li:hover li:hover li a,
ul#navmenu-h li.iehover li.iehover li.iehover li a {
  background: #666;
  color: #666;
}

/* 4th Menu Hover */
ul#navmenu-h li:hover li:hover li:hover li a:hover,
ul#navmenu-h li.iehover li.iehover li.iehover li a:hover {
  background: #666;
  color: #666;
}

ul#navmenu-h ul ul,
ul#navmenu-h ul ul ul {
  display: none;
  position: absolute;
  top: 0;
  left: 160px;
}

/* Do Not Move - Must Come Before display:block for Gecko */
ul#navmenu-h li:hover ul ul,
ul#navmenu-h li:hover ul ul ul,
ul#navmenu-h li.iehover ul ul,
ul#navmenu-h li.iehover ul ul ul {
  display: none;
}

ul#navmenu-h li:hover ul,
ul#navmenu-h ul li:hover ul,
ul#navmenu-h ul ul li:hover ul,
ul#navmenu-h li.iehover ul,
ul#navmenu-h ul li.iehover ul,
ul#navmenu-h ul ul li.iehover ul {
  display: block;
}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #C0C0C0;
}
a:link {
	color: #666666;
	text-decoration:none;
}
a:visited {
	color: #666666;
	text-decoration: none;
}
a:hover {
	color: #fa8a31;
	text-decoration: none;
}
a:active {
	color: #fa8a31;
	text-decoration:none;
}
.style47 {font-family: Geneva, Arial, Helvetica, sans-serif; font-size: 12px; color: #FFFFFF; }
.style48 {font-size: 12px; font-family: Geneva, Arial, Helvetica, sans-serif;}
.style55 {font-family: Geneva, Arial, Helvetica, sans-serif; font-size: 16px; color: #000066;}

.style38 {color: #FFFFFF}
.style56 {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	color: #CCCCCC;
}
.style57 {color: #666666}
.style68 {	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	color: #666666;
}
.style67 {
	color: #999999;
	font-style: italic;
	font-size: 11px;
}
.style49 {font-size: 12px}
.style69 {font-family: Geneva, Arial, Helvetica, sans-serif}
.style74 {
	font-size: 16px;
	font-weight: bold;
	font-family: Arial, Helvetica, sans-serif;
	color: #000066;
}
.style75 {color: #333333}
.style76 {font-family: Geneva, Arial, Helvetica, sans-serif; font-size: 12px; color: #000000; }
.style78 {	font-style: italic;
	font-size: 10px;
	color: #000066;
	font-family: Arial, Helvetica, sans-serif;
}
.style79 {	font-size: 12px;
	font-family: Geneva, Arial, Helvetica, sans-serif;
	font-weight: bold;
	color: #000000;
}
</style>
<script src="http://www.brodypro.com/v2/Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<script type="text/javascript" src="http://www.brodypro.com/v2/stlib.js"></script>
</head>
<body>
<span> </span>
<table width="809" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#999999">
  <tr>
    <td width="805"><table width="805" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
      <tr>
        <td width="805" height="103" align="center" valign="top" bgcolor="#FFFFFF"><table width="800" height="241" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="288" align="left" valign="top" background="http://www.brodypro.com/v2/pattern_grid.jpg" class="style55"><table width="258" border="0" cellspacing="5" cellpadding="0">
              <tr>
                <td width="248" valign="top"><table width="225" height="84" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="225" height="84" valign="top"><span class="style56"><img src="http://www.brodypro.com/v2/shopping_cart.gif" width="11" height="11" /><a href="http://www.brodypro.com/v2/products_ebooks.html"> Products </a><span class="style57">| </span><img src="http://www.brodypro.com/v2/document_help_16.gif" width="11" height="11" /><a href="http://www.brodypro.com/v2/l_resources.html"> Free Support</a><span class="style57"> | <img src="http://www.brodypro.com/v2/home_16.gif" width="11" height="11" /></span><a href="http://www.brodypro.com/v2/home.html"> Home</a></span> <br />
                      <br />
                      <table width="202" height="23" cellpadding="0" cellspacing="0" class="style68">
                        <tr>
                          <td width="0"><input name="Email1" type="text" class="style68" value="" size="33" /></td>
                          <td width="20" align="right" valign="middle"><input type="image"  src="http://www.brodypro.com/v2/mail.gif" width="20" height="20" name="cmdSubmit" ></td>
                        </tr>
                        <tr>
                          <td colspan="2" class="style78">Sign up for monthly techniques, articles &amp; offerings, and receive a free eproduct!</td>
                        </tr>
                      </table>
                      <br /></td>
                  </tr>
                </table></td>
              </tr>
            </table></td>
            <td width="343" height="50" align="right" valign="bottom" background="http://www.brodypro.com/v2/pattern_grid.jpg"></td>
            <td width="173" align="center" valign="top" background="http://www.brodypro.com/v2/pattern_grid.jpg"><br />
                    <img src="http://www.brodypro.com/v2/transGIf.gif" alt="Brody Professional Development" width="150" height="72" /></td>
          </tr>
          <tr>
            <td height="1" colspan="3" align="left" valign="bottom" background="http://www.brodypro.com/v2/pattern_grid.jpg" class="style55"><ul id="navmenu-h">
              <li><a href="http://www.brodypro.com/v2/home.html" class="style69">Home</a></li>
<li><a href="http://www.brodypro.com/v2/Training_Workshops.html">Training Workshops</a></li>
<li><a href="http://www.brodypro.com/v2/experience.html">The Experience</a></li>
<li><a href="http://www.brodypro.com/v2/l_resources.html">Learning Resources</a></li>
<li><a href="http://www.brodypro.com/v2/faqs.html">FAQs</a></li>
<li><a href="http://www.brodypro.com/v2/l_connect.html">Let's Connect</a></li>
<li><a href="/v2/MB_home.html">Marjorie Brody</a></li>
<li><a href="http://www.brodypro.com/blog/default.asp">Blog</a></li>
</ul></td>
          </tr>
          <tr>
            <td height="94" colspan="4" valign="top" bgcolor="#FFFFFF"><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','800','height','93','src','Blog_Banner','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','Blog_Banner' ); //end AC code
            </script>
              <noscript>
              <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="800" height="93">
                <param name="movie" value="Blog_Banner.swf" />
                <param name="quality" value="high" />
                <embed src="letsconnect.swf" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="800" height="93"></embed>
              </object>
              </noscript></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td bgcolor="#eeeeee"><table width="800" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><table width="805" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="795" background="http://www.brodypro.com/v2/bar2.jpg">&nbsp;</td>
              </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td valign="top" bgcolor="#FFFFFF"><table width="805" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="67" align="center" valign="top"><% if request.QueryString("comments") = 1 Then %>
<body onLoad="jah('comments_get.asp?id=<%=request.QueryString("id")%>','dComments__<%=request.QueryString("id")%>');">
<% else %>
<body>
<% end if %>

<div id="d_body">
	<div id="d_outerbox">
		
		
			<div id="d_contentbody" align="left">
				<div id="d_contentbody_left">
					<!-- repeat DIV for each blog entry begin -->
					<% Call getBlogs() %><br />
					<!-- repeat DIV for each blog entry ends  -->
	  </div>
				<div id="d_contentbody_right">
				<% Call blogCalendar %>
				<h3 class="c_cHeader">recent posts</h3>
				<% call getRecentPosts() %>
				<h3 class="c_cHeader">archives</h3>
				<% call getArchives() %>
				<p><% call GetCurrentPoll() %></p>
                <p align="center"><a href="http://twitter.com/BRODYProfessDev" target="_blank"><b>Follow BRODY on Twitter!</a></p>
                <script src="http://widgets.twimg.com/j/2/widget.js"></script>
<script>
new TWTR.Widget({
  version: 2,
  type: 'profile',
  rpp: 4,
  interval: 6000,
  width: 250,
  height: 300,
  theme: {
    shell: {
      background: '#ffffff',
      color: '#ffffff'
    },
    tweets: {
      background: '#ffffff',
      color: '#787a7a',
      links: '#fa8b31'
    }
  },
  features: {
    scrollbar: false,
    loop: false,
    live: false,
    hashtags: true,
    timestamp: true,
    avatars: false,
    behavior: 'all'
  }
}).render().setUser('BRODYProfessDev').start();
</script>
					<div style="float:right">&nbsp;
					<a href="rss.asp" title="rss feed"><img src="template_img/outLink_rss.gif" alt="rss feed" border="0" /></a>					</div>
				</div>
  </div>
</div>
</div></td>
            </tr>
          <tr>
            <td bgcolor="#6674A4"><blockquote>
              <p><span class="style47"><br />215-886-1688 or </span><span class="style48"><a href="mailto:info@brodypro.com"><span class="style38">info@brodypro.com</span></a></span></a></span><span class="style47"><br />
&copy; 2011 BRODY Professional Development. All Rights Reserved.   </span></p>
            </blockquote></td>
          </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>
<map name="Map" id="Map">
  <area shape="rect" coords="2,3,136,29" href="#" />
</map>

<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
</script>
<script type="text/javascript">
var pageTracker = _gat._getTracker("UA-5157989-7");
pageTracker._trackPageview();
</script>
</body>
</html>