There is an extra </font> tag in inc_profile.asp in DisplayProfileForm if email validation is turned on.
At line 43 we have:
Response.Write " <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" valign=""top"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPageBGColor & """ align=""center""" & strColSpan & "><p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>All Fields marked with <font size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>*</font> are required</b></font>"
if lcase(strEmail) = "1" and strEmailVal = "1" then
if strMode = "Register" then
Response.Write("<br /><small>To complete your registration, you need to have a valid e-mail address.</small></font>")
else
if strMode <> "goModify" then
Response.Write("<br /><small>If you change your e-mail address, a confirmation e-mail will be sent to your new address.<br />Please make sure it is a valid address.</small></font>")
else
Response.Write("<br /><small>If you change the e-mail address, a confirmation e-mail will be sent to the new address.<br />Please make sure it is a valid address.</small></font>")
end if
end if
end if
Response.Write "</p></td>" & vbNewLine & _
This should be changed to the following by deleting the text in red above and adding the text in red below:
Response.Write " <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" valign=""top"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPageBGColor & """ align=""center""" & strColSpan & "><p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>All Fields marked with <font size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>*</font> are required</b>"
if lcase(strEmail) = "1" and strEmailVal = "1" then
if strMode = "Register" then
Response.Write("<br /><small>To complete your registration, you need to have a valid e-mail address.</small>")
else
if strMode <> "goModify" then
Response.Write("<br /><small>If you change your e-mail address, a confirmation e-mail will be sent to your new address.<br />Please make sure it is a valid address.</small>")
else
Response.Write("<br /><small>If you change the e-mail address, a confirmation e-mail will be sent to the new address.<br />Please make sure it is a valid address.</small>")
end if
end if
end if
Response.Write "</font></p></td>" & vbNewLine & _
-Francis
Forum Locked
Topic Locked
Posted - 18 April 2003 : 18:11:47
