Passwordbeskyttelse på siden der viderestilles til

Hvordan generer du din session?

generer = genererer

På login.asp laver du fx:

Session("login") = "ok"
Session.timeout = 60

På Aktivitet_slet.asp:

If Session("login") <> "ok" The Response.Redirect("login.asp")

Det virker ihvertfald.

<%
SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fpdb/kalender.mdb")

If Request("mode") = "Check" then

    ' Authes user, password, and fixed a known securitybug to many login systems.
        strUsername = Trim(Replace(request("username"),"'","''" ))
        strPassword = Trim(Replace(request("password"),"'","''" ))

  Sql = "Select Count(*) as Found from tblMedlem where (Navn = '" & strUsername  & "') and (Password ='" & strPassword  & "')"
  Set LO = RS.Execute(Sql)
  if LO("Found") = 0 then
    Session("login") = ""
    error = "Brugernavn eller adgangskode er forkert"
  else
  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("fpdb/kalender.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT * FROM tblMedlem where (Navn = '" & Request("username") & "') and (Password ='" & Request("password") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("login") = "Authed"
    Response.Redirect "aktivitet_slet.asp"
    EZ.Close
    RS.Close
    Conn.Close
  End if
End if
%>

Hvor i koden skal

På login.asp laver du fx:

Session("login") = "ok"
Session.timeout = 60

sættes ind?

om det første i aktivitet_slet.asp skriver du

If Not Session("login") = "Authed" Then Response.Redirect("login.asp")

Så er siden passwordbeskyttet.

om = Som

Og så vil jeg foreslå at du rykker
EZ.Close
RS.Close
Conn.Close
Ovenover din Response.Redirect

Hvor kommer EZ egentlig fra?

Nu fandt jeg den.
Du skal huske at bruge EZ hele vejen igennem. Eller ez. Du må ikke skifte.

Jeg har nu stående
Session("login") = "ok"
    Session.timeout = 60
    EZ.Close
    RS.Close
    Conn.Close
    Response.Redirect "aktivitet_slet.asp"
    End if
End if
%>

Og får denne fejl:


Microsoft VBScript runtime error '800a01a8'

Object required: 'Conn'

/login.asp, line 40 ------>  Conn.Close

-----> Conn.Close er min tilføjelse...

Har fået det til at virke. Det var lige det sidste med ez contra EZ. Send et svar så sender jeg point...
Tak for hjælpen...

svar

nu

godnat