fejlmeldinger på anden side

Skal det være en fejl kode for begge eller to forskellige fejl koder?


umiddelbart kan du tilføje til denne SQL:

SQL = "SELECT brugernavn, adgangskode, loggetind FROM brugerliste"
SQL = SQL & " WHERE brugernavn = '" & brugernavn & "'"
SQL = SQL & " AND adgangskode = '" & adgangskode & "'"


Så den tjekker på loggedtind:

SQL = "SELECT brugernavn, adgangskode, loggetind FROM brugerliste"
SQL = SQL & " WHERE brugernavn = '" & brugernavn & "'"
SQL = SQL & " AND adgangskode = '" & adgangskode & "'"
SQL = SQL & " AND (loggetind NOT IN ('1','2'))"


Så kan dette

IF NOT RS.EOF THEN
SQL = "UPDATE brugerliste set "
SQL = SQL & " loggetind='2' "
SQL = SQL & " WHERE brugernavn = '" & brugernavn & "'"
SQL = SQL & " AND adgangskode = '" & adgangskode & "'"
Conn.execute(SQL)
Session("login") = brugernavn
RS.close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
response.redirect "default.asp"


Laves om til dette:

IF NOT RS.EOF THEN
SQL = "UPDATE brugerliste set "
SQL = SQL & " loggetind='2' "
SQL = SQL & " WHERE brugernavn = '" & brugernavn & "'"
SQL = SQL & " AND adgangskode = '" & adgangskode & "'"
Conn.execute(SQL)
Session("login") = brugernavn
else
  response.write "Fejl i login navnet"
  Session("login") = ""
end if
RS.close
Set RS = Nothing
Conn.Close
Set Conn = Nothing

if Session("login") <> "" then
  response.redirect "default.asp"
end if

gerne to tak :-)

med to så kunne det laves sådan her:



<%
IF request.form <> "" THEN
brugernavn = request.form("brugernavn")
adgangskode = request.form("adgangskode")
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 brugernavn, adgangskode, loggetind FROM brugerliste"
SQL = SQL & " WHERE brugernavn = '" & brugernavn & "'"
SQL = SQL & " AND adgangskode = '" & adgangskode & "'"
RS.Open SQL,Conn
IF NOT RS.EOF THEN
  if rs("loggetind") = '1' OR rs("loggetind") = '2' then
    Response.write "Du er logget ind !!"
  else
    SQL = "UPDATE brugerliste set "
    SQL = SQL & " loggetind='2' "
    SQL = SQL & " WHERE brugernavn = '" & brugernavn & "'"
    SQL = SQL & " AND adgangskode = '" & adgangskode & "'"
    Conn.execute(SQL)
    Session("login") = brugernavn
  end if
else
  response.write "Fejl i login navnet"
  Session("login") = ""
end if
RS.close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
if Session("login") <> "" then
  response.redirect "default.asp"
end if
END IF
%>

kan du komme på msn eller icq ?

Nej det gør jeg ikke i.

http://www.1q.frip.dk/chat/ så den i det mindste *s*
2 * eksperten skulle logge dig ind