Ideas

<% nof_rootDir="../" nof_scriptDir="scripts" nof_debug=true nof_sitePath = GetSitePath(nof_rootDir) function GetSitePath(RootDir) Dim relPath relPath = split(RootDir, "/") forwardSteps = UBound(relPath) - 1 if forwardSteps = 0 and relPath(0) = "." then forwardSteps = -1 GetSitePath = Server.MapPath(".") for idx=0 to forwardSteps GetSitePath = Left(GetSitePath, inStrRev(GetSitePath, "\") - 1) next GetSitePath = GetSitePath & "\" end function %> <% sub IncludeLib(ByVal lib, ByVal sitePath, ByVal scriptDir) dim fso, f, buf, filePath Set fso = Server.CreateObject("Scripting.FileSystemObject") filePath = sitePath & scriptDir & "\" & lib if fso.FileExists(filePath) then set f = fso.OpenTextFile(filePath, 1, false, -2) buf = f.ReadAll f.close() set f = nothing Dim regEx Set regEx = New RegExp regEx.Pattern = "^\s*<" & chr(37) & "\s*" regEx.IgnoreCase = True regEx.Global = True buf = regEx.Replace(buf,"") regEx.Pattern = "\s*" & chr(37) & ">\s*$" regEx.IgnoreCase = True regEx.Global = True buf = regEx.Replace(buf, "") set regEx = nothing ExecuteGlobal buf else if nof_debug then Response.Write "Could not include the file `" & filePath & "`." else Response.Write "

An error occured. Please contact the site administrator.

" Response.Write "

Error code: 103

" end if Response.End end if set fso = nothing end sub %> <% call IncludeLib("gb_XmlLib.asp", nof_sitePath, nof_scriptDir) call IncludeLib("gb_CdoMail.asp", nof_sitePath, nof_scriptDir) %> <% call IncludeLib("gb_view.asp", nof_sitePath, nof_scriptDir) %> Ideas

Welcome to our Guest Book!
Here you can express and share your ideas.
You can also communicate to other visitors and get answers to your own questions.
Please be considerate, as many younger children are visiting our website.

<% set nof_locale = gbLocaleToDictionary(nof_sitePath & nof_scriptDir, "GuestBook_en.properties") set gbModule_1145571362390 = new GbView gbModule_1145571362390.mComponentId = "1145571362390" gbModule_1145571362390.mComponentName = "module" gbModule_1145571362390.mXmlPropFile = "Guestbook1145571380359.xml.asp" if gbModule_1145571362390.Initialize(nof_sitePath, nof_scriptDir, nof_rootDir, nof_debug) then call gbModule_1145571362390.manageGestbook() end if set gbModule_1145571362390 = nothing %>