CDONTS sendmail stops working suddenly

Cinderella · #1 (**permalink**) March 9th, 2006, 07:36 PM

Hi guys,

I have a form that accepts user input and sends the result to a specified emailbox. However, it stopped working suddenly after I reinstalled the frontpage server extension. It now resets itself after submit button is clicked, and nothing else happens. Could someone please take a look at the code for me? I changed the emailbox in the page to test@hotmail.com.

<%

 if Request.Querystring("isSubmitted") = "yes" then
 Dim fname, lname
 Dim objCDO
 Pickup_Date = Request.Querystring("Pickup_Date")
 Return_Date = Request.Querystring("Return_Date")
 Pickup_Time = Request.Querystring("Pickup_Time")
 Return_Time = Request.Querystring("Return_Time")
 Reserving_Person = Request.Querystring("Reserving_Person")
 Your_Branch = Request.Querystring("Your_Branch")
 Internet_Access = Request.Querystring("Internet_Access")
 Internet_Branch = Request.Querystring("Internet_Branch")
 Equipment_Needed = Request.Querystring("Equipment_Needed")
 Purpose = Request.Querystring("Purpose")

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<title>Request for Equipment Reservation</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "Request for Equipment Reservation Technology Department"
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""4""><tr><td width=""25%"">"
HTML = HTML & "Equipment Pick-up Date:</td><td width=""25%"">"
HTML = HTML & Pickup_Date
HTML = HTML & "</td><td width=""25%"">Equipment Return Date:</td><td width=""25%"">"
HTML = HTML & Return_Date
HTML = HTML & "</td></tr><tr><td>Equipment Pick-up Time: </td><td>"
HTML = HTML & Pickup_Time
HTML = HTML & "</td><td>Equipment Return Time:</td><td>"
HTML = HTML & Return_Time
HTML = HTML & "</td></tr>"
HTML = HTML & "<tr><td>Person Reserving the Equipment:</td><td>"
HTML = HTML & Reserving_person
HTML = HTML & "</td><td>Branch:</td><td>"
HTML = HTML & Your_Branch
HTML = HTML & "</td></tr><tr><td>Do you require Internet Access? </td><td>"
HTML = HTML & Internet_Access
HTML = HTML & "</td><td>If yes, for which Branch:</td><td>"
HTML = HTML & Internet_Branch
HTML = HTML & "</td></tr><tr>"
HTML = HTML & "<td>Equipment Needed: </td><td>"
HTML = HTML & Equipment_Needed
HTML = HTML & "</td><td></tr><tr><td>Purpose presentation, movie, etc):</td><td>"
HTML = HTML & Purpose
HTML = HTML & "</td></tr></table>"
HTML = HTML & "[u]Responsibility "
HTML = HTML & "By signing below, you acknowledge receipt of all equipment described above and "
HTML = HTML & "accept responsibility for its safekeeping. You assert that you will take reasonable "
HTML = HTML & "precautions necessary to prevent damage to and theft of the equipment and that"
HTML = HTML & "you will return it by the due date so that it will be available for other employees to use. [u]Long Term Assignment "
HTML = HTML & "Equipment assigned for long-term use is signed out to an individual, but is often only approved for use by the employee in a particular role or job position. When the employee#8217;s job or role changes, the equipment will need to be returned for use by other employees whose job or role requires the equipment. "
HTML = HTML & "[u]Return and Reassignment "
HTML = HTML & "Equipment will not be considered to be returned until a member of the Technology Department physically accepts return of the equipment, checks it, then completes and signs the Equipment Return section on this document. "
HTML = HTML & "After that, a new Equipment Sign-Out Sheet must be completed for the new assignee. Responsibility cannot be transferred from one assignee to another. "
HTML = HTML & "Only after the Equipment has been returned can responsibility for it be assigned to another employee. "
HTML = HTML & " Member of Technology Department ----------------------------------------------------------------- "
HTML = HTML & " Person Accepting Equipment Responsibility ------------------------------------------------------- "
HTML = HTML & "Print Name: _____________________________________ "
HTML = HTML & " To Be Filled Out By Technology Only: "
HTML = HTML & "OCL Asset Tag(s)# Loaned Out: _____________________________________"
HTML = HTML & "Equipment Return Date and Time: _____________________________________ "
HTML = HTML & " Person Accepting the Return---------------------------------------------------------------------- "
HTML = HTML & " Print Name______________________________________ "
HTML = HTML & " Laptop Accessories Checked______________________ "
HTML = HTML & "Items in need of repair or replacement: "
HTML = HTML & "</body>"
HTML = HTML & "</html>"

 Set objCDO = Server.CreateObject("CDONTS.NewMail")
 objCDO.From = "test@hotmail.com"
 objCDO.To = "test@hotmail.com"
 objCDO.Cc = ""
 objCDO.Bcc = ""
 objCDO.Subject = "Equipment Request Form"
 objCDO.Body = HTML
 objCDO.BodyFormat = 0
 objCDO.MailFormat = 0
 objCDO.Send
 ConfirmMsg = "Thanks for reserving our equipment!"
 end if
