Login via database

<%
dim brugernavn, password
brugernavn = request.form(\"brugernavn\")
password = request.form(\"password\")

Set Con = Server.CreateObject(\"ADODB.Connection\")
Con.Open \"DSN=navn\"
SQL = \"SELECT * FROM personer WHERE brugernavn=\'\" & brugernavn & \"\';\" 
Set RS = Con.Execute(SQL)



if not rs.EOF THEN

if password = rs(\"password\") Then
  response.redirect rs(\"url\")

ELSE
  response.write \"forkert password\"
END IF
ELSE
response.write \"du skal ingen steder\"
END IF

%>


dette er skrevet lidt hurtigt og du skal nok rette nogle navne lidt til men sådan kunne det gøres.

Hej pfp!
aqony har en god kode der!  MEN : jeg ville lave lidt om på den :

<%
dim brugernavn, password
brugernavn = request.form(\"brugernavn\")
password = request.form(\"password\")

Set Con = Server.CreateObject(\"ADODB.Connection\")
Con.Open \"DSN=navn\"
SQL = \"SELECT * FROM personer WHERE brugernavn=\'\" & brugernavn & \"\'\" 
Set RS = Con.Execute(SQL)

if not (rs.EOF or rs.BOF) THEN
if password = rs(\"password\") Then
  response.redirect rs(\"url\")

ELSE
  response.write \"Forkert password\"
END IF
END IF
%>
J.

em... jeg så et sted at det er ligemeget med dim, har den noget formål for siden udover at man på forhånd kan se hvilke variabler der kommer?

Takker icedox :-)

Korrekt, du behøver ikke at erklære en variable med Dim.

Men asp afvikles hurtigere, hvis man bruger DIM (i hvert fald i følge Microsoft selv...)

asp afvirkles 5%-30% hurtige, sige M$

5-30% hurtigere end hvad??

>>torbenk. end hvis du ikke bruger DIM til at erklære variable med...

Nåh ja, selvfølgelig :-)

nå torbenkoch vil du af med de points eller hvordan ???  :-)

ups :-) det var til pfp  sorry

agony >> Ja selvf. jeg havde bare ikke lige haft tid til at prøve koden :-)

Med venlig hilsen
Peter F. Poulsen

helt oki :-)