Please choose an outbound and inbound time.

<% For i = 1 to oODepTimeArr.Count %> <% Next %> Dover to Calais Times Prices Suppliers  OUTWARD JOURNEY :     Depart Arrive Ship Names Duration Price(£)   7:00PM 9:00PM Stella Line 28 Nights £215 <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %>     Depart Arrive Ship Names Duration Price(£)   7:00PM 9:00PM P &O 12 Nights £315 <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %>       Depart Arrive Ship Names Duration Price(£)   2:00PM 6:00PM Cruise Ltd 28 Nights £215 <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %>       Depart Arrive Ship Names Duration Price(£)   7:00PM 9:00PM Stella Ltd 28 Nights £415 <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %>       Depart Arrive Ship Names Duration Price(£)   7:00PM 9:00PM BB Ferrys 28 Nights £215 <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %>       Depart Arrive Ship Names Duration Price(£)   7:00PM 9:00PM Stella Ltd 28 Nights £215 <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %>       Depart Arrive Ship Names Duration Price(£)   7:00PM 9:00PM Stella Ltd 28 Nights £215 <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %>       Depart Arrive Ship Names Duration Price(£)   5:00PM 8:00PM Roman Ferrys 28 Nights £215 <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %>       Depart Arrive Ship Names Duration Price(£)   7:00PM 9:00PM Stella Ltd 28 Nights £215   <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %> Calais to Dover >Times >Prices >Suppliers  RETURN JOURNEY :     Depart Arrive Ship Names Duration Price(£)   10:00PM 1:00AM Stella Line 28 Nights £215 <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %>       Depart Arrive Ship Names Duration Price(£)   3:00PM 6:00PM P&O 12 Nights £315 <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %>       Depart Arrive Ship Names Duration Price(£)   1:00PM 5:00PM Cruise Ltd 28 Nights £215 <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %>       Depart Arrive Ship Names Duration Price(£)   7:00PM 9:00PM Stella Ltd 28 Nights £415 <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %>       Depart Arrive Ship Names Duration Price(£)   7:00PM 9:00PM BB Ferrys 28 Nights £215 <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %>       Depart Arrive Ship Names Duration Price(£)   7:00PM 9:00PM Stella Ltd 28 Nights £215 <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %>       Depart Arrive Ship Names Duration Price(£)   7:00PM 9:00PM Stella Ltd 28 Nights £215 <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %>       Depart Arrive Ship Names Duration Price(£)   7:00PM 9:00PM Roman Ferrys 28 Nights £215 <% End If %> <% For i = 1 to oIDepTimeArr.Count %> <% myDuration = oIDurationArr.Value(i) myPrice = oICostArr.Value(i) myDuration = oIDurationArr.Value(i).SwapString(myDuration,chr(252),",") myPrice = oICostArr.Value(i).SwapString(myPrice,chr(252),",") session("ISupplier_ID")=oISupplierIDArr.Value(i) oIShipNameArr.Value(i)= Replace(oIShipNameArr.Value(i),Chr(28),"") %> <% Next %>       Depart Arrive Ship Names Duration Price(£)   7:00PM 9:00PM Stella Ltd 28 Nights £215 <%If (oIDepTimeArr.Count > 0) Then %>