| Author |
 Topic  |
|
PeeWee.Inc
Senior Member
United Kingdom
1893 Posts |
 Posted - 27 October 2002 : 05:40:27
|
I have made a few edits to mine but feel free to try and use the code.
<%
Response.Write " <table width=""160"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <tr>" & vbCrLf & _
" <td align=""left"" valign=""top"">" & vbCrLf & _
" <table BORDER=""0"" bordercolor=""#000000"" 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"" bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Member spotlight</font></b></td>" & vbNewLine & _
" </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=""" & black & """>" & vbCrLf & _
" <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=""100"" height=""100"" border=""1"" hspace=""0"" vspace=""4""></a><br>" & vbCrLf
else
Response.Write " <img src=/forum/images/no_photo.gif alt=""no photo available"" width=""160"" 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") & """><img src=""icon_member.gif"" alt=""Profile"" width=""15"" height=""15"" border=""0"" hspace=""10"" vspace=""4""></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>"
%>
|
De Priofundus Calmo Ad Te Damine |
 |
|
|
pox
Junior Member
Denmark
110 Posts |
Posted - 27 October 2002 : 05:48:05
|
mmm.. thats realy wierd... now i use your code, but it still makes the same error...
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
line 30 is
rsMemInSpot.Open strSql, my_Conn,3,,adCmdText |
Edited by - pox on 27 October 2002 05:50:05 |
|
|
|
PeeWee.Inc
Senior Member
United Kingdom
1893 Posts |
Posted - 27 October 2002 : 05:53:01
|
| how are you useing it? A include? |
De Priofundus Calmo Ad Te Damine |
|
|
|
DoraMoon
Average Member
Taiwan
661 Posts |
Posted - 27 October 2002 : 06:01:26
|
try change all strTablePrefix to strMemberTablePrefix in strSql,
and this line ...
strSql = strSql & " WHERE FORUM_MEMBERS.M_PHOTO_URL <> ''"
change to
strSql = strSql & " WHERE M_PHOTO_URL <> ''"
not sure it will work... i think it maybe a problem nothing related to your Spotlight mod.. |
|
|
|
tduffy
Junior Member
146 Posts |
Posted - 30 October 2002 : 02:14:03
|
| I've found out that if you include it in certain spots of default, it will give that error on line 30, but if you move it to a different area, like right above write footer, it will work just fine. |
|
|
|
tduffy
Junior Member
146 Posts |
Posted - 04 November 2002 : 17:36:57
|
| ok, so does anyone know how to make this where you can set the member in spotlight, and not make it random? |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 04 November 2002 : 20:48:03
|
I posted it in the other place you asked this same question.
@tomic |
SportsBettingAcumen.com |
|
|
|
Heynow
Junior Member
374 Posts |
Posted - 23 November 2002 : 16:58:20
|
I am trying to include this in site integration to the left side, but when I do it appears full width across the top. Any idea on how to change this?
Here is my test site.
Thanks. |
Political Forums:::Stay n Chat
 |
|
|
|
PeeWee.Inc
Senior Member
United Kingdom
1893 Posts |
Posted - 23 November 2002 : 17:11:14
|
| Looks like you have mucked up the site intergration mod a bit... try reinstalling it again and then add the code to Inc_Site_Left.asp |
De Priofundus Calmo Ad Te Damine |
|
|
|
Heynow
Junior Member
374 Posts |
Posted - 23 November 2002 : 17:13:55
|
| Thanks PeeWee, but that only happens when I put in the member_spotlight.asp other than that, all looks normal. |
Political Forums:::Stay n Chat
|
|
|
|
Heynow
Junior Member
374 Posts |
Posted - 23 November 2002 : 17:57:48
|
Maybe I'm not doing this right, but here is what I have in my inc_site_left.asp:
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="1%" align="left">
<tr>
<td width="100%" align="left">
<p align="center">
<img border="0" src="hand_computer_mouse_double_tap_lg_clr.gif" width="163" height="104"></td>
</tr>
<tr>
<td width="100%"> </td>
</tr>
<tr>
<td width="100%"> </td>
</tr>
<tr>
<td width="100%" align="left" valign="bottom"> </td>
</tr>
<tr>
<td width="100%">
<p align="center"> </td>
</tr>
<tr>
<td width="100%"> <!--#INCLUDE FILE="inc_privatemessage.asp"--></td>
</tr>
<tr>
<td width="100%">
<p align="center"> <!--#INCLUDE FILE="cal_include.asp"--></td>
</tr>
<tr>
<td width="100%"> </td>
</tr>
<tr>
<td width="100%">
<p align="center"> <!--#INCLUDE FILE="member_spotlight.asp"--></td>
</tr>
<tr>
<td width="100%"> </td>
</tr>
</table>
</div>
Am I doing something wrong? |
Political Forums:::Stay n Chat
|
|
|
|
Heynow
Junior Member
374 Posts |
Posted - 23 November 2002 : 19:04:36
|
The only way this will align right is I change some of the colors.
Response.write "<table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0"" bgcolor=" & strPageBGColor & ">" & vbCrLf & _
" <tr>" & vbCrLf & _
" <td align=""left"" valign=""top"">" & vbCrLf & _
" <table BORDER=""0"" bordercolor=""" & strPageBGColor & """ 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=" & strPageBGColor & ">" & vbCrLf & _
" <table width=""100%"" cellpadding=""2"">" & vbCrLf & _
" <tr>" & vbCrLf & _
" <td valign=""top"" align=""center""><font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strDefaultFontSize & """>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"">"
|
Political Forums:::Stay n Chat
|
|
|
|
richfed
Average Member
United States
999 Posts |
Posted - 01 December 2002 : 11:10:42
|
| So, how can one make the image featured in the Spotlight be a "pop-up" [when clicked]. I can make a pop up for hard-coded HTML, but I'm a bit confused as to how to do it in asp. |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 01 December 2002 : 14:30:43
|
Response.write " <a href=" & strForumURL & "images/" & ChkString(rsMemInSpot("M_PHOTO_URL"), "display")& " target=""_blank"">" & vbCrLf & _
Adding the part in red should do it.
@tomic |
SportsBettingAcumen.com |
|
|
|
richfed
Average Member
United States
999 Posts |
Posted - 01 December 2002 : 14:56:35
|
No, that didn't do it. My line now looks like this:
Response.write " <a href=" & strForumURL & "images/" & ChkString(rsMemInSpot("M_PHOTO_URL"), "display")& " target=""_blank"">" & vbCrLf & _
It made no noticeable difference in anything. Member Spotlight functions exactly the same as it did prior to making the change, as far as I can tell ... still no pop-up when clicking on the image displayed. |
Rich
[size=1]A Complete Idiot's Guide to MOD Implementation || On the Trail of the Last of the Mohicans[/size=1] |
|
|
|
Topic |
|
Topic Locked
