Snitz Forums 2000 - Member Spotlight

Author

Topic

United Kingdom
430 Posts

Posted - 22 May 2010 : 09:46:02

I have added this mod but need to add a space above (the same as below) What do I add above the  to give me that space??

The few lines of code above and below..

     Response.Write "</td>" & vbNewline
                     Response.Write "              </tr>" & vbNewline
                  end if ' ##### Added as part of Minimize Category Mod #####
               else
                  blnHiddenForums = true
               end if ' ChkDisplayForum()
            end if
         next '## Next Forum
      end if
   next '## Next Category
end if
 if strPMStatus = "1" then
%>
<!--#INCLUDE FILE="privatemess.asp"-->
<% end if

%> <!-- #include file="inc_classifieds.asp" --><%



%><!--#include file="member_spotlight.asp"--><%





%><!--#include file="inc_activeusers.asp"--><%

'##### Recently Seen Members #####
Call DisplayRecentlySeen(20,"simple")
'#################################



if strShowStatistics = "1" then
   WriteStatistics
end if
Response.Write "            </table>" & vbNewline & _
      "          </td>" & vbNewline & _
      "        </tr>" & vbNewline & _
      "        <tr>" & vbNewline & _
      "          <td>" & vbNewline & _

      "            <table width=""100%"">" & vbNewline & _
      "              <tr>" & vbNewline & _
      "                <td><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewline & _
      "                " & getCurrentIcon(strIconFolderNew,"New Posts","align=""absmiddle""") & " Contains new posts since last visit.<br />" & vbNewline & _
      "                " & getCurrentIcon(strIconFolder,"Old Posts","align=""absmiddle""") & " No new posts since the last visit.<br /></font></td>" & vbNewline & _
      "              </tr>" & vbNewline & _
      "            </table>" & vbNewline & _
      "          </td>" & vbNewline & _
      "        </tr>" & vbNewline & _
      "      </table>" & vbNewline

Edited to add the code

Dave

No good at coding, but I can plough a field !!

Edited by - thermal_seeker on 22 May 2010 10:34:57

thermal_seeker
Junior Member

United Kingdom
430 Posts

Posted - 26 May 2010 : 16:10:49

sorted

No good at coding, but I can plough a field !!

AnonJr
Moderator

United States
5768 Posts

Posted - 26 May 2010 : 18:41:28

Do I dare ask what the issue was? Just want to make sure the next poor soul can find an answer if s/he has the same issue.

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 27 May 2010 : 04:48:25

You just have to close and reopen the table.

Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”

Classicmotorcycling
Development Team Leader

Australia
2085 Posts

Posted - 27 May 2010 : 05:23:34

I have added it and used the space in the Calendar at the top of the forum: Classic Motorcycling Australia Forum

Cheers,

David Greening

thermal_seeker
Junior Member

United Kingdom
430 Posts

Posted - 28 May 2010 : 17:26:21

sorry, I should have said how I sorted it...

I added

 Response.Write "            </table>" & vbNewline & _
  "          </td>" & vbNewline & _
      "        </tr>" & vbNewline & _
      "        <tr>" & vbNewline & _
      "          <td>" & vbNewline & _
      "    <br />" & VBNewLine & _

at the top of member_spotlight.asp

there maybe too many lines there but at least it works

I did try and put it to the left of the events calendar, similar to Classic Motorcycling Australia Forum but couldnt manage it...

Dave

No good at coding, but I can plough a field !!

thermal_seeker
Junior Member

United Kingdom
430 Posts

Posted - 13 June 2010 : 16:48:56

I'm going from bad to worse now

I have put the member spotlight at the top and now it is touching the next grid down and I cant for the life of me get a gap between the two.

I have managed to change the colour of the header from blue to white.

My member_spotlight

<%


