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

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Member Spotlight w Avatara Error		  New Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

MaGraham
Senior Member

USA
1297 Posts
Posted - 26 July 2012 :  03:07:15  Show Profile  Reply with Quote

If I place the <!--#INCLUDE FILE="member_spotlight.asp" --> in my default.asp so that it will display within the same area as the Streaming Media Mod, this is the error I receive:


I am placing it in the same area as the other include files so it does have the <% %> in the appropriate area. :)


If I place the <!--#INCLUDE FILE="member_spotlight.asp" --> in my default.asp so that it will display just above the Streaming Media Mod area, this is the error I receive:




I don't know if I am doing something wrong or if there is a conflict with another mod so here is my member_spotlight.asp in txt format.

member_spotlight.asp in txt format



Any/all help will be greatly appreciated!
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Edited by - MaGraham on 26 July 2012 03:10:43

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 26 July 2012 :  05:42:37  Show Profile
The odd appearance of the member spotlight means that it didn't find someone with a photo URL or that the URL no longer points to a photograph.

See below ....
Edited by - Carefree on 20 August 2012 19:18:46
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 27 July 2012 :  18:20:27  Show Profile


I used that and now I am getting this error:

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/tfp/member_spotlight.asp, line 10


Here are lines 5 - 16:

If not rsMemInSpot.EOF Then
Dim intRnd
Randomize Timer
intRnd = (Int(RND * rsMemInSpot.RecordCount))
rsMemInSpot.Move intRnd
strMemInSpot = rsMemInSpot("M_PHOTO_URL")
If rsMemInSpot("M_LEVEL") > "2" Then
strCColor=strAUAdminColor
ElseIf rsMemInSpot("M_LEVEL") = "2" Then
strCColor=strAUModColor
Else
strCColor=strAUMemColor


But I must have an error somewhere else, too. I didn't have the photo feature enabled in the member's profile because it wasn't displaying their photo, only the red x. I enabled it to this and that's the reason I am getting that error, I assume.

So, I will include a link to my pop_profile.asp in txt format. Hopefully, that's the correct file.


profile.asp in txt format
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 20 August 2012 :  19:22:29  Show Profile
Here's a version that works with Access & MySQL:


<%
intMem = 0
Set rsMemInSpot = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT COUNT(M_PHOTO_URL) AS CNT FROM " & strMemberTablePrefix & "MEMBERS WHERE M_PHOTO_URL <> ''"
Set rsMemInSpot = my_Conn.Execute(strSql)
If not rsMemInSpot.EOF Then
	intMem=rsMemInSpot("CNT")
	rsMemInSpot.Close
