<% ' ******************************************************************* ' Application Module: IBEEM catch all email ' ******************************************************************* ' DATE INITIALS CHANGES ' 01/01/2002 MT Initial Version ' 09/12/2004 MT Moved to stable code libary ' 28/02/2005 MT Add more database, emails ' 01/08/2005 MT Upgraded email module ' 16/06/2006 MT Upgraded email module all catch formatted ' ******************************************************************** ' DESCRIPTION: This module will format all form values. ' ******************************************************************** ' VARS: request("sendemail")=1 ' REQUIREMENTS: CDONTS ' ******************************************************************** ' ********************************* ' START - Catch all email formatted ' ********************************* if request("sendemail")=1 then if IsEmpty(Session("ASPCAPTCHA")) or Trim(Session("ASPCAPTCHA")) = "" then Response.Write "" else Dim TestValue : TestValue = Trim(Request.Form("txtCaptcha")) TestValue = UCase(TestValue) if StrComp(TestValue, Trim(Session("ASPCAPTCHA")), 1) = 0 then mailbody="" mailbody=mailbody & "" mailbody=mailbody & "Email Message" mailbody=mailbody & "" & Replace(Replace(Replace(Replace((Request.Form), "&", "
"), "=", ":   "), "+", " "), "_", " ") & "
" mailbody=mailbody & "






" mailbody=mailbody & "" Set Mail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. 'Send the message using the network (SMTP over the network). Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="localhost" 'Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Use SSL for the connection (True or False) 'Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 'If your server requires outgoing authentication, uncomment the lines below and use a valid email address and password. 'Basic (clear-text) authentication 'Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Your UserID on the SMTP server 'Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="noreply@scottwoodstransport.com" 'Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="moa3ief" Mail.Configuration.Fields.Update 'End of remote SMTP server configuration section Mail.Subject="Scott Woods Credit Application Form" Mail.From="info@scottwoodstransport.com" Mail.To="info@scottwoodstransport.com" 'Mail.To="test2@mitchellconsulting.dyndns.org" 'Mail.To="doug@3dautomation.ca" Mail.HTMLBody=mailbody Mail.Send Set Mail = Nothing else Response.Write "" end if Session("ASPCAPTCHA") = vbNullString Session.Contents.Remove("ASPCAPTCHA") end if end if ' ************************************* ' END - IBEEM Catch all email formatted ' ************************************* ' ' ******************************************************************* ' End Application Module: IBEEM email user ' Copyright © Acecomp Plus Corporate Site Solutions - www.acecomp.com ' All rights reserved 1997-2006. ' ******************************************************************* ' IBEEM CMS, IBEEM EMS, IBEEM ECMS, IBEEM INTRANET AND IBEEM ECMS+I
' ARE LICENSED BY ACECOMP PLUS UNDER ISLA (IBEEM Software License Agreement). %>
<% if request("sendemail")=1 then %>

Thank you, the form has been submitted.

Click here to return to the site.

<% end if %>

140 Maloy Street

Maple Ontario L6A 1R9

Administration: (905) 417-6198 Fax: (905) 832-1909

 

CREDIT APPLICATION FOR A BUSINESS ACCOUNT

BUSINESS CONTACT INFORMATION

Title:                                                                                 
     

Company Name:
     

Phone:
     

Fax:
     

E-mail:
     

Registered company address:
     

City:
     

Prov/State:
     

Postal/Zip
     

Date business commenced:
     

Sole proprietorship:
Yes No      

Partnership:
Yes No      

Corporation:
Yes No      

Other:
     

BUSINESS AND CREDIT INFORMATION

Primary business address:
     

City:
     

Prov/State:
     

Postal/Zip:
     

Phone:
     

Fax:
     

E-mail:
     

Bank name:
     

Bank address:
     

Phone:
     

City:
     

Prov/State:
     

Postal/Zip:
     

Type of account:
     

Account number:
     

BUSINESS/TRADE REFERENCES

Company name:
     

Address:
     

City:
     

Prov/State:
     

Postal/Zip:
     

Phone:
     

Fax:
     

E-mail:
     

Company name:
     

Address:
     

City:
     

Prov/State:
     

Postal/Zip:
     

Phone
      :

Fax:
     

E-mail:
     

Company name:
     

Address:
     

City:
     

Prov/State:
     

Postal/Zip:
     

Phone:
     

Fax:
     

E-mail:
     

AGREEMENT

1.     All invoices are to be paid thirty (30) days from the date of the invoice.

2.     Claims arising from invoices must be made within seven (7) working days.

3.     By submitting this application, you authorize Scott-Woods Transport Inc. to make inquiries into the banking and business/trade references that you have supplied.

SIGNATURES

 

 

Title:      

Date:      

 

 

Title:      

Date:      

 

Click here to reset
Type the characters as in the image above