OK, looked like I've deleted the forum where I had made the modifications, so I had to do it again - sorry for the delay.
Here are the instructions:
inc_profile.asp
Find the following code (approx. lines 352-360):
if strAgeDOB = "1" then
Response.Write " <script language=""JavaScript"" type=""text/javascript"" src=""inc_datepicker.js""></script>" & vbNewLine
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Birth Date: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input type=""hidden"" name=""AgeDOB"" id=""AgeDOB"" value="""
if strMode <> "Register" then Response.Write(trim(ChkString(rs("M_DOB"), "display")))
Response.Write """><a href=""javascript:_ShowPopupCalendar( 'Form1', 'AgeDOB', false )"">" & getCurrentIcon(strIconCalendar,"Choose Date","align=""absmiddle""") & "</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
and replace it with the following code:
if strAgeDOB = "1" then
strDOByear = ""
strDOBmonth = ""
strDOBday = ""
If strMode <> "Register" then
strMDOB = trim(ChkString(rs("M_DOB"), "display"))
If strMDOB <> "" Then
strDOByear = Mid(strMDOB,1,4)
strDOBmonth = Mid(strMDOB,5,2)
strDOBday = Mid(strMDOB,7,2)
End If
End If
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Birth Date: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
Response.Write "<select name=""DOBmonth"">" & vbNewLine & _
"<option value="""" " & chkSelect("",strDOBmonth) & "> - </option>" & vbNewLine
For intMonthCntr = 1 to 12
Response.Write "<option value=""" & doublenum(intMonthCntr) & """ "
If strMode <> "Register" Then Response.Write chkSelect(intMonthCntr,CLng(strDOBmonth))
Response.Write ">" & monthname(intMonthCntr) & "</option>" & vbNewLine
Next
Response.Write "</select> <select name=""DOBday"">" & vbNewLine & _
"<option value="""" "
If strMode <> "Register" Then
Response.Write chkSelect("",strDOBday)
End If
Response.Write "> - </option>" & vbNewLine
For intDayCntr = 1 to 31 step 1
Response.Write "<option value=""" & doublenum(intDayCntr) & """ "
If strMode <> "Register" Then Response.Write chkSelect(intDayCntr,CLng(strDOBday))
Response.Write ">" & intDayCntr & "</option>" & vbNewLine
Next
Response.Write "</select> <select name=""DOByear"">" & vbNewLine & _
"<option value=""""> - </option>" & vbNewLine
For intYearCntr = 1901 to Year(strForumTimeAdjust) step 1
Response.Write " <option value=""" & intYearCntr & """ "
If strMode <> "Register" Then Response.Write chkSelect(intYearCntr,CLng(strDOByear))
Response.Write ">" & intYearCntr & "</option>" & vbNewLine
Next
Response.Write "</select>" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
register.asp
Find the following code (approx. lines 532-536):
if strAgeDOB = "1" then
strSql = strsql & ", '" & ChkString(Request.Form("AgeDOB"),"SQLString") & "'"
else
strSql = strsql & ", ''"
end if
and replace it with the following code:
if strAgeDOB = "1" then
strMDOB = ChkString(Request.Form("DOByear"),"SQLString") & ChkString(Request.Form("DOBmonth"),"SQLString") & ChkString(Request.Form("DOBday"),"SQLString")
if len(strMDOB) < 8 Then strMDOB = " "
strSql = strsql & ", '" & strMDOB & "'"
else
strSql = strsql & ", ''"
end if
pop_profile.asp
Find the following code (approx. lines 1216-1218):
if strAgeDOB = "1" then
strSql = strsql & ", M_DOB = '" & ChkString(Request.Form("AgeDOB"),"SQLString") & "'"
end if
and replace it with the following code:
if strAgeDOB = "1" then
strMDOB = ChkString(Request.Form("DOByear"),"SQLString") & ChkString(Request.Form("DOBmonth"),"SQLString") & ChkString(Request.Form("DOBday"),"SQLString")
if len(strMDOB) < 8 Then strMDOB = " "
strSql = strsql & ", M_DOB = '" & strMDOB & "'"
end if
find the following code (approx. lines 1517-1519):
if strAgeDOB = "1" then
strSql = strsql & ", M_DOB = '" & ChkString(Request.Form("AgeDOB"),"SQLString") & "'"
end if
and replace it with the following code:
if strAgeDOB = "1" then
strMDOB = ChkString(Request.Form("DOByear"),"SQLString") & ChkString(Request.Form("DOBmonth"),"SQLString") & ChkString(Request.Form("DOBday"),"SQLString")
if len(strMDOB) < 8 Then strMDOB = " "
strSql = strsql & ", M_DOB = '" & strMDOB & "'"
end if
I will also add it to my Snitzy Code Snippets collection.
Topic Locked
Posted - 11 August 2004 : 23:26:33
Looking forward to tinkering with this.
