| |
 |
|
myUCS ABONE BAŞVURU FORMU
<%
if left(time,5)>"07:00" and left(time,5)<"11:00" then
aa="Günaydın"
elseif left(time,5)>"12:00" and left(time,5)<"17:00" then
aa="İyi Günler"
elseif left(time,5)>"17:00" and left(time,5)<"21:00" then
aa="İyi Akşamlar"
elseif left(time,5)>"21:00" and left(time,5)<"23:59" then
aa="İyi Geceler"
elseif left(time,5)>"23:59" and left(time,5)<"07:30" then
aa="Günaydın"
end if
%>
<%=aa%> |
UCS’de bir hesap açtırmak, hayatınızı kolaylaştıracak.Böylelikle, yalnızca önceden belirlenen indirimlerden ve ödemelerinizi aylara bölme imkanından değil, ayrıca en son ve en yaratıcı gönderi hizmet ve araçlarından da faydalanabileceksiniz.
Yeni hesap açtırmış bir müşteri olarak, UCS Connect ve Web Shipping gibi gönderi araçlarının sunduğu, kurye çağırmaktan, acil bir gönderinizin yerinin belirlenmesine kadar uzanan, çok çeşitli hizmet seçeneklerinden yararlanarak, gönderi yollama sürecinin bütün adımlarını, bilgisayarınızdan yönetip denetleyebileceksiniz.
Hesap başvurusu son derece kolay. Hesap başvurunuzu on-line olarak bu formu doldurarak yapabilirsiniz.
UCS abonesi olmak için aşağıdaki Hesap Açma Formunu doldurup gönderebilirsiniz. Talebinizi değerlendirmek ve hizmet ihtiyaçlarınızı belirlemek amacıyla, UCS yetkilileri 24 saat içinde sizi arayacaktır.
Formda doldurulması zorunlu olan alanlar, asterisk (*) ile işaretlenmiştir. Talebinizin değerlendirilmesi için formun eksiksiz olarak doldurulması gerekmektedir.
Formu doldurmadan önce, UCS’in çalışma şartlarının belirtildiği  bölümünü incelemenizi öneririz.
|
<%
if request("gonder")<>"" then
adi=Request("adi")
soyadi=Request("soyadi")
goreviniz=Request("goreviniz")
firmaunvani=Request("firmaunvani")
adres=Request("adres")
sehir=Trim(Request("sehir"))
firmakod=Trim(Request("firmakod"))
firmatel=Trim(request("firmatel"))
tel12=firmakod&"-"&firmatel
faxkod=Trim(Request("faxkod"))
faxtel=Trim(Request("faxtel"))
fax12=faxkod&"-"&faxtel
email=Trim(Request("email"))
standart=Request("standart")
'......................********STANDART********........................................................................................................................
if standart="" then
standart=0
else
standart=Request("standart")
end if
sozlesme=Request("sozlesme")
import1=Request("import1")
'......................********STANDART********........................................................................................................................
if import1="" then
import1=0
else
import1=Request("import1")
end if
faliyet=Request("faliyet")
calisansayisi=Request("calisansayisi")
ciro=Trim(Request("ciro"))
ihracatulke=Request("ihracatulke")
vergidairesi=Request("vergidairesi")
vergino=request("vergino")
aboneno=Request("aboneno")
ithalatulke=Trim(Request("ithalatulke"))
dokuman=Request("dokuman")
paket=Trim(Request("paket"))
AIRPORT=Trim(Request("AIRPORT"))
webadresi=Trim(Request("webadresi"))
gun=Request("gun")
ay=Request("ay")
yil=Request("yil")
tarih=gun&"."&ay&"."&yil
saat=Trim(Request("saat"))
unvani= LEFT(Request("unvani"),50)
unvani=Replace(unvani,"%","")
unvani=Replace(unvani,">","")
unvani=Replace(unvani,"<","")
unvani=Replace(unvani," ","")
unvani=Replace(unvani,"'","")
adres= LEFT(Request("adres"),100)
adres=Replace(adres,"%","")
adres=Replace(adres,">","")
adres=Replace(adres,"<","")
adres=Replace(adres,"'","")
firmaunvani= LEFT(Request("firmaunvani"),100)
firmaunvani=Replace(firmaunvani,"%","")
firmaunvani=Replace(firmaunvani,">","")
firmaunvani=Replace(firmaunvani,"<","")
firmaunvani=Replace(firmaunvani,"'","")
'......................********ADI********........................................................................................................................
adi= LEFT(Request("adi"),50)
adi=Replace(adi,"%","")
adi=Replace(adi,">","")
adi=Replace(adi,"<","")
adi=Replace(adi," ","")
adi=Replace(adi,"'","")
'......................********SOYADI********........................................................................................................................
soyadi= LEFT(Trim(Request("soyadi")),50)
soyadi=Replace(soyadi,"%","")
soyadi=Replace(soyadi,">","")
soyadi=Replace(soyadi,"<","")
soyadi=Replace(soyadi," ","")
soyadi=Replace(soyadi,"'","")
'......................********EMAİL********........................................................................................................................
email= LEFT(Trim(Request("email")),50)
email=Replace(email,"%","")
email=Replace(email,">","")
email=Replace(email,"<","")
email=Replace(email," ","")
email=Replace(email,"'","")
'......................********EMAİL1********........................................................................................................................
email1= LEFT(Trim(Request("email1")),50)
email1=Replace(email1,"%","")
email1=Replace(email1,">","")
email1=Replace(email1,"<","")
email1=Replace(email1," ","")
email1=Replace(email1,"'","")
email11=email&"@"&email1
'......................********EMAİL2********........................................................................................................................
Addresses=email11
sqlw="Select FIRMA_UNVANI from ONLINE_UYE_MYUCS where FIRMA_UNVANI ='"&firmaunvani&"'"
Set rsw=Conn.execute(sqlw)
if rsw.eof then
For i = 1 To 8 '8
Randomize
j = 1 * Rnd
j = CInt(j)
If j = 1 Then
sPassword =sPassword& Chr(CInt((25 * Rnd) + 65))
Else
sPassword= sPassword & CInt(9 * Rnd)
End If
Next
For ix= 100 To 114
Randomize
jx = 100 * Rnd
jx = CInt(jx)
If jx = 100 Then
sPasswordx =Right((sPasswordx& Chr(CInt((25 * Rnd) + 65))),4)
Else
sPasswordx = Right((sPassword & CInt(9 * Rnd)),4)
End If
Next
sqlx="Select * from ONLINE_UYE_MYUCS where PASSWORD='"&sPassword&"' AND ACCOUNT_KODU='"&sPasswordx&"'"
Set rsx=Conn.execute(sqlx)
sqly="Select EMAIL from ONLINE_UYE_MYUCS where EMAIL='"&email11&"' "
Set rsy=Conn.execute(sqly)
if not rsx.eof then
'......Password
For i = 1 To 8 '8 will be the password length
Randomize
j = 1 * Rnd
j = CInt(j)
If j = 1 Then
sPassword =sPassword& Chr(CInt((25 * Rnd) + 65))
Else
sPassword=sPassword & CInt(9 * Rnd)
End If
Next
End if
if sehir="" or sehir="0" then%>
 Lütfen
