<%Response.expires=0 Response.Buffer=True%> UCS Express' e Hoşgeldiniz

İLETİŞİM
Call Center 444 0 108
International Call Center +90 444 0 108
Gsm +90 542 499 45 23
E-Mail info@ucs.com.tr
  <% Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword" firmaadi=Request("firmaadi") adsoyad=Request("adsoyad") bolum=Request("bolum") bolum2=Request("bolum2") emailadi=Request("emailadi") telefon=Request("telefon") faxno=Request("faxno") gsmno=Request("gsmno") semtsehiradi=Request("semtsehiradi") gonderino=Request("gonderino") aciklama=Request("aciklama") if request("gonder")<>"" then HTMLContent = "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "Ucs Express" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "
" HTMLContent = HTMLContent & "
" HTMLContent = HTMLContent & "

" HTMLContent = HTMLContent & "Sayin:"&msyetkili&"

" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" '.....Bölüm HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & " " HTMLContent = HTMLContent & "
İletişim Formu
Firma Adı:"&firmaadi&" 
Ad Soyad:"&adsoyad&" 
Size Nasıl Ulaşalım:"&bolum&" 
E-Mail:"&bolum2&" 
Telefon:"&telefon&" 
Fax No :"&faxno&" 
Gsm :"&gsmno&" 
Semt Şehir :"&semtsehiradi&" 
Gönderi No :"&gonderino&" 
Acıklama :"&aciklama&" 
" HTMLContent = HTMLContent & "" HTMLContent = HTMLContent & "" Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From =Request("emailadi") objMail.To = "info@ucs.com.tr" objMail.BCC = Addresses objMail.Subject =a&" "&b objMail.Body = HTMLContent objMail.MailFormat =0 objMail.BodyFormat = 0 'objMail.Value("Reply-To") ="info@ucscourier.com" 'On Error Resume Next objMail.Send ' Get a handle on the config object and it's fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields ' Set config fields we care about With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "ucs.com.tr" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "info@ucs.com.tr" .Item(cdoSendPassword) = "ucs321" .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = Request("emailadi") .From = "info@ucs.com.tr" .Cc ="info@ucs.com.tr" .Subject = "İletişim Sayfasından Gelen Mesaj" .HTMLBody = HTMLContent & Now() .bodyPart.Charset = "windows-1254" .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing if err.number<>0 then %>

e-Mail gönderme işleminde hata oluştu!

<% err.clear else%>

Kayıtlarımıza alınmıştır .En kısa zamanda cevap verilecektir.Teşekkür eder çalışmalarınız da başarılar dileriz...

<% firmaadi="" adsoyad="" bolum="" bolum2="" emailadi="" telefon="" faxno="" semtsehiradi="" gonderino="" aciklama="" end if end if %>
Firma Adı
* Ad Soyad
* Bölüm
* Size Nasıl Ulaşalım
* E-Mail
Telefon
Fax
Gsm
Semt / Şehir
Gönderi No
* Acıklama
 
 
 
     
 
     
 
Tüm Hakları saklıdır© 2004 UCS Express
UCS Express Markası ve logosunun tüm hakları UCS Universal Uluslararası Express Taşımacılık Tic.Ltd.'e Aittir.