Why does FireFox hate this UE page?
Hi
For some reason, FireFox will not send email from this page:
emailLink.asp
Chrome, IE and Safari all send email from this page with no problems. Firefox also sends email from other pages on the site but not this one. After clicking the Send button in FF, the page just sits there; it doesn't send, it doesn't redirect.
What is the problem, please and thank you?
Here is the page code (with authentication email and password deleted):
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#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 craigcooper.com"
'Global Variables
gAddBCC = ""
gAddCC = ""
gAddRecipient = ""
gBodyFormat = ""
gSetImportance = ""
set WA_MailObject = WAUE_Definition("mail.craigcooper.com","25","","EMAIL_ADDRESS_DELETED","PASSWORD_DELETED","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,"moi@craigcooper.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.craigcooper.com/"
MailBody = MailBody & cStr(Request.QueryString("URLEND"))
MailBody = MailBody & "" & Chr(34) & ">http://www.craigcooper.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.craigcooper.com/"<>"") then
Response.Redirect("http://www.craigcooper.com/" & cStr(Request.QueryString("URLEND")))
end if
end if
%>
<%
' WA QueryString Binding (Copyright 2007, WebAssist.com)
WADA_QSBind_FilteredString = WA_QSBind_QueryString(cStr(Request.QueryString), "URLEND")
function WA_QSBind_QueryString(tStr, exList)
dim exStr, varStr, n, retCount, thisItem, retTempLen
exList = Split(Replace(cStr(exList), " ", ""), ",")
tStr = Replace(cStr(tStr), "&", "&")
qsArr = Split(tStr, "&")
exStr = ""
varStr = ""
retCount = 0
retTempLen = cInt(UBound(qsArr) + UBound(Split(cStr(Request.Form), "&"))) + 1
ReDim retArr (cInt(UBound(qsArr) + UBound(Split(cStr(Request.Form), "&"))) + 1)
ReDim retVars (UBound(retArr) + 1)
for n=0 to UBound(exList)
exStr = exStr & "§" & exList(n) & "§"
next
for n=0 to UBound(qsArr)
tstArr = Split(qsArr(n), "=")
if (NOT InStr(exStr, "§" & tstArr(0) & "§") > 0) then
retArr(retCount) = qsArr(n)
retVars(retCount) = tstArr(0)
retCount = retCount + 1
varStr = varStr & "§" & tstArr(0) & "§"
end if
next
if (retCount > 0) then
WA_QSBind_QueryString = ""
for x=0 to retCount-1
if(x <> 0 ) then
WA_QSBind_QueryString = WA_QSBind_QueryString & "&" & retArr(x)
else
WA_QSBind_QueryString = WA_QSBind_QueryString & retArr(x)
end if
next
exit function
end if
WA_QSBind_QueryString = ""
end function
%>
<!DOCTYPE HTML>
<!--[if lte IE 8]>
<script src="Scripts/HTML5forIE.js" type="text/javascript"></script>
<![endif]-->
<html>
<head>
<meta charset="utf-8">
<title>eMail a Link @craigcooper.com</title>
<meta name="description" content="eMail a Link.">
<meta name="msapplication-tooltip" content="eMail a Link." />
<meta name="author" content="Craig Cooper">
<meta name="Keywords" content="advertising, creative, new business, portfolio, cv, résumé, copywriter, creative director"/>
<meta name="viewport" content="width=device-width; initial-scale=1.0; maximum-scale=1.0; user-scalable=0;"/>
<link rel="shortcut icon" href="http://craigcooper.com/favicon.ico" />
<link rel="apple-touch-icon" href="http://craigcooper.com/apple-touch-icon-craigcom.png" />
<link href='http://fonts.googleapis.com/css?family=Architects+Daughter' rel='stylesheet' type='text/css'>
<link href='http://fonts.googleapis.com/css?family=PT+Sans+Narrow:400,700' rel='stylesheet' type='text/css'>
<style type="text/css">
header, aside, nav, footer, article {display:block;}
body,td,th {
font-family: 'PT Sans Narrow', Verdana, Geneva, sans-serif;
font-weight: 400;
font-size: 14px;
}
h2 {
font-family: 'PT Sans Narrow', Verdana, Geneva, sans-serif;
font-weight: 700;
letter-spacing: .05em;
}
a:link {
color: #1c4792;
}
a:visited {
color: #1c4792;
}
a:hover {
color: #f593bc;
}
a:active {
color: #f593bc;
}
#wrapper {
margin-left: auto;
margin-right:auto;
padding-top: 50px;
}
#mailbox {
margin-left: auto;
margin-right:auto;
background-color: #ffe300;
padding: 50px;
width: 600px;
position: relative;
-webkit-border-radius: 30px;
-moz-border-radius: 30px;
border-radius: 30px;
-webkit-box-shadow: #666 6px 5px 10px;
-moz-box-shadow: #666 6px 5px 10px;
box-shadow: 6px 5px 10px rgba(0,0,0,0.75);
z-index: 500;
overflow: visible;
behavior: url(Scripts/PIE.htc);
}
#postage {
position: absolute;
z-index: 1000;
top: -12px;
right: -15px;
}
#formbox {
z-index: 500;
}
.pinktype {
color: #f593bc;
}
.formtype {
font-family: 'Architects Daughter', 'Comic Sans MS', cursive;
font-size: 14px;
color: #1c4792;
letter-spacing: 0.05em;
width: 100%;
text-align: justify;
}
.fakelink {
text-decoration: underline;
}
.fromNameCopied {
font-family: 'Architects Daughter', 'Comic Sans MS', cursive;
font-size: 14px;
color: #1c4792;
letter-spacing: 0.05em;
width: 80%;
text-align: justify;
background-color: #ffe300;
border-top-style: none;
border-right-style: none;
border-bottom-style: none;
border-left-style: none;
}
.sendBtn {
font-family: 'PT Sans Narrow', Verdana, Geneva, sans-serif;
font-weight: 700;
letter-spacing: .05em;
width: auto;
padding: 9px 15px;
background: #1c4792;
border: 0;
font-size: 14px;
color: #FFFFFF;
-moz-border-radius: 5px;
-webkit-border-radius: 5px;
border-radius: 5px;
behavior: url(Scripts/PIE.htc);
}
</style>
<script src="Scripts/modernizr-1.7.min.js"></script>
<script src="Scripts/modernization.js"></script>
<script type="text/javascript" language="javascript">
function copyToName()
{
var ToName = document.getElementById('ToName');
var ToNameCopied = document.getElementById('ToNameCopied');
if ((ToName != null) && (ToNameCopied != null))
{
ToNameCopied.value = ToName.value;
}
}
</script>
<script type="text/javascript" language="javascript">
function copyFromName()
{
var FromName = document.getElementById('FromName');
var FromNameCopied = document.getElementById('FromNameCopied');
if ((FromName != null) && (FromNameCopied != null))
{
FromNameCopied.value = FromName.value;
}
}
</script>
</head>