<% Dim v_folder Dim MyConn Dim MdbFilePath Dim v_username Dim v_password Dim loginflag Dim SQL_query Dim RS session ("s_folder")="" session ("loginok")=0 v_username=request.form("username") v_password=request.form("password") loginflag=request.form("loginflag") if loginflag="1" then Set MyConn = Server.CreateObject("ADODB.Connection") MdbFilePath = "d:\websites\new-starchat\projekt\user.mdb" MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MdbFilePath & ";" SQL_query = "SELECT * FROM user WHERE username='"&v_username&"';" Set RS = MyConn.Execute(SQL_query) if not RS.EOF then if RS("UserPassword")=v_password then v_folder=RS("folder") session ("s_folder")=v_folder session ("loginok")=1 response.redirect "/projekt/folder/folder.asp" ' response.redirect "../projekt/folder/"&v_folder&".asp" else response.write("FALSCHES PASSWORT") response.end end if else response.write("FALSCHER Username") response.end end if end if %>

 

 
Anmeldung für Kunden, Projekt- und Geschäftspartner

 

  Name
  Passwort