Ændre password

ja det har jeg liggende - øjeblik.

<html>
<body>

<%
strDSN = din dns streng


a =         Request.Form(\"Brugernavn\")
b =         Request.Form(\"Password\")
c =         Request.Form(\"NytPassword\")



SQL1 = \"Select pass FROM Oprettet WHERE pass = (\'\"&b&\"\') and Brugernavn = (\'\"&a&\"\')\"
set records1 = conn.execute(SQL1)

If records1.bof and records1.eof then
    records1.close
    Response.redirect \"forkertpassword.asp\"
End If
     
SQL2 = \"INSERT INTO Oprettet (nytpass) VALUES (\'\"c&\"\') WHERE brugernavn = (\'\"&a&\"\')\"
conn.execute(SQL2)

response.write \"Dit brugernavn er:\" & Request.Form(\"Brugernavn\")
response.write \"Dit nye password er:\" & Request.Form(\"NytPassword\")%>
</body>
</html>

Det virker ikke helt.
Dette er det jeg har indtastet i koden:
      password = Request.form(\"password\")
      nytpass = Request.form(\"nytpass\")

SQL1 = \"Select password FROM mailingliste WHERE password = (\'\"&password&\"\') and id = \"& Session(\"login\")
set records1 = conn.execute(SQL1)

If records1.bof and records1.eof then
    records1.close
    Response.redirect \"forkertpassword.asp\"
End If
     
SQL2 = \"INSERT INTO mailingliste (password) VALUES (\'\"&nytpass&\"\') WHERE id = \"& Session(\"login\")
conn.execute(SQL2)

Dette er den fejl jeg får:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Missing semicolon (;) at end of SQL statement.

Kan du se hvad der er galt??

du har flere fejl i din SQL. Har du husket at definere din session(\"login\") - og er det tal eller tekst ? - prøv noget i stilen med:

    password = Request.form(\"password\")
      nytpass = Request.form(\"nytpass\")

SQL1 = \"Select password FROM mailingliste WHERE password = (\'\"&password&\"\') and id =(\"& Session(\"login\")&\")\"
set records1 = conn.execute(SQL1)

If records1.bof and records1.eof then
    records1.close
    Response.redirect \"forkertpassword.asp\"
End If
     
SQL2 = \"INSERT INTO mailingliste (password) VALUES (\'\"&nytpass&\"\') WHERE id =(\"& Session(\"login\")&\")\"
conn.execute(SQL2)

Jeg får stadig den samme fejl

hviken linie kommer fejlen i. -
jeg kan ikke hjælpe hvis jeg ikke ved om dine værdier password, mailingliste og id er tekst eller tal - og jeg skal også vide hvornår og til hvad du sætter din session(\"login\")

session(\"login\") - er det samme som id (tal), altså så man kan kende forskel på brugerne
Password er tekst
Mailingliste er min tabel

Fejlen kommer i denne linie
conn.execute(SQL2)

prøv med:

SQL2 = \"INSERT INTO mailingliste (password) VALUES (\'\"&nytpass&\"\') WHERE id = \"&Session(\"login\")&\"\"
conn.execute(SQL2)

Det virker altså desværre stadig ikke

samme fejl ?

jeps

prøv at dobbeltjekke at navnene er identiske med din db og indsæt dette istedet for:


if nytpass = \"\" then
response.write \"der mangler indhold\"
else
SQL2 = \"INSERT INTO mailingliste (password) VALUES (\'\"&nytpass&\"\') WHERE id = \"&Session(\"login\")&\"\"
conn.execute(SQL2)
end if

Der er jo kun et navn at tjekke i databasen, det er jo Password, hvor nytpass skal sættes ind i.

Jeg får stadig den samme fejl

kan du evt. ligge en URL ud - og ligge hele koden op præcis som den ser ud. Så er det nemmere at se.

Jeg har selv lavet det på en anden måde, her er den:

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM mailingliste WHERE id = \"& Session(\"login\")
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
if rs(\"password\") = Request.form(\"password\") then
      rs(\"password\") = Request.form(\"nytpass\")
      rs.Update
      rs.close
  Response.redirect \"default.asp?show=godkendt\"
else%>
<font face=\"Tahoma\" size=\"2\" color=\"000000\">Dit gamle password er ikke rigtigt.<br><a href=\"default.asp?show=retpass\">Prøv igen</a></font<%
end if

Og den virker

nå men så er alt jo fint. (: