Microsoft JScript runtime error '800a138f'
After I send my form (via GoDaddy), I get this error, no matter whether I fill in any 'BCC', 'CC' or other fields at setup or leave them blank:
Microsoft JScript runtime error '800a138f'
Object expected
/afcc7/onlineforms/testform.asp, line 23
The 'live' form is here:
testform.asp
My code is this:
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<!--#include file="../WA_Universal_Email/CDOSYS_JS.asp" -->
<!--#include file="../WA_Universal_Email/MailFormatting_JS.asp" -->
<%
function WA_Universal_Email_1_SendMail(RecipientEmail) {
var MailAttachments = "";
var MailBCC = "";
var MailCC = "";
var MailTo = "";
var MailBodyFormat = "";
var MailBody = "";
var MailImportance = "";
var MailFrom = "" + String(String(Request.Form("Name"))) + "|WA|" + String(String(Request.Form("email"))) + "";
var MailSubject = "EAFCA 2010 Registration";
//Global Variables
gAddBCC = "";
gAddCC = "";
gAddRecipient = "";
gBodyFormat = "";
gSetImportance = "";
WA_MailObject = WAUE_Definition("relay-hosting.secureserver.net","25","","","","");
if (RecipientEmail) {
WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail);
}
else {
//To Entries
WA_MailObject = WAUE_AddRecipient(WA_MailObject,"christian@artkenya.net");
MailTo = gAddRecipient;
}
//Attachment Entries
//BCC Entries
WA_MailObject = WAUE_AddBCC(WA_MailObject,"david@artkenya.net");
MailBCC = gAddBCC;
//CC Entries
WA_MailObject = WAUE_AddCC(WA_MailObject,"david@artkenya.net");
MailCC = gAddCC;
//Body Format
WA_MailObject = WAUE_BodyFormat(WA_MailObject,0);
MailBodyFormat = gBodyFormat;
//Set Importance
WA_MailObject = WAUE_SetImportance(WA_MailObject,"3");
MailImportance = gSetImportance;
//Start Mail Body
MailBody = MailBody + "";
MailBody = MailBody + String(Request.Form("Name"));
MailBody = MailBody + "\r\n";
MailBody = MailBody + String(Request.Form("email"));
MailBody = MailBody + "\r\n";
MailBody = MailBody + String(Request.Form("Address"));
MailBody = MailBody + "";
//End Mail Body
WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody);
WA_MailObject = null;
}
%>
<%
if ((String(Request.Form("Submit")) != "undefined")) {
//WA Universal Email object="CDOSYS"
//Send Loop Once Per Entry
//Send Mail All Entries
WA_Universal_Email_1_SendMail();
if ("registration_confirmation.htm"!="") {
Response.Redirect("registration_confirmation.htm");
}
}
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Test Form 1</title>
</head>
<body>
<form action="" method="post" name="form" id="form" accept-charset="iso-8859-1">
<p> Email:<br>
<input name="email" type="text" id="email">
(this must be a proper email address) </p>
<p> Name<br>
<input name="Name" type="text" id="Name">
</p>
<p> Address<br>
<input name="Address" type="text" id="Address">
</p>
<p>
<input type="submit" name="Submit" value="Submit" >
</p>
</form>
</body>
</html>
Any assistance is appreciated.
Chris