<% Dim strCurrentPageName strCurrentPageName = Right(Request.ServerVariables("SCRIPT_NAME"), Len(Request.ServerVariables("SCRIPT_NAME"))-1) Dim iCount, path, fso, filename iCount = 0 path = "" Set fso = CreateObject("Scripting.FileSystemObject") filename = Server.MapPath(path + "generator/show.asp") Do While fso.FileExists(filename) = False And iCount < 101 path = "../" + path : On Error Resume Next filename = Server.MapPath(path + "generator/show.asp") iCount = iCount + 1 Loop If iCount = 100 then response.write "Sorry, we can not locate core functions. Program terminated" Else Session("showurl") = strCurrentPageName Session("showback") = path + "generator/" Server.Execute(path + "generator/show.asp") End If %>
House Names | House Numbers | Opening / Commemorative Plaques | Business Plaques | Memorials | Animal Memorials | Weddings gifts with a difference | Gifts for the one you Love | Clocks & Barometers | Awards / Commemorative Gifts | For the Home
Website Design and Hosting by w3designs