Why does FireFox hate this code?

10/04/2011 4:43 pm | #1 ccooper309155

Here is the UE 3.0.7 ASP code from a web page with a form. Works fine with IE8, IE9 and Chrome.

Firefox, however, just returns to a blank form w/o sending the email.

Any idea why? Thanks for any help.



<%
function WA_Universal_Email_1_SendMail(RecipientEmail)
dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject
MailAttachments = ""
MailBCC = ""
MailCC = ""
MailTo = ""
MailBodyFormat = ""
MailBody = ""
MailImportance = ""
MailFrom = "" & cStr(cStr(Request.Form("FromName"))) & "|WA|" & cStr(cStr(Request.Form("FromEmail"))) & ""
MailSubject = "A totally unexpected link from bigdaddystarch.com"

'Global Variables
gAddBCC = ""
gAddCC = ""
gAddRecipient = ""
gBodyFormat = ""
gSetImportance = ""

set WA_MailObject = WAUE_Definition("mail.bigdaddystarch.com","25","","notemail@bigdaddystarch.com","notpassword","1")

if (RecipientEmail <> "") then
set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail)
MailTo = gAddRecipient
gAddRecipient = ""
else
'To Entries
end if

'Attachment Entries

'BCC Entries
set WA_MailObject = WAUE_AddBCC(WA_MailObject,"giblets@bigdaddystarch.com")
MailBCC = gAddBCC

'CC Entries
MailCC = gAddCC

'Character Set
set WA_MailObject = WAUE_SetCharset(WA_MailObject,"ISO-8859-1")

'Body Format
set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0)
MailBodyFormat = gBodyFormat

'Set Importance
set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3")
MailImportance = gSetImportance

'Start Mail Body
MailBody = MailBody & "<html><head><style type=" & Chr(34) & "text/css" & Chr(34) & ">" & vbCrlf & ""
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "</style></head><body>" & vbCrlf & ""
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "<p>Hey "
MailBody = MailBody & cStr(Request.Form("ToName"))
MailBody = MailBody & "</p>" & vbCrlf & ""
MailBody = MailBody & "<p>Apparently, I've gotten the silly idea into my head that you may actually be interested in this:<BR>" & vbCrlf & ""
MailBody = MailBody & " <BR>" & vbCrlf & ""
MailBody = MailBody & " <a href=" & Chr(34) & "http://www.bigdaddystarch.com/"
MailBody = MailBody & cStr(Request.QueryString("URLEND"))
MailBody = MailBody & "" & Chr(34) & ">http://www.bigdaddystarch.com/"
MailBody = MailBody & cStr(Request.QueryString("URLEND"))
MailBody = MailBody & "</a></p>" & vbCrlf & ""
MailBody = MailBody & "<p>"
MailBody = MailBody & cStr(Request.Form("AddiMess"))
MailBody = MailBody & "</p>" & vbCrlf & ""
MailBody = MailBody & "<p>Yours unruly,</p>" & vbCrlf & ""
MailBody = MailBody & "<p>"
MailBody = MailBody & cStr(Request.Form("FromName"))
MailBody = MailBody & "</p>" & vbCrlf & ""
MailBody = MailBody & "<p> </p>" & vbCrlf & ""
MailBody = MailBody & "</body></html>"
'End Mail Body

set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody)

set WA_MailObject = nothing
end function
%>
<%
if ((cStr(Request.Form("btnSend")) <> "")) then
'WA Universal Email object="CDOSYS"
'Send Loop Once Per Entry
WA_Universal_Email_1_SendMail("" & cStr(cStr(Request.Form("ToEmail"))) & "")

'Send Mail All Entries
if ("http://www.bigdaddystarch.com/" & cStr(Request.QueryString("URLEND"))<>"") then
Response.Redirect("http://www.bigdaddystarch.com/" & cStr(Request.QueryString("URLEND")))
end if
end if
%>

10/05/2011 12:08 pm | #5 ccooper309155

Okay, attached the ASP page in a ZIP file.

Just sanitized it a little bit by changing authentication email address and password. Otherwiise it is "as is."

Thanks.

Attached Files

emailLink.zip

10/05/2011 1:49 pm | #6 Jason ByrnesWebAssist

the html5 form plugin code is causing the problem.

remove this code from the page:
<script>
$(document).ready(function(){
$('#frmMail').html5form();
});
</script>

and it will start working.

Technical Support Forums

Free, outstanding support from WebAssist and your colleagues

Why does FireFox hate this code?

10/04/2011 4:43 pm | #1 ccooper309155