husk iogin ved hjælp at checkbox!

du kan lægge data som brugernavn i en cookie, de lægges på brugerens maskine.

noget lignende:
If brugernavn og password passer AND Request.Form("checkbox") = "boxens value" Then
    Response.Cookies("huskbruger")("navn") = brugernavn
    Response.Cookies("huskbruger").Expires = Date + 20'cookien eksisterer i 20 dage
End If

du kan så hente navnet sådan her:
Request.Cookies("huskbruger")("navn")

ok, det ser godt ud, men kan du hjælpe mig med at sætte det ind, da jeg er lidt lost her:)

Her er de koder jeg logger ind med(nogle af dem)


<!--#include file="include/mappath.asp" -->

<% Select case Request.Querystring("mode")
     
  case "login"

          dim strBrugernavn, strKode
         
          strBrugernavn = Trim(Replace(Request.Form("brugernavn"),"'",""))
          strKode = Trim(Replace(Request.Form("kodeord"),"'",""))

If Len(strBrugernavn) > 0 And Len(strKode) > 0 Then

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open ConString

strSQL = "SELECT * FROM bruger WHERE (brugernavn = '" & strBrugernavn & "') AND (kodeord = '" & strKode & "')"

'strSQL sætning der blev bygget ovenfor, afvikles
Set rs = myConn.Execute(strSQL)

'Hvis brugernavn og kode findes, afvikles nedenfor
If Not (rs.BOF Or rs.EOF) Then

session("Brugernavn") = strBrugernavn

min checkbox ser sådag ud:

<input type="checkbox" name="checkbox" value="huskmig">

Jeg vil gerne give lidt flere point hvis det er det? - please :-)

jeg vil tro det skal indsættes efter dit script:

'Hvis brugernavn og kode findes, afvikles nedenfor
If Not (rs.BOF Or rs.EOF) Then

session("Brugernavn") = strBrugernavn

'hvis checkboxen er checked
If Request.QueryString("checkbox") = "huskmig" Then
'så lav en cookie, der husker brugernavn
Response.Cookies("huskbruger")("navn") = strBrugernavn
'få cookien til at eksistere i 20 dage
Response.Cookies("huskbruger").Expires = Date + 20
End If


Koden til at logge en bruger ind, hvis cookien er der kunne så være:
If Request.Cookies("huskbruger").HasKeys Then
Session("Brugernavn") = Request.Cookies("huskbruger")("navn")
End If

Hvor skal dette stå??

Koden til at logge en bruger ind, hvis cookien er der kunne så være:
If Request.Cookies("huskbruger").HasKeys Then
Session("Brugernavn") = Request.Cookies("huskbruger")("navn")
End If

enten før eller efter den kode du har vist

Jeg har prøvet lidt af hvert nu, men når jeg logger af, går helt ud af localhost og går ind igen, så er jeg ikke logget på????



Her er koderne, er der noget forkert? Jeg ville da mene at koden til at logge en bruger ind skulle ligge i default??






case "login"

          dim strBrugernavn, strKode
         
          strBrugernavn = Trim(Replace(Request.Form("brugernavn"),"'",""))
          strKode = Trim(Replace(Request.Form("kodeord"),"'",""))

If Len(strBrugernavn) > 0 And Len(strKode) > 0 Then

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open ConString

strSQL = "SELECT * FROM bruger WHERE (brugernavn = '" & strBrugernavn & "') AND (kodeord = '" & strKode & "')"

'strSQL sætning der blev bygget ovenfor, afvikles
Set rs = myConn.Execute(strSQL)

'Hvis brugernavn og kode findes, afvikles nedenfor
If Not (rs.BOF Or rs.EOF) Then

'hvis checkboxen er checked
If Request.QueryString("checkbox") = "huskmig" Then
'så lav en cookie, der husker brugernavn
Response.Cookies("huskbruger")("navn") = strBrugernavn
'få cookien til at eksistere i 20 dage
Response.Cookies("huskbruger").Expires = Date + 720
End If

session("Brugernavn") = strBrugernavn
session("logget_ind") = "ja"
session("fornavn") = rs("fornavn")
session("efternavn") = rs("efternavn")
session("brugerniveau") = rs("brugerniveau")
session("brugernavn") = rs("brugernavn")
Session.timeout = "20"

'Koden til at logge en bruger ind, hvis cookien er der kunne så være:
If Request.Cookies("huskbruger").HasKeys Then
Session("Brugernavn") = Request.Cookies("huskbruger")("navn")
End If

Select Case CInt(rs("brugerniveau"))
Case 0
  response.redirect request.form("denneside") & ".asp"
Case 1
  response.redirect request.form("denneside") & ".asp"
End Select

Else

response.redirect("loginfejl.asp")
End If

myConn.Close
Set myConn = Nothing
End If

prøv at flytte det her:
'Koden til at logge en bruger ind, hvis cookien er der kunne så være:
If Request.Cookies("huskbruger").HasKeys Then
Session("Brugernavn") = Request.Cookies("huskbruger")("navn")
End If
op over case "login"

Bliver der så logget ind automatisk når brugeren går ind på hjemmesiden??

? Fandt ikke ud af det!!

kan med et svar så får du lidt for forsøget, og så prøver jeg et andet sted!

svar