webForumDet fria alternativet

nu ska ni få leta fel :P

ASP

4 svar · 141 visningar · startad av Cactuz

Medlem sedan okt. 2001670 inlägg
Frågan#1
<%
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
Medlem sedan feb. 20012 412 inlägg
#2

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.

Medlem sedan nov. 20017 144 inlägg
#3

Skall du inte ha med

On error resume next

MVH Jesper T

------------------
If ASPackad date-1 then ASPerin Now

Medlem sedan okt. 2001670 inlägg
#4

hehe.. response ja... har nog inte riktigt återhämtat mig efter min sjukdom... men får fortfarande undantag :(

Medlem sedan dec. 200012 464 inlägg
#5
<%
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

251 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
115 ms — deklarationer (db)
0 ms — hämta statistik (cache)
128 ms — hämta tråd, inlägg och bilagor (db)
119 ms — ändringar (db)