|
tveith
Starting Member
32 Posts |
 Posted - 01 June 2001 : 12:55:46
|
Getting this error generated from the pop_profile file after installing the User Fields mod. Everything else seems to work OK, I can go into the Admin for the mod and set it, but can't go into the user's profile without getting this error:
Microsoft VBScript compilation error '800a0400'
Expected statement
/databases/test/pop_profile.asp, line 485
"More About Me</font></b></td>"
Here's the section of code:
'Rem User Field Code #######################################
if (intUserFields = 1 ) then
Response.write "<tr>" &_
"<td align=center bgcolor=""" & strCategoryCellColor & """ colspan=""2"">" &_
"<b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
"More About Me</font></b></td>"
Response.write "</tr>" &_
"<tr><td></td></tr>"
set rs2 = My_Conn.Execute("SELECT * FROM " & strMemberTablePrefix & "USERFIELDS ORDER BY USR_FIELD_ID")
do until rs2.EOF
Response.Write ("<tr><td valign=""top"" width=150 align=""right"" bgColor=" & strPopUpTableColor & "> <b><font face=""" & strDefaultFontFace & """ size=" & strDefaultFontSize & ">" & rs2("USR_LABEL") & ":</font></b></td>")
if rs2("USR_FIELDTYPE") = "C" then
Response.write "<td valign=""top"" bgColor=""" & strPopUpTableColor & """>" &_
"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize """ >"
if getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID")) = "1" then
response.write "Yes"
Else
response.write "No"
End If
response.write "</font></td>"
Else
response.write "<td valign=""top"" bgColor=""" & strPopUpTableColor & """>" &_
"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ >" & getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID")) & "</font></td>"
End If
Response.write "</tr>"
rs2.MoveNext
loop
rs2.Close
end if
'Rem User Field Code #######################################
Any help would be appreciated!
Edited by - tveith on 01 June 2001 13:13:40 |
|
Topic Locked
