<% function WA_Universal_Email_2_SendMail(RecipientEmail) { var MailAttachments = ""; var MailBCC = ""; var MailCC = ""; var MailTo = ""; var MailBodyFormat = ""; var MailBody = ""; var MailImportance = ""; var MailFrom = "Bob Rinaldi|WA|bobrinaldi@earthlink.net"; var MailSubject = ""; //Global Variables gBodyFormat = ""; WA_MailObject = WAUE_Definition("mail.healthyhouseservicedialone.net","25","rfrfilters","murphy1"); if (RecipientEmail) { WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail); } else { //To Entries WA_MailObject = WAUE_AddRecipient(WA_MailObject,"" + String(String(Request.Form("emailAdd"))) + ""); MailTo = gAddRecipient; } //Attachment Entries //BCC Entries WA_MailObject = WAUE_AddBCC(WA_MailObject,"bobrinaldi@earthlink.net"); MailBCC = gAddBCC; //CC Entries MailCC = gAddCC; //Body Format WA_MailObject = WAUE_BodyFormat(WA_MailObject,0); MailBodyFormat = gBodyFormat; //Set Importance WA_MailObject = WAUE_SetImportance(WA_MailObject,"3"); MailImportance = gSetImportance; //Character Set WA_MailObject = WAUE_SetCharset(WA_MailObject,"ISO-8859-1"); //Start Mail Body MailBody = MailBody + "\r\n"; MailBody = MailBody + "

Dear "; MailBody = MailBody + String(Request.Form("fName")); MailBody = MailBody + "

\r\n"; MailBody = MailBody + "

Thannk you for your subscription. Our representative will call you shortly to schedule the repair.

\r\n"; MailBody = MailBody + ""; //End Mail Body WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody); WA_MailObject = null; } %> <% else { //To Entries } //Attachment Entries //BCC Entries //CC Entries //Body Format WA_MailObject = WAUE_BodyFormat(WA_MailObject,0); MailBodyFormat = gBodyFormat; //Set Importance WA_MailObject = WAUE_SetImportance(WA_MailObject,"3"); //Character Set //Start Mail Body //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 ("thankyou.html"!="") { Response.Redirect("thankyou.html"); } } %><% if ((Request.ServerVariables("Request_Method") == "POST")) { //WA Universal Email object="AspEmail" //Send Loop Once Per Entry WA_Universal_Email_2_SendMail("" + String(String(Request.Form("emailAdd"))) + ""); //Send Mail All Entries if (""!="") { Response.Redirect(""); } } %> Contact
Annual Subscription Plan
First Name
Last Name
Street Address
City, State, Zip Code
E-mail adddress

Do you want to sign up for an Annual Subscription plan?
HH will contact you to arrange scheduling of tradesmen






What are the services (up to 3) you want?

Plumbing     Dumpster and Laborers
Electrical      Painters     Handyman
Locksmith    Alarm Specialist     HVAC

What other services do you want?






Return to home page