<%
set objcon = Server.Createobject ("ADODB.Connection")
objCon.Open "DRIVER={mySQL};" & _
"Server=WESTSIDE;" & _
"Port=3306;" & _
"Database=test;"

dim strSQL, db_pass, pass, nytt_pass, b_nytt_pass, srtSQL1
strSQL = "SELECT password FROM admin"
Set objGetData=objCon.Execute(strSQL)

db_pass = objGetData("password")
pass = request.form("pass")
nytt_pass = request.form("nytt_pass")
b_nytt_pass = request.form("b_nytt_pass")

if nytt_pass = b_nytt_pass and pass = db_pass and nytt_pass <>"" then ' and nytt_pass = b_nytt_pass then

response.write "bra"
strSQL1 = "UPDATE password set VARDE = '" & b_nytt_pass & "'"
Set objGetData=objCon.Execute(strSQL1)


else
response.write "fel"
end if

%>

Hej!
Min gissning (det är lite svårt när jag inte vet vad du får för felmeddelande eller hur dina tabeller ser ut) är följande:
> strSQL = "SELECT password FROM admin"
får mig att tro att det finns en tabell som heter admin med kolumnen password.
Eftersom jag inte ser någon where-sats misstänker jag att den alltid innehåller bara en rad. Om så är fallet borde
> strSQL1 = "UPDATE password set VARDE = '" & b_nytt_pass & "'"
vara
strSQL1 = "UPDATE admin SET password = '" & b_nytt_pass & "'"
istället.
Ett tips: i din Explorer, gå in i Tools->Internet Options->Advanced och kryssa ur rutan framför Show friendly HTTP error messages så ser du vad som har gått fel.


/mammo

mmm hitta felet.. attans va man kan stirra sig blind... tackar