<% option explicit Response.Expires = 1800 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" 'session("PathToFiles") = "\\localhost\" session("PathToFiles") = "D:\upload\CoakleyTech.com\" Dim FormType FormType = Ucase(Trim(Request.QueryString("form"))) If FormType = "UPLOAD" Then Dim Upload, File Set Upload = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = False Upload.Save(session("PathToFiles")) For Each File in Upload.Files session("Fld") = session("Fld") & File.Filename & vbCRLF Next sendEmail Upload Set Upload = Nothing End If %>
main | client login


 



 

 
 
CoakleyTech LLC
4000 W. Burnham Street
Milwaukee, WI 53215
 

Phone: 414-389-1900
Fax: 414-389-9130
Toll-free: 877-740-6315
Copyright © 2007
CoakleyTech, LLC
All Rights Reserved.

 

 Print Quote Request 

   
Name: Company:
Address: City:
State: Zip Code:
Email: Phone:    xxx-xxx-xxxx
        Preferred Contact:   Email      Phone        

Date Needed: Quantity:
Sides: # of Pages:
Paper/Stock: Paper Size:
Color: Trim/Cut:

Proof:   Soft    Hard    None

Artwork Supplied:    Yes     No, need assistance from CoakleyTech.

Staple: Single  Saddle Stitch   Other:

Fold:  Letter    Half   Other:

Collated   Uncollated   3 Ring Binder   3 Hole Drilled   Padding

Inserting   Perfect Bind  

Description of Project/ Special Instructions:

 

main | about | services | case study & industry info | contact

<% Function sendEmail(txtName,Upload) Dim EmailFrom,EmailTo,EmailSubject,EmailBodytype,EmailBody,oNewMail, strType,FileIdx EmailFrom = "Website@coakleytech.com" EmailTo = "nmartin@coakleytech.com" EmailSubject = "Print Quote Request from coakleytech.com" EmailBodytype = "text" If Upload.Form("txtName") <> "" Then EmailBody = "Name: " & Upload.Form("Name") & chr(13) & chr(10) End If If Upload.Form("Company") <> "" Then EmailBody = EmailBody & "Company: " & Upload.Form("Company") & chr(13) & chr(10) End If Dim Files Files = Split(session("Fld"), vbCRLF) EmailBody = EmailBody & chr(13) & chr(10) & "Uploaded file names: " For FileIdx = 0 to UBound(Files) EmailBody = EmailBody & Files(FileIdx) & " " Next EmailBody = EmailBody & chr(13) & chr(10) & "Files uploaded to \\Cnhweb\Upload\coakleytech.com" set oNewMail = server.createobject("CDONTS.NewMail") oNewMail.from = EmailFrom oNewMail.to = EmailTo oNewMail.subject = EmailSubject oNewMail.body = EmailBody If Upload.Form("Email") <> "" Then oNewMail.Value("Reply-To") = Upload.Form("Email") End If if EmailBodyType = "HTML" then oNewMail.BodyFormat = 0 oNewMail.MailFormat = 0 else oNewMail.BodyFormat = 1 oNewMail.MailFormat = 1 end if oNewMail.send End Function %>