Special Offers

Below are the ferry operating companies that have special offer fares available on ferry-to-Enlgand.com, plus many others. Please make a selection below.

Ferry operators available include: P&O Portsmouth, P&O Irish Sea, Stena Line, Brittany Ferries, Isle of Man Steam Packet, P&O Scottish Ferries, Sea France, Hoverspeed, Red Funnel Ferries, Condor Ferries, Eurotunnel, ANEK Lines, Hellenic Mediterranean Lines and many more soon... . This allows you to book a ferry for travel to France, Ireland, England (UK), Scotland, Holland, Greece, Italy, Sweden, Denmark, Belgium, Germany, and Norway. Please check this page regularly for the best ferry deals!

<% '----------------------------------------------------------- ' GetOffers() '----------------------------------------------------------- Sub GetOffers() Dim strSQL, rs, rsArray, x Dim intLastRow, strColour intLastRow = "" Call OpenDB(gDB) strSQL = " SELECT Cocode, DisplayRow, DisplayColumn " & _ " FROM SpecialOffersMain " & _ " WHERE Active = 'Y' AND DisplayLanguage = 'UK' and DisplayCurrency = 'GBP' " & _ " ORDER BY DisplayRow, DisplayColumn " Set rs = gobjDB.Execute(strSQL) rsArray = rs.GetRows() Response.Write "" For x = 0 to Ubound(rsArray, 2) Select Case (x mod 3) Case "0" strColour = "#FFCC00" Case "1" strColour = "#0066FF" Case "2" strColour = "#FF6600" End Select If intLastRow = "" Then Response.Write "" ElseIf intLastRow <> rsArray(1,x) Then Response.Write "" End If If rsArray(0,x) = "NONE" Then Response.Write "" Else If Session("ReferComp") <> "" Then Response.Write "" & VBCRLF End If intLastRow = rsArray(1,x) 'Response.Write x & ", " & x mod 4 & "
" Next Response.Write "

" Else Response.Write "

" End if Response.Write "" Response.Write "

" Set rs = Nothing Call CloseDB() End Sub '----------------------------------------------------------- ' AddEmail() '----------------------------------------------------------- Sub AddEmail() Dim strSQL Call OpenDB(gDB) strSQL = "insert SpecialOfferEmails (Email) " & _ " values (" & ToDB(Trim(Request.Form("txtEmailtoAdd"))) & ")" Call gobjDB.Execute(strSQL) Call CloseDB() End Sub '---------------------------------------------------- ' SendEmail(pstr) '---------------------------------------------------- Sub SendEmail(pstr) Dim strBody Dim objEMail Dim strSubject Set objEMail = Server.CreateObject("CDONTS.NewMail") If Err.Number Then Response.Write "
SendEmail specialoffers: Failed to CreateObject CDONTS.NewMail Feedback" Err.Clear Exit Sub End If strBody = _ "AFerry.to Special Offer Registration" & VBCRLF &_ "------------------------------------" & VBCRLF & VBCRLF & _ "Dear " & Trim(Request.Form("txtEmailtoAdd")) & VBCRLF & VBCRLF & _ "Thank you for registering for special offers with AFerry.to - the Online Ferry Gateway. " & _ "Rest assured, we will keep you up-to-date with all the new special offers as soon as they become available. " & VBCRLF & VBCRLF & _ "Kind regards, " & VBCRLF & VBCRLF & _ "AFerry.to Special Offers Team " & VBCRLF & _ "http://aferry.to" strSubject = "AFerry.to Special Offer Registration" If pstr = "Customer" Then objEMail.To = Trim(Request.Form("txtEmailtoAdd")) objEMail.From = "mail@aferry.to" ' 'somewhere in AFerry.to objEMail.Subject = strSubject objEMail.Body = strBody objEMail.Send() If Err.Number Then Response.Write "Failed to send Email to " & pstr Err.Clear Set objEMail = Nothing Exit Sub End If Else objEMail.To = "mail@aferry.to" ' 'somewhere in AFerry.to objEMail.From = Trim(Request.Form("txtEmailtoAdd")) objEMail.Subject = strSubject objEMail.Body = strBody objEMail.Send() If Err.Number Then Response.Write "Failed to send Email to " & pstr Err.Clear Set objEMail = Nothing Exit Sub End If End if Set objEMail = Nothing End Sub '----------------------------------------------------------- ' ToDB ' Check for critical characters before writing to database '----------------------------------------------------------- Function ToDB(pstrIn) Dim strOut Dim I Dim C strOut = "" For I = 1 to Len(pstrIn) C = Mid(pstrIn, I , 1) If C = "'" Then strOut = strOut & "'" End If strOut = strOut & C Next ToDB = "'" & strOut & "'" End Function '-------------------------------------- ' IsStageMode '-------------------------------------- Function IsStageMode() Dim strServerName strServerName = LCase(Request.ServerVariables("SERVER_NAME")) If instr (1,strServerName,"stage") > 0 Then IsStageMode = True Else IsStageMode = False End If End Function '-------------------------------------- ' IsNtestMode '-------------------------------------- Function IsNtestMode() Dim strServerName strServerName = LCase(Request.ServerVariables("SERVER_NAME")) If instr (1,strServerName,"ntest") > 0 Then IsNtestMode = True Else IsNtestMode = False End If End Function '-------------------------------------- ' IsDevelMode '-------------------------------------- Function IsDevelMode() Dim strServerName strServerName = LCase(Request.ServerVariables("SERVER_NAME")) If instr (1,strServerName,"redserver") > 0 Then IsDevelMode = True Else IsDevelMode = False End If End Function '----------------------------------------------------------- ' OpenDB '----------------------------------------------------------- Sub OpenDB(pstrDSN) Set gobjDB = CreateObject("ADODB.Connection") gobjDB.Open "DSN=" & pstrDSN & ";UID=sa;PWD=;" End Sub '----------------------------------------------------------- ' CloseDB '----------------------------------------------------------- Sub CloseDB() gobjDB.Close Set gobjDB = Nothing End Sub %>