<%if request.Form("do")="process" then Dim customerData customerData = "" & vbcr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "" & vbCr & _ "

" & vbCr & _ "Company name: " & vbCr & _ "	" & vbCr & _ "" & request.Form("CompanyName") & "" & vbCr & _ "
" & vbCr & _ "Mailing address:" & vbCr & _ "	" & vbCr & _ "" & request.Form("Address") & "" & vbCr & _ "" & vbCr & _ "
" & vbCr & _ "Contact name:" & vbCr & _ "	" & vbCr & _ "" & request.Form("Name") & "" & vbCr & _ "
" & vbCr & _ "Phone number:" & vbCr & _ "	" & vbCr & _ "" & request.Form("Phone") & "" & vbCr & _ "
" & vbCr & _ "E-mail address:" & vbCr & _ "	" & vbCr & _ "" & request.Form("Email") & "" & vbCr & _ "
" & vbCr & _ "Type of business you currently offer:" & vbCr & _ "	" & vbCr & _ "" & request.Form("Business") & "" & vbCr & _ "" & vbCr & _ "
" & vbCr & _ "Number of employees:" & vbCr & _ "	" & vbCr & _ "" & request.Form("Employees") & "" & vbCr & _ "
" & vbCr & _ "If you have an idea of " & vbCr & _ "what your needs are, " & vbCr & _ "please list them:" & vbCr & _ "	" & vbCr & _ "" & request.Form("Needs") & "" & vbCr & _ "" & vbCr & _ "
" & vbCr & _ "How would you like " & vbCr & _ "to be contacted? " & vbCr & _ "	" & vbCr & _ "" & request.Form("Contact") & "" & vbCr & _ "

" %> Your information has been submitted:

<%=customerData %>
We will contact you shortly if additional information is required.

For rate information :
For a rate sheet, write "RATES" on your company letterhead and fax it to 1-704-527-6580 or 1-919-839-0526, call us at 1-888-755-3274 or send us an e-mail to rates@dashcourier.com. <% customerData = customerData & "
New Account Request was Submitted " & Now() & " EST" Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.BodyFormat = 0 'CdoBodyFormatHTML objCDO.MailFormat = 0 'CdoMailFormatMime objCDO.To = "mail@dashcourier.com" objCDO.From = "online_contact@dashcourier.com" objCDO.Subject = "New Customer Subscribtion from dashcourier.com" objCDO.Body = customerData objCDO.Send Set objCDO = nothing else %> Requesting Rates
For a rate sheet, write "RATES" on your company letterhead and fax it to 1-704-527-6580 or 1-919-839-0526, call us at 1-888-755-3274 or send us an e-mail to rates@dashcourier.com.

Opening new Account
Opening a new account is as easy as filling out an application below and submitting it to us:

Company name:
Mailing address:	Address City State Zip
Contact name:
Phone number:
E-mail address:
Type of business you currently offer:	Please describe
Number of employees:
If you have an idea of what your needs are, please list them:	Please describe
How would you like to be contacted?	By e-mail By phone By US Mail

<%end if %>