<% Dim cn Dim rs dim RecCount dim LoopCount Dim frmQuery dim x x = 0 On error resume next frmQuery = Request.form("QueryName") LoopCount = 0 set cn = server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.Recordset") cn.Open "irie" rs.CursorLocation = 3 if Request("SearchType") = "" Then rs.Open "SELECT qryHerefordNightLifeTheBarrels.* FROM qryHerefordNightLifeTheBarrels ORDER BY qryHerefordNightLifeTheBarrels.ExpiryDate" ,cn, 2 'adOpenDynamic ', adLockOptimistic rs.MoveLast rs.MoveFirst if Request("SoFar") = "" Then else if request("MoveDir") = "F" then do until LoopCount = Cint(Request("SoFar")) if not rs.EOF then rs.MoveNext end if loopCount = LoopCount + 1 loop elseif request("MoveDir") = "P" then If rs.EOF then do until LoopCount = (Cint(Request("SoFar")) - 5) Response.Write loopcount rs.MoveNext loopCount = LoopCount + 1 loop end if end if end if Response.Write "" elseif Request("SearchType") = "S" Then rs.Open "Select * from qryHerefordNightLifeTheBarrels WHERE Description Like '%" & Request("KeywordSearch") & "%'" ,cn, 2 'adOpenDynamic ', adLockOptimistic 'rs.Open "Select * from qryHFD where Keywords Like '%" & Request("KeywordSearch") & "%'", cn, 2 'adOpenDynamic ', adLockOptimistic If not rs.EOF then rs.MoveLast rs.MoveFirst if Request("SoFar") = "" Then else if request("MoveDir") = "F" then do until LoopCount = Cint(Request("SoFar")) if not rs.Eof then rs.MoveNext end if loopCount = LoopCount + 1 loop elseif request("MoveDir") = "P" then If rs.EOF then do until LoopCount = (Cint(Request("SoFar")) - 10) rs.MoveNext loopCount = LoopCount + 1 loop end If end if end if end if Response.Write "" end if RecCount = rs.RecordCount %>

The Black Lion

31 Bridge Street
HEREFORD
HR4 9DG
Tel: 01432 343535

The Black Lion

A traditional English Pub  with ambience and an attitude free environment, log fires, a non-smoking  area and zero tolerance for anti-social behaviour. Whether you are looking for a meal or just a drink, drop in and take a look.

The Black Lion
 

Food
Menu Times are 12-6 daily. O.A.P. day is Tuesday.
Catering for parties (Buffets from £3.50 per  head).
Seated meals can be arranged.

Example Menu

Function room facilities with 100 capacity, separate entrance,

toilet suite and bar. Ideal  for Birthday parties, Anniversaries,

Weddings,  Christenings and Wakes.
Music
Friday - Musicianship. (serious musicians)
Saturday – Cabaret Night (pop, caters for parties)
Sunday – Mellower sounds.
3rd Sunday of every month – Music Club. People
come along with their own disc and sing.

Aaron
 

Regular performers are:

Aaron

  • Aaron

  • Ian Marshall

  • Sid and Tippo

  • Trial by Fire  

 

  • Karen Cooke

  • The Accord

  • Blush

  • Discovered

 

Upcoming Events

Website Designed & Maintained by Nick Mabe Trading as Armored Vehicles and Armored Cars from Omnis Irie and Armored Vehicles and Armored Cars from Omnis