<% 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 %> <% function FileExists(ByVal file, ByVal sitePath, ByVal scriptDir) dim fso, filePath on error resume next Set fso = Server.CreateObject("Scripting.FileSystemObject") filePath = sitePath & scriptDir & "\" & file FileExists = fso.FileExists(filePath) set fso = nothing end function %> Login
FVF_Logo_C.
FVF_Schriftzug

Datenschutz / Impressum
Last update: 26.07.2020 

SSL_secured

Anmelden

Melden Sie sich hier mit einem bereits registrierten Zugangskonto für unsere geschützten Seiten an. Sollten Sie noch kein Zugangskonto eingerichtet haben, können Sie sich hier registrieren ...

<% if FileExists("rememberValues.js", nof_sitePath, nof_scriptDir) then %>
<% if Len(request("1519746460476_usernameErrImg")) > 0 then response.write "" end if %>
<% if Len(request("1519746460476_passwordErrImg")) > 0 then response.write "" end if %>
<% if Len(request("1519746460476_LOGINErrImg")) > 0 then response.write "" end if %>
<%=request("1519746460476_Errors")%>
<% Response.Write "" else if nof_debug then Response.Write "Die folgende Datei konnte nicht mit bernommen werden: `" & nof_sitePath & nof_scriptDir & "\" & "rememberValues.js`." else Response.Write "

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

Fehlercode: 103

" end if end if %>
Smiley_Hello

Klicken Sie links oben auf das Vereinslogo, um zur Startseite zurückzukehren ...