Slate Products
<%
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
%>