About a year ago in this thread, I was trying to get the image [only] that is displayed in the Member Spotlight MOD to open when clicked, in its full-size in a pop-up window.
@tomic tried helping me, but it was not successful [though apparently his works that way 
] ... Here is my code for this MOD:
'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 & _
" <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")& """ target=""_blank"">" & 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
Can anyone see what may work?
Topic Locked
Posted - 29 November 2003 : 18:09:28
