Hej
Sen jag loggat in på hemsidan vill jag att lösenordet presenteras i en textbox för att kunna ändra detta. Förslag på hur jag kan koda för att presentera det?

Inloggningskod:

<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\db\users.mdb"))

Set RecSet = Server.CreateObject("ADODB.Recordset") %>

<% Visa = "SELECT * FROM users"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

X = FALSE

Do Until X = TRUE OR RecSet.EOF

If RecSet("Username") = Request.Form("Username") Then
X = TRUE
Exit Do
End If

RecSet.MoveNext

Loop

If X = TRUE Then

Y = FALSE
Do Until Y = TRUE OR RecSet.EOF

If RecSet("Password") = Request.Form("password") Then
Y = TRUE
Exit Do
End If

RecSet.MoveNext

Loop

End If

If X = FALSE Then %>

<font size="2" face="verdana, arial, geneva, helvetica">
<br><br>Du har angett ett felaktigt användarnamn, och är inte inloggad!

<% ElseIf Y = FALSE Then %>

<font size="2" face="verdana, arial, geneva, helvetica">
<br><br>Du har angett ett felaktigt lösenord, och är inte inloggad!

<% End If

If X = TRUE AND Y = TRUE Then

Session("username") = Request.Form("username")
Session("password") = Request.Form("password") %>

Tycker det ser lite omständigt ut...


<%
set oConn = server.createobject("ADODB.Connection")
oConn.open "......"

sSQL = "SELECT userId FROM Users WHERE Password= '"& request.form("password") &"' AND username = '"& request.form("username") &"'
set oRs = oconn.execute(sSQL)

if oRs.eof then
response.write "Tyvärr du finns inte i databasen"
else
response.write "<input type='text' name='password' value='"& oRs.fields("password") &"'>"
response.write "<input type='text' name='userName' value='"& oRs.fields("usernam") %"'>"
end if

oRs.close: set oRs = nothing
oConn.close : set oConn = nothing
%>

En grund att börja på!!!