End If
Set rsMemInSpot = Nothing
If intMem > 0 Then
	strSql = "SELECT MEMBER_ID, M_PHOTO_URL, M_NAME, M_FIRSTNAME, M_LASTNAME, M_AGE, M_LEVEL FROM " & strMemberTablePrefix & "MEMBERS WHERE M_PHOTO_URL <> ''"
	Set rsMemInSpot = my_Conn.Execute(strSql)
	If not rsMemInSpot.EOF Then
		Randomize
		intRnd = (Int(RND * intMem))
		rsMemInSpot.Move intRnd
		strMemInSpot = rsMemInSpot("M_PHOTO_URL")
		If rsMemInSpot("M_LEVEL") > "2" Then 
			strCColor=strAUAdminColor
		ElseIf rsMemInSpot("M_LEVEL") = "2" Then 
			strCColor=strAUModColor
		Else
			strCColor=strAUMemColor
		End If
		Response.Write "<table align=""left"" border=""0"" cellspacing=""0"" cellpadding=""0"" bgcolor=" & strHeadCellColor & ">" & vbNewLine & _
			"	<tr>" & vbNewLine & _ 
			"		<td align=""left"" valign=""top"">" & vbNewLine & _
			"			<table align=""center"" BORDER=""1"" bordercolor=""" & strTableBorderColor & """ style=""border-collapse:collapse;"" cellspacing=""0"" cellpadding=""0"" width=""95%"">" & vbNewLine & _
			"				<tr>" & vbNewLine & _
			"					<td valign=""top"">" & vbNewLine & _
			"						<table border=""0"" cellspacing=""0"" cellpadding=""0"" width=""100%"">" & vbNewLine & _
			"							<tr>" & vbNewLine & _
			"								<td align=""center"" bgcolor=""" & strHeadCellColor & """>" & vbNewLine & _
			"									<table width=""100%"" cellpadding=""2"">" & vbNewLine & _
			"										<tr>" & vbNewLine & _
			"											<td valign=""top"" align=""center""><font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """>Member Spotlight</font></td>" & vbNewLine & _
			"										</tr>" & vbNewLine & _
			"									</table>" & vbNewLine & _
			"								</td>" & vbNewLine & _
			"							</tr>" & vbNewLine & _
			"							<tr>" & vbNewLine & _ 
			"								<td bgcolor=""" & strForumCellColor & """>" & vbNewLine & _ 
			"									<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""2"">" & vbNewLine & _
			"										<tr>" & vbNewLine & _
			"											<td align=center bgcolor=""" & strForumCellColor & """>" & vbNewLine & _
			"												<a href=""" & strForumURL & "pop_profile.asp?mode=display&id="& rsMemInSpot("member_id") & """><font face=""" & strDefaultFontFace & """ color=""" & strCColor & """ size=""" & strDefaultFontSize & """><b>" & rsMemInSpot("M_NAME") & "</b></font></A><br>" & vbNewLine
		If Trim(rsMemInSpot("M_PHOTO_URL")) <> "" and (lcase(rsMemInSpot("M_PHOTO_URL")) <> "http://" or lcase(rsMemInSpot("M_PHOTO_URL")) <> "https://") Then
			If lcase(left(strMemInSpot,7)) = "http://" or  lcase(left(strMemInSpot,8)) = "https://" Then 
				Response.Write	"											<a href=" & ChkString(rsMemInSpot("M_PHOTO_URL"), "display")& ">" & vbNewLine & _
					"												<img src=" & ChkString(rsMemInSpot("M_PHOTO_URL"), "display") & vbNewLine
			ElseIf lcase(left(strMemInSpot,7)) <> "http://" Then 
				Response.Write	"											<a href=" & strForumURL & ChkString(rsMemInSpot("M_PHOTO_URL"), "display")& ">" & vbNewLine & _
					"											<img src=" & strForumURL & ChkString(rsMemInSpot("M_PHOTO_URL"), "display")& vbNewLine
			End If			
			Response.Write	"											alt=" & ChkString(rsMemInSpot("M_NAME"),"display")& vbNewLine & _
				"											width=""120"" height=""120"" border=""0"" hspace=""0"" vspace=""4""></a><br>" & vbNewLine
		Else 
			Response.Write	getCurrentIcon(strIconPhotoNone,"No Photo Available","hspace=""0"" vspace=""4""") & "<br>" & vbNewLine _
		End If
		Response.Write	"											<a href=""" & strForumURL & "pop_profile.asp?mode=display&id="& rsMemInSpot("member_id") & """><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strFooterFontSize & """>" & rsMemInSpot("M_NAME") & "'s Profile</font></A><br>" & vbNewLine & _
			"										</td>" & vbNewLine & _
 			"									</tr>"
		rsMemInSpot.Close
		Response.Write	"									</table>" & vbNewLine & _
			"								</td>" & vbNewLine & _
			"							</tr>" & vbNewLine & _
			"						</table>" & vbNewLine & _
			"					</td>" & vbNewLine & _
			"				</tr>" & vbNewLine & _
			"			</table>" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"	</tr>" & vbNewLine & _
			"</table>"
	End If
	Set rsMemInSpot = Nothing
End If
%>
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 21 August 2012 :  08:39:57  Show Profile


That worked! YEA! :)

You are Sooooo good with your help, Carefree!!


Thank you Soooo MUCH!!
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.32 seconds. Powered By: Snitz Forums 2000 Version 3.4.07