Hej!

jag ska försöka göra en sökning i min databas efter det som användaren skriver i textfältet användarnamn... alltså ska en sökning göras på det... om användarnamnet finns så ska den "fastna"
där och plocka ut värdet användarnamn och lösenordet som finns i samma post...

själva kopplingen jag har ser ut såhär:

dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("DB\anvandare.mdb")

dim drecset
set drecset = server.createobject("adodb.recordset")

dim sql
sql = "SELECT Andvandarnamn FROM anvandare WHERE Andvandarnamn IN ('"& konto &"')"
drecset.open sql, conn, 3,3

if drecset.eof then
koll_11 = "ok"
else
koll_11 = "fel"
end if

det där är min kod för att kolla så att ingen kan registrera två användare med samma användarnamn... men hur ska jag göra för att skriva om den så att det blir som jag vill? =)

//Tomas

<code>
dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("DB\anvandare.mdb")

dim drecset
set drecset = server.createobject("adodb.recordset")

dim sql
sql = "SELECT Andvandarnamn,Losenord FROM anvandare WHERE Andvandarnamn IN ('"& konto &"')"
drecset.open sql, conn, 3,3

if not drecset.eof then
'
' Plocka ut usr+pwd, t ex lagra i variabler... eller vad du nu vill göra
'
' usr = drecset("Andvandarnamn")
' pwd = drecset("Losenord")
'
end if
</code>

ps. Varför använder du IN i SQL-satsen och inte = (likamed)?

Tack! :)... jag vet faktiskt inte... jag är nybörjare så är bara glad att det fungerar.

Iallafall, koden fungerade bra!

Men jag har fortfarande ett problem.
Hur ska jag göra för att plocka ut det som står i kolumnen losenord i samma post som
användarnamnet fanns?
För jag måste ju kolla rätt lösenord emot rätt användare.

//Tomas

Typ så här kan du göra:
<code>
dim usr,pwd
usr = Request.Form("username")
pwd = Request.Form("password")

' kolla så att usr inte innehåller tecken som kan antas vara för SQL-injektion

dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("DB\anvandare.mdb")

dim drecset
set drecset = server.createobject("adodb.recordset")

dim sql
sql = "SELECT Andvandarnamn,Losenord FROM anvandare WHERE Andvandarnamn='"& usr &"'"
drecset.open sql, conn, 3,3

if not drecset.eof then
if drecset("Losenord") = pwd Then
' Lösenordet stämmer
else
' Lösenordet stämmer inte
end if
end if
</code>