<% If request.querystring("newUserlevel")="user" Then session("userlevel")="user" session("firstname")="Ian" session("username")="Ian" session("ID")=29 session("membername")=LCase(session("username")) response.redirect"menu.asp" End If If session("userlevel")="user" OR session("userlevel")="admin" then response.redirect"menu.asp" %> Bedcote Morris <%@ Language="vbscript" %> <% 'Source Code copywright-- Realvert Ltd --> Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open "PROVIDER=MSDASQL;" & _ "DRIVER={Microsoft Access Driver (*.mdb)}; " & _ "DBQ=" & server.mappath("customer.mdb") %> <% 'Source Code copywright-- Realvert Ltd --> If session.Contents("userlevel") <> "admin" AND session.contents("userlevel") <> "user" And session.contents("userlevel") <> "guest" then response.redirect "default.htm" End if %>
Menu
Home
About Bedcote Morris
Photo Gallery
Performances
Meet the team
Latest News
My Account
Members Login

Username   

Password   

 

<% IF request("passwordRequest") <> "good" then %> <%End If%>

 

 
Photo Gallery...

Here are some of our latest photos from our performances.