bulunduğunuz şehri seçiniz !
<%
elseif faliyet="" or faliyet="0" then%>
Lütfen
faaliyet alanını seçiniz !
<%
elseif calisansayisi="" or calisansayisi="0" then
%>
Lütfen
çalışan sayısını seçiniz !
<%
elseif dokuman="0" or dokuman="" then%>
Lütfen
döküman adetini belirtiniz !
<%
elseif paket="" or paket="0" then%>
Lütfen
paket adetini belirtiniz !
<%
elseif sozlesme="" then%>
Deyim
ve Şartları Okudum ve Kabul ediyorum
ikonunu işaretleyiniz !
<%
elseif not rsy.eof then%>
Lütfen
Mail Adresini Kontrol Edip Tekrar Giriniz !
<%
else
mesajx="Müşteri online üyelik kaydınız yapılmıştır.Bundan sonra yapmanız gereken "
xxy="info@ucscourier.com"
Dim objMail
Dim strSubject
Dim strBody
strBody = "
Sayın "&firmaunvani&"
"&mesajx&" Online konşimento doldurmak için lütfen linki tıklayınız..
E-Mail Adresi :"&email11&"
Şifresi::"&sPassword&"
Size iyi çalışmalar dileriz.
"
'......Tarih cevir........................................................
Function dbDate(dt)
dbDate = year(dt) & right("0" & month(dt), 2) &_
right("0" & day(dt),2) & " " & formatdatetime(dt,4)
End Function
'...........................................................................
Sqlm="Select UYE_KODU from ONLINE_UYE_MYUCS"
set rsm=Conn.execute(sqlm)
if rsm.eof then
sayacno=1
else
Sqlm="Select max(UYE_KODU)+1 from ONLINE_UYE_MYUCS rowlock"
set rsm=Conn.execute(sqlm)
sayacno=rsm(0)
end if
sql="insert into ONLINE_UYE_MYUCS (UYE_KODU,ADI,SOYADI,GOREVINIZ,FIRMA_UNVANI,ADRES,SEHIR_KODU,TEL,FAX,EMAIL,HIZMET_1,HIZMET_2,FAALIYET_ALANI,CALISAN_SAYI,CIRO_MONEY,IHRACAT_ULKELER,ITHALAT_ULKELER,AYLIK_GONSAYIDOK,AYLIK_GONSAYIPAKET,WEBADRES,AIRPORT,TARIH,PASSWORD) values ("&sayacno&",'"&adi&"','"&soyadi&"','"&goreviniz&"','"&firmaunvani&"','"&adres&"',"&sehir&",'"&tel12&"','"&fax12&"','"&email11&"',"&standart&","&import1&","&faliyet&","&calisansayisi&",'"&ciro&"','"&ihracatulke&"','"&ithalatulke&"',"&dokuman&","&paket&",'"&webadresi&"','"&AIRPORT&"','"&dbDate(date)&"','"&sPassword&"')"
Set rs=Conn.execute(sql)
faxkod=""
faxtel=""
firmaunvani=""
adi=""
firmakod=""
adres=""
soyadi=""
goreviniz=""
faliyet=""
calisansayisi=""
ciro=""
firmatel=""
ihracatulke=""
ithalatulke=""
dokuman=""
vergino=""
paket=""
AIRPORT=""
webadresi=""
vergidairesi=""
gun=""
ay=""
yil=""
ciro=""
ihracatulke=""
ithalatulke=""
dokuman=""
paket=""
webadresi=""
AIRPORT=""
email=""
email1=""
if err.number<>0 then
err.clear
else
sonuc=1
%>
İşlem başarılı bir şekilde yapılmıştır.
<%
end if
end if
end if
end if
%> |
| *
Ad |
|
| *
Soyad |
|
| *
Göreviniz |
|
*
Firma Ünvanı
|
|
| Vergi Numarası |
|
| Vergi Dairesi |
|
| *
Adres |
|
| |
| *
Şehir |
|
| *
Telefon |
|
| *
Faks |
|
| *
E - mail |
@
|
| *
Hesap açmak istediğiniz hizmet türü |
standart
import express |
| *
Faaliyet alanı |
|
| *
Çalışan Sayısı |
|
| *
Aylık Gönderi Tutarınız |
|
|
* İhracatta öncelikli ülkeler |
|
| *
İthalatta öncelikli ülkeler |
|
| *
Aylık ortalama gönderi sayısı |
Dökuman |
|
Paket |
| Şu an çalıştığınız
hızlı hava taşımacılığı firması |
|
| İnternet
adresi |
|
| (*)
:Deyim
ve Şartları Okudum ve Kabul ediyorum
|
|
| (*)
: Zorunlu alanlar |
Deyim ve Şartlar (41 Kb) 'ı inceleyebilirsiniz.. |
|
|
|
 |
|
|
| |
|