<% @LANGUAGE = VBScript %> Pegasus Quote Request Form
 
PPG top banner
contact quote upload login
wht
Quote
 
Print Quote Request Form

 

 

 

<% Dim str1stName, str2ndName, strOrg, strEmail str1stName = Trim(Request.Form("Customer_First_name")) str2ndName = Trim(Request.Form("Customer_Surname")) strOrg = Trim(Request.Form("Organisation")) strEmail = Trim(Request.Form("Customer_Email_Address")) If (str1stName <> "" And str2ndName <> "" And strOrg <> "" And strEmail <> "") Then Dim myMail, tempmsg 'Set myMail = Server.CreateObject("CDONTS.NewMail") Set myMail=CreateObject("CDO.Message") mymail.From = Trim(Request.Form("Customer_Email_Address")) mymail.To = "dferreira@pegasusprintgroup.com.au" 'mymail.To = "bevo@bevonet.com" mymail.BCC = "bevo@bevonet.com" mymail.Subject = "Quote email" tempmsg = " *** Pegasus Quote Request email feature *** " & vbcrlf & vbcrlf tempmsg = tempmsg & " Email : " & Trim(Request.Form("Customer_Email_Address")) & vbcrlf & vbcrlf tempmsg = tempmsg & " Name : " & Trim(Request.Form("Customer_First_name")) & " " & Trim(Request.Form("Customer_Surname")) & vbcrlf & vbcrlf tempmsg = tempmsg & " Company : " & Trim(Request.Form("Organisation")) & vbcrlf & vbcrlf tempmsg = tempmsg & " Ph : " & Trim(Request.Form("Customer_Phone_no")) & vbcrlf & vbcrlf tempmsg = tempmsg & " Contact By Email : " & Trim(Request.Form("contactmeby_email")) & vbcrlf & vbcrlf tempmsg = tempmsg & " Contact By Phone : " & Trim(Request.Form("contactmeby_phone")) & vbcrlf & vbcrlf tempmsg = tempmsg & " Job Name : " & Trim(Request.Form("Job_Name")) & vbcrlf & vbcrlf tempmsg = tempmsg & " Stock Required : " & Trim(Request.Form("Stock Required")) & vbcrlf & vbcrlf tempmsg = tempmsg & " Colour Print Job : " & Trim(Request.Form("Colour Print Job")) & vbcrlf & vbcrlf tempmsg = tempmsg & " Black/White print job : " & Trim(Request.Form("Black/White_Print_Job")) & vbcrlf & vbcrlf tempmsg = tempmsg & " Quantity Required : " & Trim(Request.Form("Quantity_required")) & vbcrlf & vbcrlf tempmsg = tempmsg & " Number of Pages : " & Trim(Request.Form("Number_of_Pages")) & vbcrlf & vbcrlf tempmsg = tempmsg & " Finished Size : " & Trim(Request.Form("Finished_Size")) & vbcrlf & vbcrlf tempmsg = tempmsg & " Finishing Required : " & Trim(Request.Form("Finishing_Required")) & vbcrlf & vbcrlf tempmsg = tempmsg & " Message : " & Trim(Request.Form("Customer_Message")) & vbcrlf & vbcrlf tempmsg = tempmsg & vbcrlf & vbcrlf tempmsg = tempmsg & " " MyMail.TextBody = tempmsg mymail.send Response.Write "Thanks, your quote has been passed to our sales team at Pegasus." Set myMail = Nothing Else %> For a obligation free quotation please fill in your details below or phone the team on (02) 8822 0600 to discuss your printing needs.
We are open Monday to Friday 8:30am to 5:00pm.

 

">

First Name:*
<% if str1stName = "" then response.write " Information Required" end if %>
Surname:*
<% if str2ndName = "" then response.write " Information Required" end if %>
Organisation / Company:*
<% if strOrg = "" then response.write " Information Required" end if %>
Email Address:*
<% if strEmail = "" then response.write " Information Required" end if response.write Trim(Request.Form("contactmeby_email")) %>
Contact Number:
">
I would prefer to be contacted via: > >
Job Name:
">
Stock:
">
> Colour Printing > Black / White Printing
Quantity Required:
">
Number of Pages:
">
Finished Size: (eg 00mm (h) x 00mm (w)
">
Type of finishing required: (eg Bound, booklet, stapled, wiro bind etc)
">
Additional extras or other requirements:*


    
   
<% End if %>