After installing the pop_profile code necessarry for the User Fields Mod, my pop_profile page is not formatted very clear. Huwr had the pop_profile already formatted but also gave the readme file to cut and paste the code. What I noticed is that the cut and paste code is different than the code in his pre-formatted pop_profile file. Could this be causing the problems with my formatting?
This is what is in Huwr's pop_profile:
'Rem User Field Code ####################################### if (intUserFields > 0) then %> <tr> <td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">More About Me</font></b></td> </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 %> <td valign="top" bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% if getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID")) = "1" then %>Yes<% Else %>No<% End If %></font></td> <% Else %> <td valign="top" bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><%= getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID")) %></font></td> <% End If %> </tr> <% rs2.MoveNext loop rs2.Close end if 'Rem User Field Code #######################################
And this is what is in his readme file and the one that is installed in my pop_profile:
'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 #######################################
It's minor compared to other problems I'm having, all the text is there but tables are not formatted properly. You can see what I mean if you go to http://www.bellwetherforum.org. You have to sign in to access the main page of the forum. If you go to 'members' and view a profile, you'll see.
I have two more problems which I'll start another topic that is related to User Fields Mod.
Topic Locked
Posted - 27 July 2001 : 13:30:10
