<% nof_rootDir="../" nof_scriptDir="scripts" nof_debug=false 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 "Die folgende Datei konnte nicht mit übernommen werden: `" & filePath & "`." else Response.Write "

Ein Fehler ist aufgetreten.Bitte wenden Sie sich an den Site-Administrator.

Fehlercode: 103

" end if Response.End end if set fso = nothing end sub %> <% call IncludeLib("gb_XmlLib.asp", nof_sitePath, nof_scriptDir) %> <% call IncludeLib("nof_util.asp", nof_sitePath, nof_scriptDir) %> <% call IncludeLib("nof_c_cdoMail.asp", nof_sitePath, nof_scriptDir) %> <% call IncludeLib("gb_view.asp", nof_sitePath, nof_scriptDir) %> Gästebuch
Lyra und Krähe groß Entwurf1

Gesangverein  Sängerlust  1912  Großlangheim  e.V.

Tradition bewahren, Fortschritt sichern.

Träger der Zelter-Plakette.

Zelterplakette vorne
See3 400x300
IMG_9510
MGV_Chor_Kinder 001
Franko1
Von Oben gut

... manchmal hilft es, wenn Du auf Deiner Tastatur die Taste F5 drückst. .... mach mal ....

<% rc = gbRandomChars("ABCDEFGHIJKLMNOPQRSTUVWXYZ", CInt(3)) codeToCheck = "" if ( Session("nof_1287844873609_CaptchSettings") <> "" ) then codeToCheck = split(Session("nof_1287844873609_CaptchSettings"), "|")(0) end if Session("nof_1287844873609_CaptchSettings") = rc & "|1|ffffff|ff0033|10|10|5|5|charsmap/zebra|" & codeToCheck %> <% set nof_locale = gbLocaleToDictionary(nof_sitePath & nof_scriptDir, "GuestBook_de.properties") set gbModule_1287844873609 = new GbView gbModule_1287844873609.mComponentId = "1287844873609" gbModule_1287844873609.mComponentName = "module" gbModule_1287844873609.mXmlPropFile = "Guestbook1287844885984.xml.asp" if gbModule_1287844873609.Initialize(nof_sitePath, nof_scriptDir, nof_rootDir, nof_debug) then call gbModule_1287844873609.manageGestbook() end if set gbModule_1287844873609 = nothing %>