<% for i=1 to request.form.count Message = Message & request.form.key(i) & ": " & request.form.item(i) & vbCrLf Next strHost = "acweb.webrelation.com" If Request("Submit") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.From = request.form("Email") Mail.AddAddress "kwright@accentix.com" Mail.Subject = "Donnellon McCarthy Contact Form" Mail.Body = Message strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> Donnellon McCarthy
  Document Imaging Devices
Digital Black and White Copier / Printers
Digital Color Copier/Printers
Large Format Color Printers
Fax
Multifunctional Devices
Network Printers
Scanners
Shredders
  DocuFacts© Document Workflow Analysis
  Total Document Management
  Network Systems Support
  Quality Service and Support
  Major - Government Accounts
  Consumables
 
  Home > Solutions > DocuFacts© Document Workflow Analysis
 
 

Fax Lead Form

*Name
Company
Address
City
State
Zip
*Phone
*E-mail
Comments
Do you currently utilize a color copier/printer?
If so, what is the model?
May we keep you informed via email about future product offerings and specials?
Yes No