Login

jo da..hvornår skal du bruge det ?

nu her hvis muligt ?

umm heh :) skal lige have rettet noget kode til, så kan du da få det

men først skal jeg hente smøger :-)

er det oki

ja selvfølgelig... hvor lang tid ca.. ?

<%tborder=0%>


//logincheck kode .....
<%
IF request.form <> "" THEN
Brugernavn  = request.form("brugernavn")
Adgangskode = request.form("password")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.jet.oledb.4.0; Data Source=" & server.mappath("db.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT navn, adgangskode, loggetind FROM brugerliste"
SQL = SQL & " WHERE navn = '" & Brugernavn & "'"
SQL = SQL & " AND adgangskode = '" & Adgangskode & "'"
RS.Open SQL,Conn
IF NOT RS.EOF THEN
  SQL = "UPDATE brugerliste set "
  SQL = SQL & "loggetind='2' "
  SQL = SQL & " WHERE navn = '" & Brugernavn & "'"
  SQL = SQL & " AND adgangskode = '" & Adgangskode & "'"
  Conn.execute(SQL)
  Session("login") = Brugernavn
  RS.close
  Set RS = Nothing
  Conn.Close
  Set Conn = Nothing
END IF
END IF
%>

//siden med loginformen....
<html>
<head>
  <title>
  </title>
</head>
<body>
<table border='<%=tborder%>'width='100%' height='100%'>
  <tr>
  <td align='center'>
  <%
  response.write "<table>"
  response.write "<form action='login.asp' Method='post'>"
  response.write "<tr class='almskrift'><td>Brugernavn</td><td><input type='text' name='brugernavn' /></td></tr>"
  response.write "<tr class='almskrift'><td>Adgangskode</td><td><input type='password' name='password' /></td></tr>"
  response.write "<tr><td colspan='2' align='right'><input type='Submit' value='Logon' /></td></tr>"
  response.write "</form>"
  response.write "</table>"
  %>
  </td>
  </tr>
</table>
</body>
</html>