response.write  "<table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0"" bgcolor=" & strHeadCellColor & ">" & vbCrLf & _
             "   <tr>" & vbCrLf & _
               "     <td align=""left"" valign=""top"">" & vbCrLf & _
            "       <table BORDER=""0"" bordercolor=""#000099"" cellspacing=""1"" cellpadding=""0"" width=""100%"">" & vbCrLf & _
               "          <tr>" & vbCrLf & _
               "              <td valign=""top"">" & vbCrLf & _
               "              <table border=""0"" cellspacing=""0"" cellpadding=""0"" width=""100%"">" & vbCrLf & _
               "                 <tr>" & vbCrLf & _
               "                 <td align=""center"" bgcolor=" & strHeadCellColor & ">" & vbCrLf & _
            "                     <table width=""100%"" cellpadding=""2"">" & vbCrLf & _
               "                        <tr>" & vbCrLf & _
               "                           <td valign=""top"" align=""center""><font size=" & strDefaultFontSize & " color=" & strCategoryFontColor & ">Member Spotlight</font></td>" & vbCrLf & _
               "                        </tr>" & vbCrLf & _
               "              </table>" & vbCrLf & _
               "              </td>" & vbCrLf & _
               "         </tr>" & vbCrLf & _
               "         <tr>" & vbCrLf & _ 
               "            <td bgcolor=" & strForumCellColor & ">" & vbCrLf & _
               "            <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""2"">"





