Ok...this wasnt really a mod to begin with, but I need help. I added a field into MEMBERS table called M_LEAGUE. 3 values can be entered into this field, either a "Yes", "No" or null.
Now, in default the value is null. If someone changes it to "Yes" or "No" by choosing a Yes or No with a SELECT DROP DOWN when editing their profile, it will update the database. If they then go back in to edit their profile at a later time, the code (inc_profile.asp) should read the field...if it is "Yes" then the "Yes" SELECT BOX should be selected, if "No" then the "No" SELECT BOX should be selected.
The snippet of code I am trying to use is not that long, so I am going to post it below. Does anyone see any fault in the code or someting I am missing? Any help would be appreciated. If you wish to see it in action and want to test it out, log in and edit the profile:
Username: test
Password: test
THE SNIPPET FROM inc_profile.asp:
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """> Betfred Friday Night League </font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Signed Up? : </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""left""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
if strMode <> "Register" then Response.Write(ChkString(rs("M_LEAGUE"), "display"))
Response.Write "</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine & _
" <td align=""right"" bgColor=""" & strPopUpTableColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Want To Sign Up?</b></font></td>" & vbNewLine & _
" <td align=""left"" bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
" <select name=""League"">" & vbNewLine & _
" <option value=""Yes"""
if rs("M_LEAGUE") = "Yes" then Response.Write(" selected")
Response.Write ">Yes</option>" & vbNewLine & _
" <option value=""No"""
if rs("M_LEAGUE") = "No" OR "" then Response.Write(" selected")
Response.Write ">No</option>" & vbNewLine & _
" </select>" & vbNewLine & _
" </td></tr>"