%>

<html>

<head>
<title>Equipment Request Form</title>
<script language="JavaScript">


function validRequired(formField,fieldLabel)
{
 var result = true;

 if (formField.value == "")
 {
 alert('Please enter a value for the "' + fieldLabel +'" field.');
 formField.focus();
 result = false;
 }

 return result;
}

function validCheckedRequired(formField,nameField,fieldLabe lName)
{
 var result = true;
 if (formField.checked)
 {
 if (nameField.value == "")
 {
 alert('Please enter a value for the "' + fieldLabelName +'" field.');
 formField.focus();
 result = false;
 }
 }
 return result;
}

function validCheckedboxRequired(formField, fieldLabelName)
{
 var result = true;
 if (formField.value == "")
 { alert('Please enter a value for the "' + fieldLabelName +'" field.');
 formField.focus();
 result = false;
 }
 return result;
}

function validCheckedContactRequired(emailField,telField1,t elField2,telField3,emailLabelName,telLabelName)
{
 var result = true;
 if (emailField.value == "" && (telField1.value == "" || telField2.value == "" || telField3.value == ""))
 {
 alert('Please enter a value for the "' + emailLabelName + '" or "' + telLabelName +'" field. Area code has to be included if telephone number is filled.');
 emailField.focus();
 result = false;
 }
 return result;
}

function isEmailAddr(email)
{
 var result = false;
 var theStr = new String(email);
 var index = theStr.indexOf("@");
 if (index > 0)
 {
 var pindex = theStr.indexOf(".",index);
 if ((pindex > index+1) && (theStr.length > pindex+1))
 result = true;
 }
 return result;
}

function validEmail(formField,fieldLabel)
{
 var result = true;

 if ((formField.value.length > 0) && ((formField.value.length < 3) || !isEmailAddr(formField.value)) )
 {
 alert("Please enter a complete email address in the form: yourname@yourdomain.com");
 formField.focus();
 result = false;
 }

 return result;

}

function validTel(emailField,formField,formField2,formField 3)
{
 var result = true;
 if (emailField.value == "" || formField.value.length > 0 || formField2.value.length > 0 || formField3.value.length > 0)
 {
 if ((formField.value.length < 3) || (formField2.value.length < 3) || (formField3.value.length < 4))
 {
 alert("Please enter a complete telephone number!");
 formField.focus();
 result = false;
 }
 }
 return result;
}

function validateForm(theForm)
{
 // Customize these calls for your form
 // Start ------->
 if (!validRequired(form1.Pickup_Date,"Pick-up Date"))
 return false;

 if (!validRequired(form1.Return_Date,"Return Date"))
 return false;

 if (!validRequired(form1.Pickup_Time,"Pickup Time"))
 return false;

 if (!validRequired(form1.Return_Time,"Return Time"))
 return false;

 if (!validRequired(form1.Reserving_Person,"Reserving Person"))
 return false;

 if (!validRequired(form1.Your_Branch,"Your Branch"))
 return false;

 if (!validRequired(form1.Internet_Access,"Internet Access"))
 return false;

 if (!validCheckedRequired(form1.Internet_Access,form1 .Internet_Branch,"for which branch"))
 return false;

 if (!validCheckedboxRequired(form1.Equipment_Needed," Equipment needed"))
 return false;

 if (!validRequired(form1.Purpose,"Purpose"))
 return false;

/*if (!validCheckedContactRequired(form1.UserEmail,form 1.UserTel,form1.UserTel2,form1.UserTel3,"Email", "Telephone"))
return false;

if (!validEmail(form1.UserEmail,"Email Address"))
 return false;

if (!validTel(form1.UserEmail,form1.UserTel,form1.Use rTel2,form1.UserTel3))
 return false;
if (!validTel2(form1.UserEmail,form1.UserTel3))
 return false;*/

// <--------- End

 return true;
}

