<%@LANGUAGE="VBSCRIPT"%> <% if Request.Form("FFSubmitted") = "yes" then Dim BodyString Dim objCDO Dim RedirectURL Dim FormFields Dim arrFormFields FormFields = "name~business~address~state~zip~phone~fax~email~besttime~interestedin" If FormFields <> "" Then arrFormFields = split(FormFields,"~") End If Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "info@procopier.com" objCDO.To = "info@procopier.com" objCDO.Cc = "" objCDO.Bcc = "" objCDO.Subject = "Pro Copier Fill-in Form" BodyString = Replace("Here is a new fill-in form contact:","~",chr(13) & chr(10) )& chr(13) If FormFields <> "" Then For Each item In arrFormFields BodyString = BodyString & item & ": " & Request.Form(item) & chr(13) Next End If objCDO.Body = BodyString objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send Set objCDO = Nothing RedirectURL = "index.html" If RedirectURL <> "" then If Request.QueryString <> "" Then response.redirect(RedirectURL & "?" & Request.QueryString) else response.redirect(RedirectURL) end If end if end if %> <% MM_EditAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_EditAction = MM_EditAction & "?" & Request.QueryString End If %>

	C O N T A C T S Professional Copier Services    PO Box 250    Harding Hwy. & Fir Ave.    Richland, NJ 08350 Phone    856-697-5330 Fax    856-697-8773 E-mail    info@procopier.com For more information please feel free to contact us for more information via the Fill-in E-mail Form below: Name: Business: Address: State: Zip: Phone: Fax: E-mail: Best time to call: I'm especially interested in:
HOME | NEW EQUIPMENT | USED EQUIPMENT | CONTACTS www.ProCopier.com • info@ProCopier.com