inc_profile.asp (This will take some time just so you know) Go down to: Find these lines around 209-233. there is a box underneath it. And below the box, there are some lines which I don't what is to be done with them. Then under these lines, you see the following: Replace those with these:<
This should make the change. SOrry the text area is not working it shows up good in Dreamweaver but not in IE7 for some reason will have a look. Sorry.
or add these lines of code if you would rather copy and paste from here.
if strHobbies = "1" then
Response.Write " <tr>" & vbNewLine
if strReqHobbies = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><font color=""" & strHiLiteFontColor """>*</font> Hobbies: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """>Hobbies: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor """><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><input name=""Hobbies"" size=""25"" maxLength=""50"" value="""
if strMode ><> "Register" then Response.Write(ChkString(rs("M_Hobbies"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strLNEWS = "1" then
Response.Write " <tr>" & vbNewLine
if strReqLNEWS = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><font color=""" & strHiLiteFontColor """>*</font> Latest News: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """>Latest News: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor """><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><input name=""LNEWS"" size=""25"" maxLength=""50"" value="""
if strMode ><> "Register" then Response.Write(ChkString(rs("M_LNEWS"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strQuote = "1" then
Response.Write " <tr>" & vbNewLine
if strReqQuote = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><font color=""" & strHiLiteFontColor """>*</font> Quote: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """>Quote: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor """><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><input name=""Quote"" size=""25"" maxLength=""50"" value="""
if strMode ><> "Register" then Response.Write(ChkString(rs("M_Quote"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strBio = "1" then
Response.Write " <tr>" & vbNewLine
if strReqBio = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><font color=""" & strHiLiteFontColor """>*</font> Bio: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """>Bio: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor """><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><input name=""Bio"" size=""25"" maxLength=""50"" value="""
if strMode ><> "Register" then Response.Write(ChkString(rs("M_Bio"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
end if
Thank You Jeff: One Last Question. You have the following the "ReadMe file"
"Upload the dbs file and run the mod setup in the admin options. Then upload the admin_config_members.asp to your forum directory."
I already have the admin_config_members.asp file in my forum directory. I also notice that there are changes to be made in the admin_config_members.asp file.
Am I good to go after changing the four files and uploading the DBS and running the MOD setup??
NO you will want to upload the admin_config_members.asp over the old one. This will allow you to turn on and off the fields you want required. So run the mod setup and also upload that file then run setup.asp hopt that helps <
HMMMMM I have added quite a few MODS in the past. I am not sure if I have changed the admin_config_members.asp from the base file. I will double check before replacing it. Thank you<
Yeah no problem I have not seen a mod yet that changed this file this is why I did it this way. BUt if you find one that had let me know I will make the change in the read me to tell you how to do it. Also this is pretty easy if you get a program like winmerge or beyond compare you can see where the changes were made. <