'START MEMBER IN SPOTLITE SCRIPT
function MemInSpot
   set rsMemInSpot = Server.CreateObject("ADODB.Recordset")
   strSql = "SELECT " & strTablePrefix & "MEMBERS.MEMBER_ID, " & strTablePrefix & "MEMBERS.M_PHOTO_URL, " & strTablePrefix & "MEMBERS.M_NAME, "
   strSql = strSql & strTablePrefix & "MEMBERS.M_FIRSTNAME, " & strTablePrefix & "MEMBERS.M_LASTNAME, " & strTablePrefix & "MEMBERS.M_AGE"
   strSql = strSql & " FROM " & strTablePrefix & "MEMBERS"
   strSql = strSql & " WHERE FORUM_MEMBERS.M_PHOTO_URL <> ''"
   rsMemInSpot.Open strSql, my_Conn,3,,adCmdText
   Dim intRnd
   Randomize Timer
   intRnd = (Int(RND * rsMemInSpot.RecordCount))
   rsMemInSpot.Move intRnd
   strMemInSpot = rsMemInSpot("M_PHOTO_URL")
   Response.Write "  <tr><td align=center bgcolor=""" & strForumCellColor & """>" & vbCrLf & _
      "  <a href=""" & strForumURL & "pop_profile.asp?mode=display&id="& rsMemInSpot("member_id") & """><font class=""DefaultFont""><b>" & rsMemInSpot("M_NAME") & "</b></font></A><br>" & vbCrLf
      if Trim(rsMemInSpot("M_PHOTO_URL")) <> "" and lcase(rsMemInSpot("M_PHOTO_URL")) <> "http://" then
      if lcase(left(strMemInSpot,7)) = "http://" then
       Response.write " <a href=" & ChkString(rsMemInSpot("M_PHOTO_URL"), "display")& ">" & vbCrLf & _
               "     <img src=" & ChkString(rsMemInSpot("M_PHOTO_URL"), "display") & vbCrLf
               elseif lcase(left(strMemInSpot,7)) <> "http://" then
      Response.write " <a href=" & strForumURL & "images/" & ChkString(rsMemInSpot("M_PHOTO_URL"), "display")& ">" & vbCrLf & _
               "     <img src=" & strForumURL & "images/" & ChkString(rsMemInSpot("M_PHOTO_URL"), "display")& vbCrLf
               end if
      Response.write "     alt=" & ChkString(rsMemInSpot("M_NAME"),"display")& vbCrLf & _
               "     width=""120"" height=""120"" border=""0"" hspace=""0"" vspace=""4""></a><br>" & vbCrLf
      else
       Response.Write " <img src=/forum/no_photo.gif alt=""no photo available"" width=""150"" height=""150"" border=""0"" hspace=""0"" vspace=""4""><br>" & vbCrLf _
      end if
'      Response.Write "       <a href=""" & strForumURL & "pop_profile.asp?mode=display&id="& rsMemInSpot("member_id") & """><font class=""SmallFont"">" & rsMemInSpot("M_NAME") & "#039;s Profile</font></A><br>" & vbCrLf
      Response.Write "     </td></tr>"
      rsMemInSpot.Close
      Set rsMemInSpot = Nothing
end function
'END MEMBER IN SPOTLITE SCRIPT



call MemInSpot



Response.Write "               </td>" & vbCrLf & _
            "          </tr>" & vbCrLf & _
            "      </table>" & vbCrLf & _
               "      </td>" & vbCrLf & _
            "  </tr>" & vbCrLf & _
            "</table>" & vbCrLf & _
            "</td>" & vbCrLf & _
            "</tr>" & vbCrLf & _
            "</table>" & vbCrLf & _
            "</td>" & vbCrLf & _
            "</tr>" & vbCrLf & _
            "</table>"



%>

any advice gratefully received

Dave

No good at coding, but I can plough a field !!

Classicmotorcycling
Development Team Leader

Australia
2085 Posts

Posted - 13 June 2010 : 18:09:16

Try using this (did a tidy up of the code and found an extra <td> and <tr>:

<%
response.write	"<table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0"" bgcolor=" & strHeadCellColor & ">" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td align=""left"" valign=""top"">" & vbNewLine & _
		"			<table BORDER=""0"" bordercolor=""#000099"" cellspacing=""1"" cellpadding=""0"" width=""100%"">" & vbNewLine & _
		"				<tr>" & vbNewLine & _
		"					<td valign=""top"">" & vbNewLine & _
		"						<table border=""0"" cellspacing=""0"" cellpadding=""0"" width=""100%"">" & vbNewLine & _
		"							<tr>" & vbNewLine & _
		"								<td align=""center"" bgcolor=" & strHeadCellColor & ">" & vbNewLine & _
		"									<table width=""100%"" cellpadding=""2"">" & vbNewLine & _
		"										<tr>" & vbNewLine & _
		"											<td valign=""top"" align=""center""><font size=" & strDefaultFontSize & " color=" & strCategoryFontColor & ">Member Spotlight</font></td>" & vbNewLine & _
		"										</tr>" & vbNewLine & _
		"									</table>" & vbNewLine & _
		"								</td>" & vbNewLine & _
		"							</tr>" & vbNewLine & _
		"							<tr>" & vbNewLine & _
		"								<td bgcolor=" & strForumCellColor & ">" & vbNewLine & _
		"									<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""2"">" & vbNewLine
'START MEMBER IN SPOTLITE SCRIPT
function MemInSpot

	set rsMemInSpot = Server.CreateObject("ADODB.Recordset")

	strSql = "SELECT " & strTablePrefix & "MEMBERS.MEMBER_ID, " & strTablePrefix & "MEMBERS.M_PHOTO_URL, " & strTablePrefix & "MEMBERS.M_NAME, "
	strSql = strSql & strTablePrefix & "MEMBERS.M_FIRSTNAME, " & strTablePrefix & "MEMBERS.M_LASTNAME, " & strTablePrefix & "MEMBERS.M_AGE"
	strSql = strSql & " FROM " & strTablePrefix & "MEMBERS"
	strSql = strSql & " WHERE FORUM_MEMBERS.M_PHOTO_URL <> ''"
	rsMemInSpot.Open strSql, my_Conn,3,,adCmdText

	Dim intRnd

	Randomize Timer

	intRnd = (Int(RND * rsMemInSpot.RecordCount))

	rsMemInSpot.Move intRnd

	strMemInSpot = rsMemInSpot("M_PHOTO_URL")

	Response.Write	"										<tr>" & vbNewLine & _
			"											<td align=center bgcolor=""" & strForumCellColor & """>" & vbNewLine & _
			"												<a href=""" & strForumURL & "pop_profile.asp?mode=display&id="& rsMemInSpot("member_id") & """><font class=""DefaultFont""><b>" & rsMemInSpot("M_NAME") & "</b></font></A><br>" & vbNewLine
		if Trim(rsMemInSpot("M_PHOTO_URL")) <> "" and lcase(rsMemInSpot("M_PHOTO_URL")) <> "http://" then
			if lcase(left(strMemInSpot,7)) = "http://" then
				Response.write	"											<a href=" & ChkString(rsMemInSpot("M_PHOTO_URL"), "display")& ">" & vbNewLine & _
						"											<img src=" & ChkString(rsMemInSpot("M_PHOTO_URL"), "display") & vbNewLine
              		elseif lcase(left(strMemInSpot,7)) <> "http://" then
				Response.write	"											<a href=" & strForumURL & "images/" & ChkString(rsMemInSpot("M_PHOTO_URL"), "display") & ">" & vbNewLine & _
						"											<img src=" & strForumURL & "images/" & ChkString(rsMemInSpot("M_PHOTO_URL"), "display") & vbNewLine
			end if
			Response.write	" alt=" & ChkString(rsMemInSpot("M_NAME"),"display") & vbNewLine & _
					" width=""120"" height=""120"" border=""0"" hspace=""0"" vspace=""4""></a><br />" & vbNewLine
		else
			Response.Write	"												<img src=/forum/no_photo.gif alt=""no photo available"" width=""150"" height=""150"" border=""0"" hspace=""0"" vspace=""4""><br>" & vbNewLine
		end if
'	Response.Write	"												<a href=""" & strForumURL & "pop_profile.asp?mode=display&id="& rsMemInSpot("member_id") & """><font class=""SmallFont"">" & rsMemInSpot("M_NAME") & "#039;s Profile</font></A><br />" & vbNewLine

      rsMemInSpot.Close
      Set rsMemInSpot = Nothing
end function

'END MEMBER IN SPOTLITE SCRIPT
call MemInSpot
Response.Write	"											</td>" & vbNewLine & _
		"										</tr>" & vbNewLine & _
		"									</table>" & vbNewLine & _
		"								</td>" & vbNewLine & _
		"							</tr>" & vbNewLine & _
		"						</table>" & vbNewLine & _
		"					</td>" & vbNewLine & _
		"				</tr>" & vbNewLine & _
		"			</table>" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"</table><br />" & vbNewLine
%>

If you want I can zip up the stuff I did to get it working in the Calendar!

Cheers,

David Greening

thermal_seeker
Junior Member

United Kingdom
430 Posts

Posted - 13 June 2010 : 18:18:58

ok scrap the above ... I have managed (although god knows how) to get the spotlight in the events calendar.

The one thing I cant do is get rid of the "recent events" wording.

I think it is relative to the code in red??

Response.Write " </TD><TD width=""33%"" bgcolor=""" & strForumCellColor & """ valign=""top"" class=""cal_smallfont"">" & strCalUpcoming & " " & vbNewLine
WriteUpcomingEvents
Response.Write " </TD>" & vbNewLine & _
" <TD width=""33%"" bgcolor=""" & strForumCellColor & """ valign=""top"" class=""cal_smallfont"">" & strCalRecent & " " & vbNewLine
'WriteRecentEvents
%><%

I think I need to keep the division width at 33%

Dave

EDIT: I think I have cracked it but would like someone just to cast their eye over the code to make sure I have done it correctly...

Response.Write " </TD><TD width=""33%"" bgcolor=""" & strForumCellColor & """ valign=""top"" class=""cal_smallfont"">" & strCalUpcoming & " " & vbNewLine
WriteUpcomingEvents
Response.Write " </TD>" & vbNewLine & _
" <TD width=""33%"" & valign=""top"" > " & vbNewLine

%><%

Thanks

Dave

No good at coding, but I can plough a field !!

Edited by - thermal_seeker on 13 June 2010 18:33:39

thermal_seeker
Junior Member

United Kingdom
430 Posts

Posted - 13 June 2010 : 18:40:48

David, sorry I should have refreshed the page before replying

I didn't see your reply...
I may have not done this in the best way but didn't need the recent events section so it seemed the logic place to put it. I did try and remove the recent events, shrink the table to 70% and put the spotlight on the right of the events table but came up with all wierd and wonderful happenings.. like the forum tables all at 30% beside the events table!!

Dave

No good at coding, but I can plough a field !!

MaD2ko0l
Senior Member

United Kingdom
1053 Posts

Posted - 14 June 2010 : 15:07:44

have you tryed removing the bit in red?

Response.Write " </TD><TD width=""33%"" bgcolor=""" & strForumCellColor & """ valign=""top"" class=""cal_smallfont"">" & strCalUpcoming & " " & vbNewLine
WriteUpcomingEvents
Response.Write " </TD>" & vbNewLine & _
" <TD width=""33%"" bgcolor=""" & strForumCellColor & """ valign=""top"" class=""cal_smallfont"">" & strCalRecent & " " & vbNewLine
'WriteRecentEvents
%><%

thermal_seeker
Junior Member

United Kingdom
430 Posts

Posted - 14 June 2010 : 17:26:05

Yes, this is what I have now:-

Response.Write " </TD><TD width=""33%"" bgcolor=""" & strForumCellColor & """ valign=""top"" class=""cal_smallfont"">" & strCalUpcoming & " " & vbNewLine
WriteUpcomingEvents
Response.Write " </TD>" & vbNewLine & _
" <TD width=""33%"" & valign=""top"" > " & vbNewLine

%><%

It looks ok on the forum but I just wanted to check that what I had done was the best way of going about it

Dave

No good at coding, but I can plough a field !!

Topic