<% Set cn=server.CreateObject("ADODB.Connection") cn.Open "DSN=ferri2.ferriessql;UID=ferri2;Password=qlnqf+oevra;" route = request.QueryString("route") depday = request.QueryString("depday") If depday="All" Then Set rsair = cn.Execute("SELECT * FROM airtravel WHERE departure = '" & route & "' ORDER BY Day, Time") Else Set rsair = cn.Execute("SELECT * FROM airtravel WHERE departure = '" & route & "' AND Day = '" & depday & "' ORDER BY Day, Time") End If %> Greece + Greek Ferries Routes to Greece, Italy, Cyprus, Israel. Sea Travel Ferries to Greek islands. <% IF rsair.EOF Then Response.Write "

" Response.Write "No info available" Response.Write "

" Else %>
<% Do Until rsair.EOF %> <% rsair.MoveNext loop End If cn.Close %>
Route Day Time Flight Company HRS
<%=rsair("DEPARTURE")%> <%=rsair("DAY")%> <%=rsair("TIME")%> <%=rsair("FLIGHT")%> <%=rsair("COMPANY")%> <%=rsair("HRS")%>