| Author |
 Topic  |
|
antracit
Starting Member
Sweden
33 Posts |
 Posted - 23 September 2002 : 04:31:36
|
Ok sorry
Some members put bad carracters in that feild. Not the http:// string ore the wrong adress.. |
johan |
 |
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 23 September 2002 : 05:07:27
|
Yes, bad addresses will mess it up unfortunately. i am editing them all the time.
@tomic |
SportsBettingAcumen.com |
|
|
|
serverhacker
Junior Member
USA
125 Posts |
Posted - 24 September 2002 : 03:52:35
|
Hello, @tomic
I am trying to setup your mod on my site I have 2 test sites, the one site has users with photos, and your mod works fine. The other test site only has admin with on photo. and I get this error:
----------------------------------------------------------------------------------------------------------------
ADODB.Recordset error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/forum/include/member_spotlight.asp, line 26
----------------------------------------------------------------------------------------------------------------
this is what my "member_spotlight.asp" file looks like:
----------------------------------------------------------------------------------------------------------------
<%
Response.Write "<table width=""100%"" border=""0"" bordercolor=""" & strTableBorderColor & """ cellspacing=""1"" cellpadding=""0"" bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
"<tr>" & vbNewLine & _
"<td bgcolor=""" & StrHeadCellColor & """>" & vbNewLine & _
"<font size=""4"" color=""" & StrHeadFontColor & """> Member Spotlight</font>" & vbNewLine & _
"</td>" & vbNewLine & _
"</tr>" & vbNewLine & _
"<tr>" & vbNewLine & _
"<td align=""left"">" & vbNewLine & _
"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
"<tr>" & vbNewLine & _
"<td>" & 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><td align=center bgcolor=""" & strForumCellColor & """><br>" & vbCrLf & _
" <a href=""" & strForumURL & "pop_profile.asp?mode=display&id="& rsMemInSpot("member_id") & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & rsMemInSpot("M_NAME") & "</b></font></A><br><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 " <img src=" & ChkString(rsMemInSpot("M_PHOTO_URL"), "display") & vbCrLf
elseif lcase(left(strMemInSpot,7)) <> "http://" then
Response.write " <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 getCurrentIcon(strIconPhotoNone,"No Photo Available","hspace=""0"" vspace=""4""") & "<br>" & vbCrLf _
end if
Response.Write " <table><td><a href=""" & strForumURL & "pop_profile.asp?mode=display&id="& rsMemInSpot("member_id") & """><img SRC=""" & strImageURL & "icon_member.gif"" border=""0""></A></td><td nowrap><a href=""" & strForumURL & "pop_profile.asp?mode=display&id="& rsMemInSpot("member_id") & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & rsMemInSpot("M_NAME") & "'s Profile</font></A></td></table>" & vbCrLf
Response.Write " </td></tr>"
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
%>
----------------------------------------------------------------------------------------------------------------
Any help would be great 
|
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 24 September 2002 : 04:20:08
|
This was made specifically to show profiles with photos so i am not at all surprised by the error.
Try it with this line removed:
strSql = strSql & " WHERE FORUM_MEMBERS.M_PHOTO_URL <> ''"
@tomic |
SportsBettingAcumen.com |
|
|
|
serverhacker
Junior Member
USA
125 Posts |
Posted - 24 September 2002 : 13:29:52
|
Thanks, @tomic
That fixed it  |
|
|
|
al_iguana
Junior Member
138 Posts |
|
|
PeeWee.Inc
Senior Member
United Kingdom
1893 Posts |
Posted - 16 October 2002 : 17:59:46
|
| Where it says "xev's profile" i want it to show the Icon_Profile.gif ......... how would i do this? |
De Priofundus Calmo Ad Te Damine |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 16 October 2002 : 19:22:28
|
After:
strMemInSpot = rsMemInSpot("M_PHOTO_URL")
Add:
Member_ID = rsMemInSpot("MEMBER_ID")
Member_Name = rsMemInSpot("M_NAME")
The following will set up your icon and make it link to the correct member:
profileLink(getCurrentIcon(strIconProfile,"Show " & Member_Name & "'s Profile","align=""absmiddle"" hspace=""6"""),Member_ID)
@tomic |
SportsBettingAcumen.com |
|
|
|
padawan
Junior Member
200 Posts |
Posted - 16 October 2002 : 23:30:57
|
quote:
Originally posted by @tomic
After:
strMemInSpot = rsMemInSpot("M_PHOTO_URL")
Add:
Member_ID = rsMemInSpot("MEMBER_ID")
Member_Name = rsMemInSpot("M_NAME")
The following will set up your icon and make it link to the correct member:
profileLink(getCurrentIcon(strIconProfile,"Show " & Member_Name & "'s Profile","align=""absmiddle"" hspace=""6"""),Member_ID)
@tomic
sir @tomic,
...just echoing sir Iguana's question... How do we get the member avatar to show rather than the photo?
much appreciate it!
- padawan |
"...be mindful of the SnitzForce..." |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 16 October 2002 : 23:51:45
|
strSql = "SELECT " & strTablePrefix & "MEMBERS.MEMBER_ID, " & strTablePrefix & "MEMBERS.M_AVATAR_URL, " & strTablePrefix & "MEMBERS.M_NAME, "
strMemInSpot = rsMemInSpot("M_AVATAR_URL")
change all instances of M_PHOTO_URL to M_AVATAR_URL
Adjust the width and height accordingly.
@tomic |
SportsBettingAcumen.com |
|
|
|
richfed
Average Member
United States
999 Posts |
Posted - 18 October 2002 : 21:39:16
|
quote:
Originally posted by antracit
Is it difficult to make this mod work with 3.3.xxx (ore 4.0B0.3 international)?
Older versions than 3.4 
Works great for me on 3.3.05! Just add a link to the file ...
I've got some editing questions: [remember I am illiterate, or near, in reading this stuff, so go easy, please!]
- Can the words "No Photo Available" be shown, in lieu of the photo, if the user has none in their profile? It looks like the code does this, but, of course, it doesn't.
- The top and bottom links both point to the same place - the user's profile - How can I "deactivate" one of them into plain text?
- Can you go over, again, how to add another profile field, say "rank" to the box, perhaps just under their user name?
Thanks for bearing with me ... |
Rich
[size=1]A Complete Idiot's Guide to MOD Implementation || On the Trail of the Last of the Mohicans[/size=1] |
|
|
|
PeeWee.Inc
Senior Member
United Kingdom
1893 Posts |
Posted - 19 October 2002 : 07:07:19
|
| what one would you like to be plain text? |
De Priofundus Calmo Ad Te Damine |
|
|
|
PeeWee.Inc
Senior Member
United Kingdom
1893 Posts |
Posted - 19 October 2002 : 09:26:31
|
Where it says the user name a the top it will link to the profile, if you dont want it to link do this:
line 37:
" <a href=""" & strForumURL & "pop_profile.asp?mode=display&id="& rsMemInSpot("member_id") & """><font class=""DefaultFont""><b>" & rsMemInSpot("M_NAME") & "</b></font></A><br>" & vbCrLf
Replace that with:
" <font class=""DefaultFont""><b>" & rsMemInSpot("M_NAME") & "</b></font></A><br>" & vbCrLf |
De Priofundus Calmo Ad Te Damine |
|
|
|
richfed
Average Member
United States
999 Posts |
|
|
pox
Junior Member
Denmark
110 Posts |
Posted - 27 October 2002 : 05:10:08
|
mmm.. mine says
Member Spotlight
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/members_spotlite.asp, line 30
and this is my members_spotlite.asp
<%
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=""" & strHeadCellColor & """ 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 face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """>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 face=""" & strDefaultFontFace & """ color=""" & strDefaultFontColor & """ size=""" & strDefaultFontSize & """><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 getCurrentIcon(strIconPhotoNone,"No Photo Available","hspace=""0"" vspace=""4""") & "<br>" & vbCrLf _
end if
Response.Write " <a href=""" & strForumURL & "pop_profile.asp?mode=display&id="& rsMemInSpot("member_id") & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & 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>"
%>
The red code is line 30.
http://www.psytrance.dk/members_spotlite.asp you can see for your self here.. ;) |
Edited by - pox on 27 October 2002 05:16:29 |
|
|
|
Topic |
|
Topic Locked
