Hej
mitt problem är när man loggat in på sidan med sitt användarnamn och användarlösenord så tänkte jag att man skulle kunna byta lösenord och det funkar fint medans jag har en textruta där jag fyller i det nya jag vill ha som jag sedan skickar med submit knappen
men hur gör jag så jag måste skriva in samma lösenord(det nya) i två textfällt för att man ska va säker på att man skrivit rätt lösenord man vill.
om man skriver i första rutan "lösen" och i andra "lösen2" då ska det komma upp en ruta som talar om att man inte skrivit lika lösenord och får testa på nytt men om man skrivit rätt så ska man byta lösenordet

jag har kopplat in allt från asp till en access databas.

if (DittFormNamn.txtPassword.value = DittFormNamn.txtPassword2.value) Then
......
Else
...
End If

Dessa rader kan läggas i en funktion som ger ett sanningsvärde True eller False.

/Bosse

Jag förstår inte riktigt så här har jag gjort det så det funkar med en textruta: Första sidan som skapar allt:
<!-- #include virtual="/Arbetet/adovbs.inc" -->


<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "personal" %>
<%

Visa = "SELECT * FROM ansvarig WHERE ansvarigAlias = '" & Trim(Request.QueryString("username")) & "' "
%>
<% 'RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>

<% set RecSet = Connect.Execute(Visa)
%>
<% strUser = Request("username") %>
<Center>
Ditt nuvarande lösenord är:<b> <% =RecSet("ansvarigPasw") %><br></b>
<br>
När du fyllt i lösenordet du vill ha <br>
så kan du ej ångra när du tryckt på knappen
<form method="POST" action="byt2.asp">

<input type="hidden" name="AD" value=<% =strUser %>>
Byt: <input type="password" size="20" name="byta" >

<input type="submit" value="Byt">

</form>

<% RecSet.Close
Connect.Close %>
</body>
</HTML>

på byt2.asp finns denna kod:

<!-- #include virtual="/Arbetet/adovbs.inc" -->

<%

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "personal"
strUser = Request.Form("AD")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Uppdatera = "SELECT * FROM ansvarig WHERE ansvarigAlias = '" & Trim(Request.Form("AD")) & "' "
%>

<%
RecSet.Open Uppdatera, Connect, adOpenStatic, adLockOptimistic

if not RecSet.EOF then

RecSet("ansvarigPasw") = Request.Form("Byta")


RecSet.Update
end if
RecSet.Close
Connect.Close %>
Du har nu bytt lösenord för användare: <% =struser %>

</body>
</html>

där han nu har uppdaterat lösen ordet så om du vet å kan beskriva vart man ska ändra vore toppen eller går det att göra detta på ett smidigare sätt?
MvH Daniel

Finns två storat säkerhets hål. Du kanhämta en användares lösen ord om du vet vilket alias personen har. Du kan ändra en persons alias utan att känna till det gammla.

Mitt förslag är:

<!-- #include virtual="/Arbetet/adovbs.inc" -->


<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "personal" %>
<%

Visa = "SELECT * FROM ansvarig WHERE ansvarigAlias = '" & Trim(Request.QueryString("username")) & "' "
%>
<% 'RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>

<% set RecSet = Connect.Execute(Visa)
%>
<% strUser = Request("username") %>
<Center>
<br>
När du fyllt i lösenordet du vill ha <br>
så kan du ej ångra när du tryckt på knappen
<form method="POST" action="byt2.asp">

<input type="hidden" name="AD" value="<% =strUser %>">
Gammalt lösenord: <input type="password" size="20" name="oldpassword" ><BR>
Nytt lösenord: <input type="password" size="20" name="password1" ><BR>
Bekräfta lösenord: <input type="password" size="20" name="password2" ><BR>
<BR>

<input type="submit" value="Byt lösenord">

</form>

<% RecSet.Close
Connect.Close %>
</body>
</HTML>

på byt2.asp finns denna kod:

<!-- #include virtual="/Arbetet/adovbs.inc" -->

<%
Dim strUser
strUser = Trim(Request.Form("AD"))

If Len(strUser)>0 Then
If Len(Request.Form("password1"))>0 Then
If Request.Form("password1")=Request.Form("password2") Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "personal"

Set RecSet = Server.CreateObject("ADODB.Recordset")
Uppdatera = "SELECT * FROM ansvarig WHERE ansvarigAlias = '" & strUser & "' "
RecSet.Open Uppdatera, Connect, adOpenStatic, adLockOptimistic

if RecSet.BOF or RecSet.EOF then
%>
<H1>Användare saknas i databas!</H1>
<%
Else
If RecSet("ansvarigPasw") = Request.Form("oldpassword") Then
RecSet("ansvarigPasw") = Request.Form("password1")
RecSet.Update
%>
Du har nu bytt lösenord för användare: <% =struser %>
<%
Else
%>
<H1>Ditt lösenord stämmer inte mot databasen!</H1>
<%
end if
end if
RecSet.Close
Connect.Close %>
end if
end if
end if
</body>
</html>

Tackar för hjälpen nu funkar det osm jag vill .
MvH Daniel