Login

<% VisitorName = request.cookies("name") If VisitorName ="" then %>Ihr Benutzername: Besucher
Online auf dieser Seite: <%= Application("ActiveUsers") %> aktive User. <% End if If VisitorName <> "" then %> <% user = Request.Cookies("name") %>Ihr Benutzername: <%=user%>.
Online auf dieser Seite: <%= Application("ActiveUsers") %> aktive User. <% End if %> - Wer ist gerade online?
<%=BreadCrumbs()%>
12-Jul-2003/25-Jul-06

Übersicht

Dies ist eine Website mit einer geschlossenen Benutzergruppe; daher werden keine neuen Registrierungen vorgenommen.

Wenn Sie über eine Benutzerkennung verfügen, können Sie sich hier anmelden:

<% strMessage = "Bitte melden Sie sich mit ihrem Benutzernamen und Passwort an:" if request.form <> "" then strUser=replace(trim(request("textfield")), "'", "") strPass=replace(trim(request("textfield2")), "'", "") if instr(strUser, " ") > 0 then strUser=left(strUser, instr(strUser, " ")) if instr(strPass, " ") > 0 then strPass=left(strPass, instr(strPass, " ")) set objConn=server.createobject("adodb.connection") objConn.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("../../fpdb/user.mdb")) set rs=objConn.execute("select * from passwords where user='"&strUser&"' and pass = '"&strPass&"'") if rs.eof and rs.bof then strMessage = "Bitte geben Sie den richtigen Benutzernamen und das dazugehörende Passwort ein!" else session("loggedin")="yes" if request("page") <> "" then response.cookies("name") = strUser response.redirect request("page") else strMessage = "Sie haben sich erfolgreich angemeldet, bitte Klicken Sie hier, um in den geschützen Bereich zu gelangen!" end if end if end if %>

">

<%=strMessage%>

Benutzername:

Passwort:

Anmerkungen

<% iMyForumID = 48 ShowForum iMyForumID %>