<%Set db= Server.CreateObject("ADODB.Connection") db.Open("driver={Microsoft Access Driver (*.mdb)};dbq=D:\ftp\www.pds-travel.com\wwwroot\db.mdb") %>

<% str10 = " SELECT * FROM annons WHERE sida = 'h' ORDER BY plats " set rs10=db.Execute(str10) %> <%Do while rs10.EOF=false%> <%Response.Write(rs10("1"))%>
" target="mainFrame">">
<%Response.Write(rs10("3"))%>

<%rs10.MoveNext Loop rs10.close %>

AEROSVIT
lågprisflyg

Prisexempel:
Bangkok från 5160kr - Delhi från 5260kr - Dubai från 3975kr
Kiev från 3150kr - Beijing från 3670kr - Kairo från 3615kr
Melbourne/Sydney/Brisbane/Perth från 9300kr
Hongkong från 5390kr - Kuala Lumpur från 4990kr
Singapore från 5150kr - Seoul från 5950kr
Taipei från 6600kr - Tel aviv från 4130kr

Tidtabell
Stockholm Bangkok måndag 0920 1240 1410 0340 +1
    onsdag 0830 1145 1450 0420
Bangkok Stockholm tisdag 0510 1115 1425 1550
    torsdag 0550 1155 1425 1550
             
Stockholm Delhi måndag 0920 1240 1500 2330
Delhi Stockholm tisdag 0420 0830 1425 1550
             
Stockholm Dubai måndag 0920 1240 1510 2110
    fredag 0830 1145 1510 2110
Dubai Stockholm  tisdag 0745 1200 1425 1550
             
Stockholm Kiev måndag 0920 1240    
    onsdag 0830 1145    
    fredag 0830 1145    
Kiev Stockholm  måndag     0655 0830
    tisdag     1425 1550
    torsdag     1425 1550
             
Stockholm Beijing onsdag 0830 1145 1410 0320 +1
Beijing Stockholm  torsdag 0500 0900 1425 1550
             
Stockholm Kairo måndag 0920 1240 1420 1700
Kairo Stockholm  tisdag 0520 1000 1425 1550

<% str10 = " SELECT * FROM annons WHERE sida = 'v' ORDER BY plats " set rs10=db.Execute(str10) %> <%Do while rs10.EOF=false%> <%Response.Write(rs10("1"))%>
" target="mainFrame">">
<%Response.Write(rs10("3"))%>

<%rs10.MoveNext Loop rs10.close %>