 |
|
| |
İSTANBUL ATATÜRK HAVALİMANI İÇ HATLAR GELİŞ UÇUŞ BİLGİLERİ |
| |
| Uçuş No |
Hava Yolu |
Geldiği Yer |
Açıklama |
Planlı |
Tahmini |
Kapı |
| |
<%
ON ERROR RESUME NEXT
datatosend=""
Set myhttp=CreateObject("Msxml2.XMLHTTP")
myhttp.open "POST", "http://213.139.216.12/flightinfo/db/0_f_gelis.asp?amac=4", false
myhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
myhttp.send datatosend
FITI= Server.HTMLEncode(myhttp.responseText)
IF FITI="" THEN
RESPONSE.WRITE ERR.DESCRIPTION
RESPONSE.END
END IF
PIECE1=REPLACE(FITI,"ş","s")
set myhttp = Nothing
FINDED_PLACE= Instr(PIECE1,"GATE")
PAGE_END= Instr(PIECE1,"TAV Havalimanlar")
GET_PAGE=Mid(PIECE1,FINDED_PLACE+90,PAGE_END-FINDED_PLACE+12)
FOR I=1 TO 1000
IF TAKEN="" THEN
TAKE=GET_PAGE
ELSE
TAKE=TAKEN
END IF
GPS= Instr(TAKE,"<td>")
GET_PAGE_END= Instr(TAKE,"</td>")
PAGE=Mid(TAKE,GPS+10,GET_PAGE_END-GPS-10)
IF I>6 THEN
SAYI=1
SAYINE=SAYI+SAYINE
IF SAYINE=1 THEN
%>
<% END IF %>
| <%= PAGE %> |
<% IF SAYINE=7 THEN %>
<%
SAYINE=0
END IF
END IF
TAKEN=Mid(TAKE,GET_PAGE_END+26,PAGE_END)
NEXT
%>
| |
|
|
|
|