Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Member In Spotlight 3.4 - 3.4.02
 New Topic  Topic Locked
 Printer Friendly
Previous Page
Author Previous Topic Topic Next Topic
Page: of 4

@tomic
Senior Member

USA
1790 Posts

Posted - 01 December 2002 :  16:04:15  Show Profile  Visit @tomic's Homepage  Send @tomic an ICQ Message
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
Go to Top of Page

@tomic
Senior Member

USA
1790 Posts

Posted - 01 December 2002 :  16:05:45  Show Profile  Visit @tomic's Homepage  Send @tomic an ICQ Message
You'll want to put </a> after the images of course.

@tomic

SportsBettingAcumen.com
Go to Top of Page

richfed
Average Member

United States
999 Posts

Posted - 01 December 2002 :  16:34:40  Show Profile  Visit richfed's Homepage
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 ...
Go to Top of Page

@tomic
Senior Member

USA
1790 Posts

Posted - 01 December 2002 :  18:15:10  Show Profile  Visit @tomic's Homepage  Send @tomic an ICQ Message
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
Go to Top of Page

richfed
Average Member

United States
999 Posts

Posted - 01 December 2002 :  19:05:23  Show Profile  Visit richfed's Homepage
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]
Go to Top of Page

dannymichel
Starting Member

11 Posts

Posted - 05 February 2003 :  02:27:57  Show Profile  Visit dannymichel's Homepage  Send dannymichel an AOL message  Send dannymichel a Yahoo! Message
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


Go to Top of Page

jrountree
Starting Member

20 Posts

Posted - 17 February 2003 :  16:22:24  Show Profile
having the same problem, I've not seen where any of you have consulted the Line 30 issue.
Go to Top of Page

StephenD
Senior Member

Australia
1044 Posts

Posted - 12 June 2003 :  04:34:26  Show Profile  Send StephenD a Yahoo! Message
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?
Go to Top of Page

masterao
Senior Member

Sweden
1678 Posts

Posted - 12 June 2003 :  05:56:33  Show Profile  Visit masterao's Homepage
What do you have on the lines above that function in portal.asp?

Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod
Go to Top of Page

StephenD
Senior Member

Australia
1044 Posts

Posted - 12 June 2003 :  19:05:46  Show Profile  Send StephenD a Yahoo! Message
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" -->
<%
Go to Top of Page

StephenD
Senior Member

Australia
1044 Posts

Posted - 12 June 2003 :  20:21:08  Show Profile  Send StephenD a Yahoo! Message
Got it, function within a function ... from David Rhodes and Chris Yiew's post in portal mod. Thanks..
Go to Top of Page

masterao
Senior Member

Sweden
1678 Posts

Posted - 13 June 2003 :  05:28:07  Show Profile  Visit masterao's Homepage
Im glad you got it working.

Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod
Go to Top of Page
Page: of 4 Previous Topic Topic Next Topic  
Previous Page
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.22 seconds. Powered By: Snitz Forums 2000 Version 3.4.07