Author |
Topic |
@tomic
Senior Member
USA
1790 Posts |
Posted - 01 December 2002 : 16:04:15
|
Try this. I altered the html slightly so that quotes are around the URL. It worked fine and popped up into a new browser window for me.
Response.write " <a href=""" & strForumURL & "images/" & ChkString(rsMemInSpot("M_PHOTO_URL"), "display")& """ target=""_blank"">" & vbCrLf & _
@tomic |
SportsBettingAcumen.com |
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 01 December 2002 : 16:05:45
|
You'll want to put </a> after the images of course.
@tomic |
SportsBettingAcumen.com |
|
|
richfed
Average Member
United States
999 Posts |
Posted - 01 December 2002 : 16:34:40
|
Thanks for this @tomic, but I think I'm lost. Where should the "</a>" be placed?
I did copy your new line, as is, to my file ... still no results. Same as always ... |
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 01 December 2002 : 18:15:10
|
Here is my current function but do not cut and paste this as is because I have image protection stuff in there that will not work unless you used it. But look at where I have that image link and I marked the </a> in red.
function MemInSpot
set rsMemInSpot = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT M.MEMBER_ID, M.M_PHOTO_URL, M.M_NAME, M.M_FIRSTNAME, M.M_LASTNAME, M.M_AGE FROM " & strMemberTablePrefix & "MEMBERS M WHERE M.M_PHOTO_URL <> ''"
rsMemInSpot.Open strSql, my_Conn, 3, adLockReadOnly, 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(rsMemInSpot("M_PHOTO_URL"),7)) = "http://" then
Response.Write "<img src=""" & ChkString(rsMemInSpot("M_PHOTO_URL"), "display") & """ ALT=""" & ChkString(rsMemInSpot("M_NAME"),"display") & """ width=""140"" height=""140"" hspace=""2"" vspace=""2"" border=""0""><br />"
elseif lcase(left(rsMemInSpot("M_PHOTO_URL"),7)) <> "http://" then
Response.write " <a href=""" & strForumURL & "images/" & ChkString(rsMemInSpot("M_PHOTO_URL"), "display")& """ target=""_blank"">" & vbCrLf
Response.Write "<img src=""/getphoto.asp?FName=" & ChkString(rsMemInSpot("M_PHOTO_URL"), "displayimage") & """ ALT=""" & ChkString(rsMemInSpot("M_NAME"),"display") & """ width=""140"" height=""140"" hspace=""2"" vspace=""2"" border=""0""></a><br />"
else
Response.Write getCurrentIcon(strIconPhotoNone,"No Photo Available","hspace=""2"" vspace=""2""")
end if
end if
Response.Write " <a href=""" & strForumURL & "pop_profile.asp?mode=display&id="& rsMemInSpot("member_id") & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & rsMemInSpot("M_NAME") & "'s Profile</font></A><br>" & vbCrLf
Response.Write " </td></tr>"
rsMemInSpot.Close
Set rsMemInSpot = Nothing
end function
This is just to pop up the image in a new browser as a quick easy, resizable method rather than going to all the trouble to make a dynamic popup page which seems like overkill for this.
@tomic |
SportsBettingAcumen.com |
|
|
richfed
Average Member
United States
999 Posts |
Posted - 01 December 2002 : 19:05:23
|
Your file does look quite different. I see one of the </a>, but not sure about the other ... It might be more fruitful if you can look at mine?
Here it is:
'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
Sorry to be so ignorant! |
Rich [size=1]A Complete Idiot's Guide to MOD Implementation || On the Trail of the Last of the Mohicans[/size=1] |
|
|
dannymichel
Starting Member
11 Posts |
Posted - 05 February 2003 : 02:27:57
|
maybe im dumb, but no matter how much i change my member spotlight file to what u guys say to do i keeps getting the same error message as pox which is 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 |
|
|
|
jrountree
Starting Member
20 Posts |
Posted - 17 February 2003 : 16:22:24
|
having the same problem, I've not seen where any of you have consulted the Line 30 issue. |
|
|
StephenD
Senior Member
Australia
1044 Posts |
Posted - 12 June 2003 : 04:34:26
|
I've been trying to get this to work a number of ways but keep getting the same error. I've got David Rhode's Portal Mod installed.
Error is:
Microsoft VBScript compilation error '800a03ea'
Syntax error
/forum2/portal.asp, line 119
function MemInSpot
^
This is putting the code directly into portal.asp. If I use an include I get the same error but on members_spotlight.asp. I've tried placing the include in a number of different places.
Interestingly, if I use an include on inc_site_left it will work fine. Any ideas? |
|
|
masterao
Senior Member
Sweden
1678 Posts |
|
StephenD
Senior Member
Australia
1044 Posts |
Posted - 12 June 2003 : 19:05:46
|
Hi masterao
I have the following:
'###########################################################################################
'RIGHT NAVIGATION
if strCMSRightNavDisplay = "1" then
Response.Write " <td style=""width: "& TABLE_SPACER_WIDTH &"px""><img src="""& strImageUrl &"clear.gif"" width="""& TABLE_SPACER_WIDTH &""" height=""1""></td>" & vbNewLine &_
" <td width="""& strCMSRightNavWidth &""" valign=""top"">" &vbCrLf
Response.Write "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine
%><!--#INCLUDE FILE="member_spotlight.asp" -->
<% |
|
|
StephenD
Senior Member
Australia
1044 Posts |
Posted - 12 June 2003 : 20:21:08
|
Got it, function within a function ... from David Rhodes and Chris Yiew's post in portal mod. Thanks.. |
|
|
masterao
Senior Member
Sweden
1678 Posts |
|
Topic |
|