Google Ads - Section Targeting

   <!-- Start Member Post -->
   <!-- google_ad_section_start -->
   <div class="msgBody" style="float:left; overflow:auto;">
   <% = strMessage %>
   </div>
   <!-- google_ad_section_end -->
   <!-- End Member Post -->

  <!-- google_ad_section_start(weight=ignore) -->
  
   <a name="<% = lngMessageID %>"></a>
   <a href="member_profile.asp?PF=<% =lngUserID %>&FID=<% = intForumID & strQsSID2 %>"><% = strUsername %></a>
   <br /><% = strGroupName %>
   <br /><img src="<% If strRankCustomStars <> "" Then Response.Write(strRankCustomStars) Else Response.Write(strImagePath & intRankStars & "_star_rating.gif") %>" alt="<% = strGroupName %>"/>
   <br /><%

         'If the user has an avatar then display it
         If blnAvatar = True AND strAuthorAvatar <> "" Then Response.Write("<img src=""" & strAuthorAvatar & """ alt=""" & strTxtAvatar & """ class=""avatar"" onError=""this.src='avatars/blank_avatar.jpg';""/>")
         'If there is a title for this member then display it
         If strMemberTitle <> "" Then Response.Write(vbCrLf & "   <br />" & strMemberTitle)
         'If not a guest post then display some details
         If lngUserID <> 2 Then
           'Show the joined date
           Response.Write(vbCrLf & "   <br /><br />" & strTxtJoined & ": " & DateFormat(dtmAuthorRegistration))
           'If the is a location display it
           If strAuthorLocation <> "" Then Response.Write(vbCrLf & "   <br />" & strTxtLocation & ": " & strAuthorLocation)

   'If active users is enabled see if the user is online
   If blnActiveUsers Then
    'Display if the user is online
    blnIsUserOnline = False
    'Loop through the active users array
    For intLoop = 1 To UBound(saryActiveUsers, 2)
     If saryActiveUsers(1, intLoop) = lngUserID Then blnIsUserOnline = True
    Next
    'Display if the user is online
    If blnIsUserOnline Then Response.Write(vbCrLf & "   <br />" & strTxtOnlineStatus & ": " & strTxtOnLine2) Else Response.Write(vbCrLf & "      <br />" & strTxtOnlineStatus & ": " & strTxtOffLine)
   End If

           'Display the num of posts
           Response.Write(vbCrLf & "   <br />" & strTxtPosts & ": " & lngAuthorNumOfPosts)
  End If
%>
<!-- google_ad_section_end -->