To show DOB and age make these changes
In "admin_config_members" fnd this code (close to the top of file)
if Request.Form("strAge") = "1" and Request.Form("strAgeDOB") = "1" then
Err_Msg = Err_Msg & "<li>Age and Birth Date cannot both be On at the same time</li>"
end if
Comment it out like this
'if Request.Form("strAge") = "1" and Request.Form("strAgeDOB") = "1" then
'Err_Msg = Err_Msg & "<li>Age and Birth Date cannot both be On at the same time</li>"
'end if
In "pop_profile.asp" find this code around line 572
if (strAgeDOB = "1" and Trim(strDOB) <> "") then
strDOB = DOBToDate(strDOB)
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Age: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & DisplayUsersAge(strDOB) & "</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
Replace it with this
if (strAgeDOB = "1" and Trim(strDOB) <> "") then
'strDOB = DOBToDate(strDOB)
strDOB = chkDate(strDOB,"",false)
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>DOB: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & strDOB & "</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
There are a few post in these forums that show how to make a members field required. I'll see if I can find one for you.