Gönderi Takip | Sanex Express Kargo



<% gonder=Request("gonder") %><%if gonder="" then %> <%end if%> <% set conn = Server.CreateObject("ADODB.Connection") dbase = "DRIVER={Microsoft Access Driver (.mdb)};"&_ "DBQ=" & Server.MapPath("../e-sanex/database/TERAKKI.mdb")&" ;" conn.open(dbase) '......Tarih cevir........................................................ Function dbDate(dt) dbDate = year(dt) & right("0" & month(dt), 2) &_ right("0" & day(dt),2) & " " & formatdatetime(dt,4) End Function '........................................................................... airwaybilno=Trim(Request("airwaybilno")) email=Trim(Request("email")) ilktarih=date if gonder<> "" then sqljkh="Select from KONSIMENTO where KONSIMENTO='"&airwaybilno&"' " Set rsjkh=Conn.execute(sqljkh) if not rsjkh.eof then sqljkh1="Select * from KONSIMENTO_AYRINTISI where KONSIMENTO_KODU="&rsjkh("KAYIT_NO")&" order by KAYIT_NO DESC" Set rsjkh1=Conn.execute(sqljkh1) %>


Tracking Number	:	<%=airwaybilno%>	Pickup Date	:	<% dd=day(rsjkh("PICKUP_TARIHI")) if len(dd)=1 then dd="0" & dd end if mm=month(rsjkh("PICKUP_TARIHI")) if len(mm)=1 then mm="0" & mm end if yyyy=year(rsjkh("PICKUP_TARIHI")) 'getting new date newdate = dd &"."&mm& "." & yyyy %> <%=(newdate)%>
Referans Numarası	:	<% sqlr="Select REFERAN_NO from MANIFESTO_AYRINTISI where KONSIMENTO_NO='"&airwaybilno&"' " set rsr=Conn.execute(sqlr) if not rsr.eof then%> <%=rsr("REFERAN_NO")%> <% end if %>	Pieces	:	<%=(rsjkh("PAKETSAYISI"))%>
Gönderi Durumu	:	<% sqlkl="Select TARIH,SAAT,STATU_KODU from KONSIMENTO_AYRINTISI where KAYIT_NO in ( Select max(KAYIT_NO) from KONSIMENTO_AYRINTISI where KONSIMENTO_KODU="&rsjkh("KAYIT_NO")&" )" Set rskl=Conn.execute(sqlkl) if not rskl.eof then sqlm="Select * from GONDERI_STATU where KAYIT_NO="&rskl("STATU_KODU")&" " Set rsm=Conn.execute(sqlm) SEX="Gönderi Toplandı SANEX EXPRESS" if not rsm.eof then %> <%=rsm(1)%> <% if rsm("KAYIT_NO")=18 then%> <%end if%> <%end if%> <%end if%>	Destination	:	<% if not ISNULL(rsjkh("DESTINATION")) then sqlS="Select HAVALANI from HAVALANLAR where POSTA_KAYITNO="&rsjkh("DESTINATION")&"" Set rss=Conn.execute(sqls) if not rss.eof then %> <%=(rss("HAVALANI"))%> <%end if%> <%end if%>
Tarih Saat	:	<%if not rskl.eof then%> <% dd=day(rsjkh1("TARIH")) if len(dd)=1 then dd="0" & dd end if mm=month(rsjkh1("TARIH")) if len(mm)=1 then mm="0" & mm end if yyyy=year(rsjkh1("TARIH")) 'getting new date newdate = dd &"."&mm& "." & yyyy %> <%=newdate%> <%=rskl("SAAT")%> <%end if%>	Description	:	<%=(rsjkh("GONDERI1"))%>
Teslim Alan	:	<%if not rsjkh1.eof then%> <%=rsjkh1("TESLIM_ALAN")%> <%end if%>	Weight	:	<% if not ISNULL(rsJKH("KILOGRAM")) then sqlS="Select KILOGRAM from KILOGRAM where KAYIT_NO="&rsjkh("KILOGRAM")&"" Set rss=Conn.execute(sqls) if not rss.eof then %> <%=(rss("KILOGRAM"))%> <%end if%> <%end if%> Kg

<% x=0 do while not rsjkh1.eof a=x/2 %> <% x=x+1 rsjkh1.movenext Loop rsjkh1.close Set rsjkh1=Nothing%>

