Forklift, İstifleme Makinaları, Servis, 2.el, Yedek Parça, Kiralama

<% if Request("submit") <> "" then Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") Dim objCDOConf Set objCDOConf = Server.CreateObject("CDO.Configuration") With objCDOConf.Fields .Item(cdoSendUsingMethod) = 2 .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = objCDOConf ' Be sure to use a valid email addresses below: objCDO.From = "sales@diva.com.tr" objCDO.To = "sales@diva.com.tr" objCDO.Subject = "FormMail from " & Request.ServerVariables("URL") objCDO.TextBody = "FormMail from " & Request.ServerVariables("URL") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "İsminiz: " objCDO.TextBody = objCDO.TextBody & Request("ad") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Firma: " objCDO.TextBody = objCDO.TextBody & Request("Firma") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Göreviniz: " objCDO.TextBody = objCDO.TextBody & Request("unvan") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Telefon: " objCDO.TextBody = objCDO.TextBody & Request("Telefon") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Fax: " objCDO.TextBody = objCDO.TextBody & Request("Fax") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Şehir: " objCDO.TextBody = objCDO.TextBody & Request("Sehir") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Cep Tel: " objCDO.TextBody = objCDO.TextBody & Request("Cep_Tel") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Email: " objCDO.TextBody = objCDO.TextBody & Request("Email") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Mesajınız: " objCDO.TextBody = objCDO.TextBody & Request("Mesajiniz") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.Send 'Clean-up Set objCDO = Nothing Set objCDOConf = Nothing ' Happy response. If you would rather, ' change the following to ' Response.Redirect "thanks.html" or similar Response.Write "Your Message has been sent. Thank you!" Response.End end if %>

İRTİBAT BİLGİLERİMİZ

Tel: 0 216 661 53 05 ( Pbx)

FST: 0 532 203 30 87

Fax : 0 216 661 57 14

Satış :

sales@diva.com.tr

Servis :

servis@diva.com.tr

Yedek Parça :

parca@diva.com.tr

Finans :

finans@diva.com.tr

Bilgi :

info@diva.com.tr

www.diva.com.tr

Mitsubishi LPG Forklift 2,5 ton Kapasiteli : 16,000 EURO + KDV

İnternete Özel Kampanyalarımız

Lifter Hidrolik Transpalet

2500 kg Kapasite, 55.000 Kaldırma pompa ömrü

Orjinal İtalyan

Fiyatımız: 450 TL + KDV

Hijyenik Palet

800x1200 mm

1200 kg Dinamik Kapasite

4500 kg Statik Kapasite

Fiyatımız: 90 TL + KDV

Yuasa Akü

5 Yıl Garanti

Bakım Gerektirmeyen

12 Volt 60 Ah

Fiyatımız: 130 TL + KDV

Tepe Lambası-Çakar Tip

12 Volt- 80 Volt

Flash yapar

500 saat ömürlü

Fiyatımız: 50 TL + KDV

Forklift Çatalı

2500 kg Kapasite

120 cm Uzunluk

Alman Malı

Fiyatımız: 600 TL + KDV

Rema Akü Fişi

24-48 Volt

160 A

Erkek ve Dişi Takım

Fiyatımız: 80 TL + KDV