<%
company = request.QueryString("company")
Set cn=server.CreateObject("ADODB.Connection")
cn.Open "DSN=ferri2.ferriessql;UID=ferri2;Password=qlnqf+oevra;"
Set rsvenice = cn.Execute("SELECT DISTINCT Embarkation FROM international WHERE Embarkation LIKE 'venice%' ORDER BY Embarkation")
Set rstrieste = cn.Execute("SELECT DISTINCT Embarkation FROM international WHERE Embarkation LIKE 'trieste%' ORDER BY Embarkation")
Set rsancona = cn.Execute("SELECT DISTINCT Embarkation FROM international WHERE Embarkation LIKE 'ancona%' ORDER BY Embarkation")
Set rsbari = cn.Execute("SELECT DISTINCT Embarkation FROM international WHERE Embarkation LIKE 'bari%' ORDER BY Embarkation")
Set rsbrindisi = cn.Execute("SELECT DISTINCT Embarkation FROM international WHERE Embarkation LIKE 'brindisi%' ORDER BY Embarkation")
Set rscorfu = cn.Execute("SELECT DISTINCT Embarkation FROM international WHERE Embarkation LIKE 'corfu%' ORDER BY Embarkation")
Set rspatras = cn.Execute("SELECT DISTINCT Embarkation FROM international WHERE Embarkation LIKE 'patras%' ORDER BY Embarkation")
Set rsigoumenitsa = cn.Execute("SELECT DISTINCT Embarkation FROM international WHERE Embarkation LIKE 'igoumenitsa%' ORDER BY Embarkation")
Set rspiraeus = cn.Execute("SELECT DISTINCT Embarkation FROM international WHERE Embarkation LIKE 'piraeus%' ORDER BY Embarkation")
Set rsrhodes = cn.Execute("SELECT DISTINCT Embarkation FROM international WHERE Embarkation LIKE 'rhodes%' ORDER BY Embarkation")
Set rslimassol = cn.Execute("SELECT DISTINCT Embarkation FROM international WHERE Embarkation LIKE 'limassol%' ORDER BY Embarkation")
Set rshaifa = cn.Execute("SELECT DISTINCT Embarkation FROM international WHERE Embarkation LIKE 'haifa%' ORDER BY Embarkation")
Set rssantorini = cn.Execute("SELECT DISTINCT Embarkation FROM international WHERE Embarkation LIKE 'santorini%' ORDER BY Embarkation")
Set rsheraklion = cn.Execute("SELECT DISTINCT Embarkation FROM international WHERE Embarkation LIKE 'heraklion%' ORDER BY Embarkation")
%>
