Är det någon som har ett tips om hur man gör så att man kan ändra ett lösenord i databasen från en hemsida. Man måste väl ha nån ruta där man skriver i verifiering av lösenordet!
Skulle vara tacksam för något tips så att jag kommer igång med det!

formular.asp
<code>
<%
response.write(session("errmess"))
session("errmess") = empty
%>
<form method="post" action="andra.asp">
gammalt lösen<br>
<input type="password" name="oldpass"><br>
nytt lösen<br>
<input type="password" name="newpass1"><br>
verifiera<br>
<input type="password" name="newpass2"><br>
<input type="submit" value="ändra lösen">
</form>
</code>



andra.asp
<code>
<%
select id from tabell where id = " & sesison("id") & " and losen = '" & request.form("oldpass") & "'"
rs.open SQL, Connect
if rs.EOF then
rs.close
session("errmess") = "fel lösen"
response.redirect("formular.asp")
end if
rs.close

if request.form("newpass1") = request.form("newpass2") then
update tabell set losen = '" & request.form("losen") & "' where id = " & sesison("id")
rs.open SQL, Connect,1,2
session("errmess") = "ditt lösen är ändrat"
response.redirect("formular.asp")
else
session("errmess") = "det verifierade lösenordet var fel"
response.redirect("formular.asp")
end if
%>
</code>

jag får felmeddelande på den andra sidan på select ID from Login where ID = " & sesison("id") & " and Losenord = '" & request.form("oldpass") & "'"
Felmeddelandet: Expected 'Case'

Kolumnerna i tabellen Login heter ID, Namn och Losenord

Mitt förslag är att bara använda en sida. Miniemar antalet anrop och kod att administrera. Dessutom gör jag bara ett anrop till databasen efter jag gjort det andra kontrollen.

formular.asp
<code>
<%
Dim strSQL
Dim Connect
Dim RecordsAffected
Select Case Request.Form("Action")
Case "Ändra lösen"
If Request.Form("newpass1") <> Request.Form("newpass2") Then
Response.Write "Kan inte verifieria lösenord."
ElseIf Len(Request.Form("newpass1")) = 0 Then
Response.Write "Du har inte angivit ett nytt lösenord."
Else
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open ">>> Connection String <<<"

strSQL = "UPDATE tabell SET losen = '" & Replace(request.form("newpass1"),"'","''") & "'" & vbCrLf & _
"WHERE id = " & sesison("id") AND losen = '" & Replace(request.form("oldpass"),"'","''") & "'"
Connect.Execute strSQL, RecordsAffected
If RecordsAffected > 0 Then
Response.Write "Ditt lösenord har blivit uppdaterat!"
Else
Response.Write "Du har angivit felaktigt gammal lösenord"
End IF
Connect.Close
End If
End Select
%>
<form method="post" action="">
<table>
<tr>
<td>Gammalt lösen:</td><td><input type="password" name="oldpass"></td>
</tr>
<tr>
<td>Nytt lösen:</td><td><input type="password" name="newpass1"></td>
</tr>
<tr>
<td>Verifiera lösen:</td><td><input type="password" name="newpass2"></td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="Action" value="Ändra lösen"></td>
</tr>
</table>
</form>
</code>