<%@LANGUAGE="VBSCRIPT"%> <% ' *** Send Form Values From Same Page to Webmaster - CDO NewMail ' *** UltraSuite Server Behavior - CDONewMail_111 - version 1.0 ' *** Created by Jag S. Sidhu - www.ultrasuite.com Dim usxCDO Set usxCDO = Server.CreateObject("CDONTS.NewMail") usxCDO.From = cStr(Request("Email")) usxCDO.To = "nora@digipostmail.com" usxCDO.Subject = "Digipostmail.com Contact Response" usxCDO.Body = Chr(13) & Chr(10) &_ "Name: " & cStr(Request("Name")) & Chr(13) & Chr(10) &_ "Company: " & cStr(Request("Company")) & Chr(13) & Chr(10) &_ "Address: " & cStr(Request("Address")) & Chr(13) & Chr(10) &_ "City: " & cStr(Request("City")) & Chr(13) & Chr(10) &_ "states: " & cStr(Request("states")) & Chr(13) & Chr(10) &_ "E-mail: " & cStr(Request("Email")) & Chr(13) & Chr(10) &_ "Phone: " & cStr(Request("Phone")) & Chr(13) & Chr(10) &_ "Fax: " & cStr(Request("Fax")) & Chr(13) & Chr(10) &_ "How he/she heard of Digipost: " & cStr(Request("How_Heard")) & Chr(13) & Chr(10) &_ "Description of needs: " & cStr(Request("Comments")) If (cStr(Request("Submit")) <> "") Then usxCDO.Send Set usxCDO = Nothing Response.Redirect "thanks.asp" End If %> Digipost Contact Information
Feedback

Contact Information

Name:

Company:
Address:
City:
State:

Email:

Phone:
Fax:
How did you hear about Digipost?
 

Please provide a short description of your needs.

 


 

Contact Information
Digipost is a customer-orientated company. We'll always be glad to assist our customers. You may call one of our customer service representatives at 1-877-351-MAIL Monday through Friday 8am to 5pm Arizona Time.

Telephone
520-690-0727 (Toll Free): 1-877-351-MAIL

FAX

1-413-280-2401

Postal address
3434 E Kleindale Rd #F
Tucson, AZ 85716

Email: info@digipostmail.com

Services About Digipost Services About Digipost