Menu:

A.T.I. d.o.o.

Zadarska 15

HR - 52100 Pula

Croatia

Tel. ++385 52 223666

Fax. ++385 52 216695

info@ati-pula.com

www.ati-pula.com

OUR PARTNERS:

Scandjet

 

SIXT

 

HIT THE ROAD WITH US

We operate transfers and excursions covering all the destinations in Istria, Kvarner and North Dalmatia. For any other request only road is the limit. Our car park has 8 modern turist high classed coaches, 2 minicoaches, several minivans and cars. Airports, harbours, hotels, turist centers... you name it... A.T.I. is there for you.

 

 

Don't forget, if your clients and your guests need a professional service in covering their transport plans in Croatia and abroad, be free to contact us and we will prepare you our best offer that will satisfy your expectations.

 

 

 

Do confide in the experience of our drivers in preparing the best routes to make your transfer, excursion,vacation or a business trip unforgettable.

 

 

 

TRANSFER ORDER FORM:

Fields marked (*) are required

First:

Last:

Company:

Address:

Telephone:

Mobile:

Website:

Order:

<% ' declare variables Dim EmailFrom Dim EmailTo Dim Subject Dim First Dim Last Dim Company Dim Address Dim Telephone Dim Mobile Dim Website Dim order ' get posted data into variables EmailFrom = "predrag@ati-pula.com" EmailTo = "predrag@ati-pula.com" Subject = "narudzba" First = Trim(Request.Form("First")) Last = Trim(Request.Form("Last")) Company = Trim(Request.Form("Company")) Address = Trim(Request.Form("Address")) Telephone = Trim(Request.Form("Telephone")) Mobile = Trim(Request.Form("Mobile")) Website = Trim(Request.Form("Website")) order = Trim(Request.Form("order")) ' validation Dim validationOK validationOK=true If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom) ' prepare email body text Dim Body Body = Body & "First: " & First & VbCrLf Body = Body & "Last: " & Last & VbCrLf Body = Body & "Company: " & Company & VbCrLf Body = Body & "Address: " & Address & VbCrLf Body = Body & "Telephone: " & Telephone & VbCrLf Body = Body & "Mobile: " & Mobile & VbCrLf Body = Body & "Website: " & Website & VbCrLf Body = Body & "order: " & order & VbCrLf ' send email Dim mail Set mail = Server.CreateObject("CDONTS.NewMail") mail.To = EmailTo mail.From = EmailFrom mail.Subject = Subject mail.Body = Body mail.Send ' redirect to success page Response.Redirect("ok.htm?" & EmailFrom) %>