Det finns inget som heter:
request.redirect("default.asp")
utan det heter:
Response.Redirect("default.asp")
mvh Jörgen :)
------------------
webForum har stängt 15-17/2 för uppgradering.
4 svar · 141 visningar · startad av Cactuz
<%
Set connection = server.createObject("adodb.connection")
connection.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb") & ";"
namn = request.querystring("userid")
sql = "SELECT * FROM anvandare WHERE Namn = '"&namn&"'"
set rs = Connection.Execute(sql)
IF NOT request.form("ny") = request.form("nyigen") THEN
session("fell") = "Lösenorden måste vara lika!"
request.redirect("default.asp")
ELSEIF request.form("ny") = rs("Losen") THEN
session("fell") = "Det nya lösenordet är samma som det gammla"
request.redirect("default.asp")
ELSEIF NOT request.form("password") = rs("Losen") THEN
session("fell") = "Det nuvarande lösenordet är fel"
request.redirect("default.asp")
ELSE
SQL = "UPDATE anvandare SET Losen = '" & Request.Form("ny") &"'"
db.execute(SQL)
session("fell") = ""
request.redirect("default.asp")
END IF
%>
felmeddelande
Feltyp:
(0x80020009)
Undantag inträffade.
rad med fel på
ELSEIF request.form("ny") = rs("Losen") THEN
Det finns inget som heter:
request.redirect("default.asp")
utan det heter:
Response.Redirect("default.asp")
mvh Jörgen :)
------------------
webForum har stängt 15-17/2 för uppgradering.
Skall du inte ha med
On error resume next
MVH Jesper T
------------------
If ASPackad date-1 then ASPerin Now
hehe.. response ja... har nog inte riktigt återhämtat mig efter min sjukdom... men får fortfarande undantag :(
<%
IF request.form("ny") <> request.form("nyigen") THEN
session("fell") = "Lösenorden måste vara lika!"
else
Set connection = server.createObject("adodb.connection")
connection.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb") & ";"
namn = request.querystring("userid")
sql = "SELECT losen FROM anvandare WHERE Namn = '"&namn&"'"
set rs = Connection.Execute(sql)
if rs.eof then
session("fell") = "Ogiltigt användarnamn"
ELSEIF request.form("ny") = rs("Losen") THEN
session("fell") = "Det nya lösenordet är samma som det gammla"
ELSEIF request.form("password") <> rs("Losen") THEN
session("fell") = "Det nuvarande lösenordet är fel"
ELSE
SQL = "UPDATE anvandare SET Losen = '" & Request.Form("ny") &"' where namn = '" & namn & "'"
db.execute SQL
session("fell") = ""
end if
rs.close
set rs = nothing
connection.close
set connection = nothing
end if
response.redirect "default.asp"
%>
Med din kod så hade du bytt lösendord för alla användare.
------------------
essentitia preter non sans multiplicandum