<% 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("oemail"))) & "" MailSubject = "New Application Form" 'Global Variables gBodyFormat = "" set WA_MailObject = WAUE_Definition("smtp.appliedi.net") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries end if 'Attachment Entries 'BCC Entries 'CC Entries 'Character Set 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,1) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"1") 'Start Mail Body MailBody = MailBody & "Business Name: " MailBody = MailBody & cStr(Request.Form("businessname")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "dba: " MailBody = MailBody & cStr(Request.Form("dba")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Business Type: " MailBody = MailBody & cStr(Request.Form("businesstype")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Address: " MailBody = MailBody & cStr(Request.Form("mailingaddress")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "City: " MailBody = MailBody & cStr(Request.Form("city")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "State: " MailBody = MailBody & cStr(Request.Form("state")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Zip: " MailBody = MailBody & cStr(Request.Form("zip")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Phone: " MailBody = MailBody & cStr(Request.Form("phone")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Toll free: " MailBody = MailBody & cStr(Request.Form("tollfree")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Fax: " MailBody = MailBody & cStr(Request.Form("fax")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Website: " MailBody = MailBody & cStr(Request.Form("weburl")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Business Type II: " MailBody = MailBody & cStr(Request.Form("type")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Number of Stores: " MailBody = MailBody & cStr(Request.Form("numberstores")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "----------------------------------------------------------" & vbCrlf & "" MailBody = MailBody & "Principal Name: " MailBody = MailBody & cStr(Request.Form("principalname")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Principal Title: " MailBody = MailBody & cStr(Request.Form("otitle")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Phone: " MailBody = MailBody & cStr(Request.Form("ophone")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "E-Mail Address: " MailBody = MailBody & cStr(Request.Form("oemail")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Principal Other: " MailBody = MailBody & cStr(Request.Form("oother")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "----------------------------------------------------------" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Purchaser Contact Name: " MailBody = MailBody & cStr(Request.Form("contactname")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Purchaser Title: " MailBody = MailBody & cStr(Request.Form("ptitle")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Purchaser Phone: " MailBody = MailBody & cStr(Request.Form("pphone")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Purchaser E-Mail: " MailBody = MailBody & cStr(Request.Form("pemail")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "-----------------------------------------------------------" & vbCrlf & "" MailBody = MailBody & "Account Contact Name: " MailBody = MailBody & cStr(Request.Form("accname")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Account Title:" MailBody = MailBody & cStr(Request.Form("acctitle")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Account E-Mail: " MailBody = MailBody & cStr(Request.Form("accmail")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "------------------------------------------------------------" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "References" & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "Name 1: " MailBody = MailBody & cStr(Request.Form("ref1name")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Contact Person 1: " MailBody = MailBody & cStr(Request.Form("ref1cont")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Title 1: " MailBody = MailBody & cStr(Request.Form("ref1title")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Phone 1: " MailBody = MailBody & cStr(Request.Form("ref1phone")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "E-Mail 1: " MailBody = MailBody & cStr(Request.Form("ref1email")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Address 1:" MailBody = MailBody & cStr(Request.Form("ref1address")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "City 1:" MailBody = MailBody & cStr(Request.Form("ref1city")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "State 1: " MailBody = MailBody & cStr(Request.Form("ref1state")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Zip 1: " MailBody = MailBody & cStr(Request.Form("ref1zip")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Name 2: " MailBody = MailBody & cStr(Request.Form("ref2name")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Contact Person 2: " MailBody = MailBody & cStr(Request.Form("ref2contact")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Title 2: " MailBody = MailBody & cStr(Request.Form("ref2title")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Phone 2: " MailBody = MailBody & cStr(Request.Form("ref2phone")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "E-Mail 2:" MailBody = MailBody & cStr(Request.Form("ref2email")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Address 2:" MailBody = MailBody & cStr(Request.Form("ref2address")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "City 2:" MailBody = MailBody & cStr(Request.Form("ref2city")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "State 2:" MailBody = MailBody & cStr(Request.Form("ref2state")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Zip 2:" MailBody = MailBody & cStr(Request.Form("ref2zip")) MailBody = MailBody & "" '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("Submit")) <> "")) then 'WA Universal Email object="AspMail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("newaccounts@babysmartusa.com") 'Send Mail All Entries if ("appform_thankyou.asp"<>"") then Response.Redirect("appform_thankyou.asp") end if end if %> BabySmart USA
Baby Smart Home Coshee Products Baby Smarts News Customer Service FAQ's Contact Store Locator
BABYSMART,USA - APPLICATION FORM

Questions: newaccounts@babysmartusa.com
Retailer Application

Business Name
dba
Business Type
Mailing Address
City
State / Zip Code
Telephone
800#
Fax
Website URL
No. of stores


Principal Name
Title
Telephone
Please enter a valid E-Mail address.Invalid format.
Email
Other


Order / Purchasing Contact Information

Contact Name
Title
Telephone
Please enter a valid E-Mail address.Invalid format.
Email
Other


Accounts Payable

Invoices are sent via email only. Please provide and Accounts Payable contact name and email address to forward invoices to. Terms are Payment in full for First order. Upon repeat order, 30 day terms are standard for qualified accounts with references. We accept American Express, Mastercard, VISA and Discover cards. Accounts exceeding 30 days are subject to a 1.5% montly service charge. We will ship Best Way for orders over 150 lbs; pre-paid & add. We ship UPS Ground for orders under 150 lbs; pre-paid/add unless otherwise instructed.
Accounts Receivable Contact Name
Title
Accounts Receivable Email Address


Business Trade Reference

Reference #1
Business Name
Contact Person
Title
Telephone Number
Email Address
Address
City
State / Zip Code


Reference #2
    
Business Name
Contact Person
Title
 
Telephone Number
Email Address
     
Address
City
State / Zip Code
     

Login

NJ Website Design - Flying Turtle Studio 2007 -