</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
 <body>
 <% if ConfirmMsg <> "" then %>
 <h2><%= ConfirmMsg %></h2>
 <% end if %>
<a href="../index.htm">Back to Technology</a> | <a href="javascript:top.close();">Close
 Window</a>
THIS FORM IS CURRENTLY NOT WORKING.
 PLEASE USE THE <a href="Call_4_Help.htm">HELPDESK REQUEST FORM</a> TO RESERVE EQUIPMENT . THANK YOU.
 (Updated 2/16/06)
Request for Equipment Reservation 
 Technology Department 
 Ocean County Library 

<form action="equip.asp" method="POST" name="form1" onSubmit="return validateForm(this)">
<table width="760" border="1" align="center" cellpadding="6" cellspacing="0" bordercolor="#FFFFFF" bordercolordark="#C0C0C0">
 <tr>
 <td width="190">Equipment Pick-up Date: </td>
 <td width="182"><input type="text" name="Pickup_Date" id="Pickup_Date" size="20"></td>
 <td width="160">Equipment Return Date:</td>
 <td width="170"><input type="text" name="Return_Date" id="Return_Date" size="20"></td>
 </tr>
 <tr>
 <td width="190">Equipment Pick-up Time: </td>
 <td width="182"><input type="text" name="Pickup_Time" id="Pickup_Time" size="20"></td>
 <td width="160">Equipment Return Time:</td>
 <td width="170"><input name="Return_Time" type="text" id="Return_Time" size="20"></td>
 </tr>
 <tr>
 <td width="190">Person Reserving the Equipment:</td>
 <td width="182"><input name="Reserving_Person" type="text" id="Reserving_Person" size="20"></td>
 <td width="160">Your Branch:</td>
 <td width="170"><select name="Your_Branch" id="Your_Branch">
 <option selected value="">---- Select One ----</option>
 <option value="Barnegat">Barnegat</option>
 <option value="Bay Head">Bay Head</option>
 <option value="Beachwood">Beachwood</option>
 <option value="Berkeley">Berkeley</option>
 <option value="Brick">Brick</option>
 <option value="Island Heights">Island Heights</option>
 <option value="Jackson">Jackson</option>
 <option value="Lacey">Lacey</option>
 <option value="Lakewood">Lakewood</option>
 <option value="Little Egg Harbor">Little Egg Harbor</option>
 <option value="Long Beach Island">Long Beach Island</option>
 <option value="Manchester">Manchester</option>
 <option value="OutReach">OutReach</option>
 <option value="Plumsted">Plumsted</option>
 <option value="Printing & Graphics">Printing & Graphics</option>
 <option value="Pt. Pleasant Beach">Pt. Pleasant Beach</option>
 <option value="Pt. Pleasant Boro">Pt. Pleasant Boro</option>
 <option value="Stafford">Stafford</option>
 <option value="Toms River">Toms River</option>
 <option value="Tuckerton">Tuckerton</option>
 <option value="Upper Shores">Upper Shores</option>
 <option value="Waretown">Waretown</option>
 </select></td>
 </tr>
 <tr>
 <td width="190" height="28">Do you require Internet Access? </td>
 <td width="182">
 <label>
 <input name="Internet_Access" type="radio" value="Yes">
 Yes</label>
 
 </td>
 <td width="160">If yes, for which Branch:</td>
 <td width="170"><select name="Internet_Branch" id="Internet_Branch">
 <option selected >---- Select One ----</option>
 <option value="Barnegat">Barnegat</option>
 <option value="Bay Head">Bay Head</option>
 <option value="Beachwood">Beachwood</option>
 <option value="Berkeley">Berkeley</option>
 <option value="Bishop Lab">Bishop Lab</option>
 <option value="Brick">Brick</option>
 <option value="Island Heights">Island Heights</option>
 <option value="Jackson">Jackson</option>
 <option value="Lacey">Lacey</option>
 <option value="Lakewood">Lakewood</option>
 <option value="Little Egg Harbor">Little Egg Harbor</option>
 <option value="Long Beach Island">Long Beach Island</option>
 <option value="Manchester">Manchester</option>
 <option value="OutReach">OutReach</option>
 <option value="Plumsted">Plumsted</option>
 <option value="Printing & Graphics">Printing & Graphics</option>
 <option value="Pt. Pleasant Beach">Pt. Pleasant Beach</option>
 <option value="Pt. Pleasant Boro">Pt. Pleasant Boro</option>
 <option value="Stafford">Stafford</option>
 <option value="Stafford Lab">Stafford Lab</option>
 <option value="Toms River">Toms River</option>
 <option value="Tuckerton">Tuckerton</option>
 <option value="Upper Shores">Upper Shores</option>
 <option value="Waretown">Waretown</option>
 </select></td>
 </tr>
 <tr>
 <td width="190">Equipment
 Needed:</td>
 <td colspan="3">
 <label>
 <input type="checkbox" name="Equipment_Needed" id="Equipment_Needed" value="Laptop">
 Laptop</label>
 <label>
 <input type="checkbox" name="Equipment_Needed" id="Equipment_Needed" value="Projector">
 Projector</label>
 <label>
 <input type="checkbox" name="Equipment_Needed" id="Equipment_Needed" value="DVD Player">
 DVD Player</label>
 <input type="checkbox" name="Equipment_Needed" id="Equipment_Needed" value="Video Camera">
 Video Camera </td>
 </tr>
 <tr>
 <td width="190">Purpose
 (presentation, movie, etc):</td>
 <td colspan="3">
 <textarea name="Purpose" id="textarea" rows="1" cols="20"></textarea>
         &n bsp;       &nbs p;                 &n bsp;
 <input type="hidden" name="isSubmitted" value="yes">
 <input type="submit" value="Submit Form">
 </td>
 </tr>
 <tr bgcolor="#FFFFCC">
 <td colspan="4"> Please refer to the following instructions
 for filling out the form:
 [list]
 <li>Determine type of equipment to be reserved (from list below)</li>
 <li> Refer to the Equipment Calendar (in the Outlook Technology Equipment
 Request Folder) for availability of equipment</li>
 <li> Fill in top section of form</li>
 <li> Receipt of a confirmation email from the Technology Helpdesk confirms
 that your request has been completed. (Please check Equipment Calendar
 to confirm reservation date/info is correct)</li>
 <li> Contact the Technology Dept. Helpdesk (x5411) to arrange pick-up
 or drop-off of equipment</li>
 <li> If showing a movie, please reserve the DVD/CD player along with
 Digital Projector (no laptop is necessary) </li>
 </ul>
 **Please notify the Technology Department of any missing or damaged
 items when returning the equipment** 
 
 The following is a list of available equipment: 
 Laptops: Only four laptops are available from Technology. 
 Laptop 3 - Windows 2000; Office 2003; floppy drive; CD ROM; modem; network
 card; 1 USB port 
 Laptop 4 - Windows 2000; Office 2000; Horizon, PC Reliance, AOL 7.0;
 floppy drive; CD ROM; 2 USB ports; modem; network card 
 Laptop 5 - Windows XP; Office 2003; Horizon 7.3.2; (no floppy drive);
 CD-RW/DVD Rom combos; modem; network card; 2 USB ports 
 Laptop 7 - Windows XP; Office 2000; Horizon, PC Reliance, Camedia; Adobe
 PhotoShop Elements 2.0; external floppy drive; CD-RW/DVD Rom combos;
 modem; network card; 2 USB ports
 Other Equipment: 
 DVD/CD Player (1) 
 Video Camera (1) 
 Digital Projector (1)</td>
 </tr>
 </table>
</form>
 
</body>
</html>

adam_kahtava · #2 (**permalink**) March 9th, 2006, 08:45 PM

Take a look at your server log.
Sometimes if the DNS server can't resolve a recipient’s domain CDONTS will stop working.

Also make sure your SMTP server is running, restart it if you can.

- A.Kahtava

Need to download code?

Navigation