db.open

db.open
Set Rs = db.Execute(\"SELECT * FROM tabel Where password=\'\" & Session(\"password\") & \"\'\")

/Jesper

Er det din SQL?

SELECT * from bruger WHERE password = \"password\";

select * from brugere where brugernavn = \'\" & request.form(\"brugernavn\") & \"\' AND password = \'\" & session(\"password\") & \"\'\"

bør den ikke finde den post hvor brugernavnet er ... og hvis du tager den kan den tjekke om session(\"password\") er rigtig ...

ellebaek >> Eller som jeg gør at finde den record hvor de begge er rigtige ?

den skal åbne

db.open \"Select * From Adresse where (password = session(\"password\")

den skal åbne

db.open \"Select * From Adresse where (password = session(\"password\")

Nej jeg bruger ikke SQL

Jeps netop ...

det er noget dumt at finde hvor pasword er pass ...

reelt kan du risikere at 2 brugere har valgt samme password ex. hund, og det er kotume at man laver sin sikring på at der ikke eksisterer 2 brugere med samme brugerId/navn, det bliver nok svært at fortælle en evt. ny bruger at det password han benytter også bruges af en anden bruger:)

hvorfor. jeg har denne navneliste, og når man er likket ind skal listen kun vise sim egen kontakt.

Bedre forslag

Det forstod jeg ikk\' helt

På siden hvor du laver Session(\"password\") skal du også lave en Session(\"userid\") hvis du i din database også har en autonummer kolonne.

Herefter kan du så kalde den med

db.open
Set Rs = db.Execute(\"SELECT * FROM tabel Where BrugerId=\" & Session(\"userid\"))

Dette vil helt sikkert max returnere én bruger da autonummer er unik, hvorimod password feltet jo ikke nøvendigvis er unikt.

/Jesper

jeg har en login side med email og password, hvor action=\"check.asp\". hvis den godkendes sendes man videre til navneliste.asp + at den sende password videre, så jeg kan kalde password frem med session(\"password\").

Det er så menigen at den der er logget ind skal se sin egen profil.

dette er mit check script
email = request.form(\"email\")
password = request.form(\"password\")


rsSQL = \"SELECT * FROM adresse where email = \'\" & email & \"\' and password = \'\" & password & \"\'\"
set rs = Con.execute(rsSQL)
if  rs.eof then
session(\"login\") = \"\"
response.write (\"<meta http-equiv=\"\"refresh\"\" content=\"\"0;URL=default.asp?tastet=0\"\">\")
else
session(\"login\") = true
session(\"password\") = request.form(\"password\")
Response.Redirect \"http://www.sportsworld.dk/kontakt/navneliste.asp\"
end if

Hvis man skal finde en UNIK bruger SKAL KODEORDET altså også være UNIKT,---> hvis man skal sikre sig at KODEORDET er UNIKT for hver UNIK bruger SKAL man LAVE en søgning i BASEN der sikrer sig at der IKKE eksister en BRUGER med SAMME KODEORD som den nyoprettede BRUGER!!

og dette navnelisten

set dsn = Server.CreateObject(\"ADODB.Connection\")
set db = Server.CreateObject(\"ADODB.RecordSet\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"/data/adresse.mdb\")
db.open \"Select * From Adresse Where id=\'\" & Session(\"password\") & \"\'\")

Det er åndsvagt at skulle fortælle en bruger at hans/hendes kodeord allerede er optaget derfor lav forspørgslen på BRUGERNAVNET istedet, sådan i det tilfælde at når man opretter en profil OG der eksisterer en bruger med det navn, er beskeden fra serveren, --> Brugernavnet er optaget vælg et andet.

så er du sikker på at der er en UNIK bruger, om så alle brugeres kodeord er ens (Det sker nok ikke, men Hvis nu!) så er du sikker på kun at ende med en brugerprofil pr. bruger!

Check.asp ->

email = request.form(\"email\")
password = request.form(\"password\")


rsSQL = \"SELECT * FROM adresse where email = \'\" & email & \"\' and password = \'\" & password & \"\'\"
set rs = Con.execute(rsSQL)
if  rs.eof then
session(\"login\") = \"\"
response.write (\"<meta http-equiv=\"\"refresh\"\" content=\"\"0;URL=default.asp?tastet=0\"\">\")
else
session(\"login\") = true
session(\"email\") = Rs(\"email\")
session(\"password\") = Rs(\"password\")
Response.Redirect \"http://www.sportsworld.dk/kontakt/navneliste.asp\";
end if



Navnelisten ->

set dsn = Server.CreateObject(\"ADODB.Connection\")
set db = Server.CreateObject(\"ADODB.RecordSet\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"/data/adresse.mdb\")
db.open \"Select * From Adresse Where email =\'\" & session(\"email\") & \"\' AND password=\'\" & Session(\"password\") & \"\'\")

Så er du ret sikker på at du har en unik bruger.

/Jesper

Hvis Email er brugernavnet, så er svaret :

dette er mit check script
email = request.form(\"email\")
password = request.form(\"password\")


rsSQL = \"SELECT * FROM adresse where email = \'\" & email & \"\' and password = \'\" & password & \"\'\"
set rs = Con.execute(rsSQL)
if  rs.eof then
session(\"login\") = \"\"
response.write (\"<meta http-equiv=\"\"refresh\"\" content=\"\"0;URL=default.asp?tastet=0\"\">\")
else
session(\"login\") = true
session(\"brugerNAVN\") = request.form(\"Email\")
Response.Redirect \"http://www.sportsworld.dk/kontakt/navneliste.asp\";
end if

for at log in skal man indtaste email og password
og nu har jeg lavet en session for email og password som sendes til navneliste.

hvad skal jeg så skrive i dette

session(\"password\") = password
session(\"email\") = email


set dsn = Server.CreateObject(\"ADODB.Connection\")
set db = Server.CreateObject(\"ADODB.RecordSet\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"/data/adresse.mdb\")
db.open \"Select * From Adresse Where 

mhing --> Læs det jeg skrev ovenover.

:-)

og så

set dsn = Server.CreateObject(\"ADODB.Connection\")
set db = Server.CreateObject(\"ADODB.RecordSet\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"/data/adresse.mdb\")
db.open \"Select * From Adresse Where email =\'\" & session(\"email\") & \"\')

Jeg kan nu se at der er en der allerede har svaret men what ever:)

dubal

db.open \"Select * From Adresse Where email =\'\" & session(\"email\") & \"\' AND password=\'\" & Session(\"password\") & \"\'\")
------------------------------------------------------------------------------------------------------------------^

set dsn = Server.CreateObject(\"ADODB.Connection\")
set db = Server.CreateObject(\"ADODB.RecordSet\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"/data/adresse.mdb\")
db.open \"Select * From Adresse Where email =\'\" & session(\"email\") & \"\' AND password=\'\" & Session(\"password\") & \"\'\", dsn

Så skulle den være der.

Microsoft VBScript compilation error \'800a0401\'

Expected end of statement

/kontakt/navneliste.asp, line 11

db.open \"Select * From Adresse Where email =\'\" & session(\"email\") & \"\' AND password=\'\" & Session(\"password\") & \"\'\"), dns

Du har stadig den ) med. Den skal dø.

Den er død, og det virker TAK :)