Tarih	Saat	Varış Hizmet Bölgesi	Satü
<% dd=day(rsjkh1("TARIH")) if len(dd)=1 then dd="0" & dd end if mm=month(rsjkh1("TARIH")) if len(mm)=1 then mm="0" & mm end if yyyy=year(rsjkh1("TARIH")) 'getting new date newdate = dd &"."&mm& "." & yyyy %> <%=newdate%>:	<%=rsjkh1("SAAT")%>:	<% sqlj="Select ULKE_ADI from ALICI_ULKE where ULKE_KODU="&rsjkh1("ULKE_KODU")&"" Set rsj=Conn.execute(sqlj) if not rsj.eof then aa=rsj("ULKE_ADI") end if %> <% if not ISNULL(rsjkh1("SEHIR_KODU")) then sqljj="Select HAVALANI from HAVALANLAR where POSTA_KAYITNO="&rsjkh1("SEHIR_KODU")&"" Set rsjj=Conn.execute(sqljj) if not rsjj.eof then bb=rsjj("HAVALANI") end if end if %> <%=aa%>,<%=bb%>	<% sqlg="Select * from GONDERI_STATU where KAYIT_NO="&rsjkh1("STATU_KODU")&"" set rsg=Conn.execute(sqlg) if not rsg.eof then %> <%=rsg("ACIKLAMA")%> <%end if %>

<% set conn = Server.CreateObject("ADODB.Connection") dbase = "DRIVER={Microsoft Access Driver (*.mdb)};"&_ "DBQ=" & Server.MapPath("../e-sanex/database/TERAKKI.mdb") &";" conn.open(dbase) '......Tarih cevir........................................................ Function dbDate(dt) dbDate = year(dt) & right("0" & month(dt), 2) &_ right("0" & day(dt),2) & " " & formatdatetime(dt,4) End Function '........................................................................... airwaybilno=Trim(Request("airwaybilno")) email=Trim(Request("email")) ilktarih=year(date)&"/"&month(date)&"/"&day(date) sqljkh="Select * from KONSIMENTO where KONSIMENTO='"&airwaybilno&"'" Set rsjkh=Conn.execute(sqljkh) if not rsjkh.eof then sqljkh1="Select * from KONSIMENTO_AYRINTISI where KONSIMENTO_KODU="&rsjkh("KAYIT_NO")&" order by STATU_KODU DESC" Set rsjkh1=Conn.execute(sqljkh1) %>

Name	:	<% sqlxy="Select * from ALICIFIRMA where KAYIT_NO="&rsjkh("ALICI_FIRMA")&"" set rsxy=Conn.execute(sqlxy) if not rsxy.eof then adres=rsxy("ADRESI") %> <%companyname=rsxy("FIRMA_ADI")%> <%End if %> <%=(rsxy("FIRMA_YETKILI"))%>	Postal Code	:	<%=(rsxy("POSTA_KODU"))%>
Company	:	<%=(companyname)%>	Pieces	:	<%=rsjkh("PAKETSAYISI")%>
Address	:	<%=(adres)%>	Packing	:	<%if rsjkh("PAKETLEM")="1" then %> Sanex Envelope <%elseif rsjkh("PAKETLEM")="2" then %> Sanex Packing <%elseif rsjkh("PAKETLEM")="3" then %> Other Package <%end if %>
City	:	<% if not ISNULL(rsxy("SEHIR_KODU")) and rsxy("SEHIR_KODU")<>"0" THEN sqlkkk="Select ULKE_KODU,HAVALANI from HAVALANLAR where POSTA_KAYITNO="&rsxy("SEHIR_KODU")&"" set rskkk=Conn.execute(sqlkkk) if not rskkk.eof then%> <%=(rskkk("HAVALANI"))%> <%end if %> <%end if %>	Description	:	<%=(rsjkh("GONDERI1"))%>
Country	:	<% if not ISNULL(rsxy("ULKE_KODU")) then sqlS="Select ULKE_ADI from ALICI_ULKE where ULKE_KODU="&rsxy("ULKE_KODU")&"" Set rss=Conn.execute(sqls) if not rss.eof then %> <%=(rss("ULKE_ADI"))%> <%end if%> <%end if%>	Payment	:	<%if rsjkh("ODEME")="1" then%> Sender Recipient <%elseif rsjkh("ODEME")="2" then%> Credit <%elseif rsjkh("ODEME")="3" then%> Card Cash <%end if%>
Phone	:	<%=(rsxy("TELEFON1"))%>	Collet	:	$<%=rsjkh("KOLLEK_BEDELI")%>

<%end if%> <%else%>

KONŞİMENTO NUMARASI BULUNAMADI LÜTFEN KONTROL EDİP TEKRAR GİRİNİZ!

<%end if%><%end if%>