Ændring af brugernavn i database
Jeg har fået følgende til at virke efterhånden, dog ikke når der indtastes et nyt brugernavn, så får jeg en error '80020009' Exception occurred. Hvordan løses et sådan problem, så at brugeren får mulighed for at ændre sit brugernavn. Brugernavn bruges i login/huske cookie og til at hente data fra databasen. Jeg har et datafelt til som er ID, men kan ikke lige dreje hvordan og om det skal bruges i en sådan sammenhæng.Nedenfor følger min kode.
:-) Karsten
<%
Option Explicit
Dim sql, objRecBrugernavn, brugernavn, fornavn, efternavn, telefon, email, www, password, notfilled(6), badflag, count, strConnect,objConn,strUpdate
'Tag vaerdier fra formen
brugernavn = Request.Form("brugernavn")
fornavn = Request.Form("fornavn")
efternavn = Request.Form("efternavn")
telefon = Request.Form("telefon")
email = Request.Form("email")
www = Request.Form("www")
password = Request.Form("password")
' Tjek om alt er blevet fyldt ud, badflag bestemmer om fejlfunktion skal kaldes
badflag = 0
if brugernavn = "" then
notfilled(0) = "Brugernavn"
badflag = 1
end if
if fornavn = "" then
notfilled(1) = "Fornavn"
badflag = 1
end if
if efternavn = "" then
notfilled(2) = "Efternavn"
badflag = 1
end if
if telefon = "" then
notfilled(3) = "Telefon"
badflag = 1
end if
if email = "" then
notfilled(4) = "Email"
badflag = 1
end if
if www = "" then
notfilled(5) = "WWW"
badflag = 1
end if
if password = "" then
notfilled(6) = "Password"
badflag = 1
end if
if badflag = 1 then
signuperror("nofield")
end if
'Skab forbindelse og indsaet brugerens oplysninger i databasen
%>
<!--#include file="database.inc"-->
<%
Set objRecBrugernavn = Server.CreateObject("ADODB.Recordset")
objRecBrugernavn.open "deltagere WHERE brugernavn = '" & brugernavn & "'", objConn, 3, 3
if objRecBrugernavn("password") = password then
objRecBrugernavn("brugernavn") = brugernavn
objRecBrugernavn("fornavn") = fornavn
objRecBrugernavn("efternavn") = efternavn
objRecBrugernavn("telefon") = telefon
objRecBrugernavn("email") = email
objRecBrugernavn("www") = www
objRecBrugernavn.Update
else
signuperror("badpwd")
end if
objRecBrugernavn.close
set objRecBrugernavn = nothing
objConn.close
set objConn = nothing
Response.Redirect("profil.asp?updated=true")
%>
<%Function signuperror(errortype)%>
<html>
<head>
</head>
<body >
<%if errortype = "nofield" then%>
Du har ikke udfyldt følgende felter korrekt:
<br>
<%for count = 0 to 6%>
<%if notfilled(count) <> "" then%>
<b><%=notfilled(count)%></b><br>
<%end if%>
<%next%>
<%else%>
<p>Dit password er ikke korrekt</p>
<%end if%>
