| Author |
 Topic  |
|
|
keng38
New Member
United Kingdom
80 Posts |
 Posted - 07 February 2005 : 07:03:43
|
I have avatar mod setup and using the member_spotlight feature in the portal is proving to be a problem.
I get the following error message
Microsoft VBScript compilation error '800a03ea'
Syntax error
/forum/member_spotlight.asp, line 12
function MemInSpot
and I cannot figure out why?
is it the way I have included the file in the portal.asp?
'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
if strCMSLoginDisplay = "1" then call DisplayLogin(strCMSRightNavWidth)
if strCMSEnableActiveTopics = "1" then call DisplayActiveTopics(strCMSRightNavWidth, strCMSActiveTopicsItems)
if strCMSLMInstalled = "1" then call DisplayLinks(strCMSRightNavWidth)
if strCMSEnableSearch = "1" then call DisplaySearch(strCMSRightNavWidth)
if strCMSEnableForumSearch = "1" then call DisplayForumSearch(strCMSRightNavWidth)
if strCMSEnableGoogleSearch = "1" then call DisplayGoogleSearch(strCMSRightNavWidth)
%>
<!--#include file="member_spotlight.asp"-->
<%
call DisplayCategories(0, strCMSRightNavWidth)
Call DisplayRecentlySeen(7,0,"simple")
Response.Write " </td>"
end if
|
Edited by - keng38 on 07 February 2005 07:10:32 |
|
|
keng38
New Member
United Kingdom
80 Posts |
Posted - 14 February 2005 : 06:46:26
|
| Anyone? |
 |
|
|
TStewartFan
Junior Member
190 Posts |
Posted - 14 February 2005 : 08:20:41
|
Although I am not sure why you are including this within an if statment it is of no consequence. The error is NOT from this page. The error is in the included file. List the code from the following error:
Syntax error
/forum/member_spotlight.asp, line 12
The actual line in the member_spotlight.asp |
If You Have to Ask, You Wouldn't Understand. |
|
|
|
keng38
New Member
United Kingdom
80 Posts |
Posted - 15 February 2005 : 09:20:39
|
There looks to be 2 versions of the member spotlight.asp
I have tried both but neither one works. |
|
|
|
TStewartFan
Junior Member
190 Posts |
Posted - 15 February 2005 : 17:28:14
|
| Mine works perfectly. And I am using the avatar version but I upgraded from the original version and have used them both. What error message are you receiving and what is the line of code from that page? That is the only way we can help ya out. |
If You Have to Ask, You Wouldn't Understand. |
|
|
|
keng38
New Member
United Kingdom
80 Posts |
Posted - 17 February 2005 : 10:24:33
|
Microsoft VBScript compilation error '800a03ea'
Syntax error
/forum/member_spotlight.asp, line 12
function MemInSpot
The above is the error message.
I have tried the avatar version which I downloaded and placed into my forum.
I haven't changed or opened it at all just copied and pasted. |
|
|
|
TStewartFan
Junior Member
190 Posts |
Posted - 17 February 2005 : 17:34:48
|
What is that line?!? A line number doesn't help us...what does the actual line say?!?
/forum/member_spotlight.asp, line 12 |
Edited by - TStewartFan on 17 February 2005 17:35:54 |
|
|
|
TStewartFan
Junior Member
190 Posts |
Posted - 18 February 2005 : 00:03:18
|
I just looked at line 12 in my page and it is a commented out line. Check to make sure the ' is in front of the line (this is assuming you have not changed anything)
'START MEMBER IN SPOTLITE SCRIPT
That is how it should look. It is right above your function meminspot. |
If You Have to Ask, You Wouldn't Understand. |
|
|
|
keng38
New Member
United Kingdom
80 Posts |
Posted - 21 February 2005 : 05:40:22
|
Yes that's there and commented out.
my line 12 is
function MemInSpot |
|
|
|
TStewartFan
Junior Member
190 Posts |
Posted - 21 February 2005 : 05:49:16
|
| Let's simplify this a bit. Just post a txt version of your member_spotlight.asp page and when I return from work I'll look at it and see if I can see what's wrong with it. |
If You Have to Ask, You Wouldn't Understand. |
|
|
|
keng38
New Member
United Kingdom
80 Posts |
Posted - 04 March 2005 : 06:01:24
|
OK it's here, sorry about the delay.
<%
Response.write " <table width=""135"" cellpadding=""0"" cellspacing=""0"" border=""1"" bordercolor=""black"">" & vbCrLf & _
" <tr>" & vbCrLf & _
" <td valign=""top"" align=""center"" class=""navtop"" width=""135""><font class=""tablefont"">Member Spotlight</font></td>" & vbCrLf & _
" </tr>" & vbCrLf & _
" <tr>" & vbCrLf & _
" <td width=""135"" class=""navmiddle"">" & vbCrLf & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
'START MEMBER IN SPOTLITE SCRIPT
function MemInSpot
set rsMemInSpot = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT " & strTablePrefix & "MEMBERS.MEMBER_ID, " & strTablePrefix & "MEMBERS.M_AVATAR_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_AVATAR_URL <> ''"
rsMemInSpot.Open strSql, my_Conn,3,,adCmdText
Dim intRnd
Randomize Timer
intRnd = (Int(RND * rsMemInSpot.RecordCount))
rsMemInSpot.Move intRnd
strMemInSpot = rsMemInSpot("M_AVATAR_URL")
Response.Write " <tr><td align=center bgcolor=""" & strForumCellColor & """ class=""navmiddle"">" & vbCrLf & _
" <a href=""" & strForumURL & "pop_profile.asp?mode=display&id="& rsMemInSpot("member_id") & """><font class=""DefaultFont""><b>" & rsMemInSpot("M_NAME") & "</b></font></A><br>" & vbCrLf
if Trim(rsMemInSpot("M_AVATAR_URL")) <> "" and lcase(rsMemInSpot("M_AVATAR_URL")) <> "http://" then
if lcase(left(strMemInSpot,7)) = "http://" then
Response.write " <a href=" & ChkString(rsMemInSpot("M_AVATAR_URL"), "display")& ">" & vbCrLf & _
" <img src=" & ChkString(rsMemInSpot("M_AVATAR_URL"), "display") & vbCrLf
elseif lcase(left(strMemInSpot,7)) <> "http://" then
Response.write " <a href=" & strForumURL & "" & ChkString(rsMemInSpot("M_AVATAR_URL"), "display")& ">" & vbCrLf & _
" <img src=" & strForumURL & "" & ChkString(rsMemInSpot("M_AVATAR_URL"), "display")& vbCrLf
end if
Response.write " alt=" & ChkString(rsMemInSpot("M_NAME"),"display")& vbCrLf & _
" width=""80"" height=""80"" border=""0"" hspace=""0"" vspace=""4""></a><br>" & vbCrLf
else
Response.Write " <img src=/forum/no_photo.gif alt=""no avatar available"" width=""80"" height=""80"" 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
call MemInSpot
Response.Write "</table>" & vbCrLf & _
" </td>" & vbCrLf & _
" </tr>" & vbCrLf & _
" <tr>" & vbCrLf & _
" <td width=""135"" height=""13"" class=""navbottom""></td>" & vbCrLf & _
" </tr>" & vbCrLf & _
" </table>" & vbCrLf & _
" <br>" & vbCrLf
%> |
|
|
|
keng38
New Member
United Kingdom
80 Posts |
Posted - 03 April 2005 : 16:05:46
|
| anyone? |
|
|
| |
Topic |
|
Topic Locked
