<%
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
%>
<%
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
%>
<%
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("nof_c_cdoMail.asp", nof_sitePath, nof_scriptDir) %>
Passwort vergessen
Du hast dein Passwort vergessen? Kein Problem. Gib hier die E-Mail-Adresse ein welche du bei der Registrierung angegeben hast und dein Passwort wird dir zugesandt.
<%
if FileExists("rememberValues.js", nof_sitePath, nof_scriptDir) then
%>
<%
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.
