Why does FireFox hate this code?
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.
<!--#include file="WA_Universal_Email/CDOSYS_VB.asp" -->
<!--#include file="WA_Universal_Email/MailFormatting_VB.asp" -->
<%
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 & "body,td,th {" & vbCrlf & ""
MailBody = MailBody & " font-family: Arial, Helvetica, sans-serif;" & vbCrlf & ""
MailBody = MailBody & " font-size: 12px;" & vbCrlf & ""
MailBody = MailBody & "}" & 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
%>
