<%
invoer = request("invoer")
gebruikersnaam = request("gebruikersnaam")
wachtwoord = request("wachtwoord")
wachtwoord2 = request("wachtwoord2")
if invoer = "ja" then
if wachtwoord <> wachtwoord2 OR wachtwoord = "" OR wachtwoord2 = "" then
fout = 1
end if
end if
Set objCon = Server.CreateObject ("ADODB.Connection")
objCon.Open strCon
%>
Wijzig gebruikersnaam en wachtwoord
<% 'Invoeren van de gegevens in de tabel
if invoer = "ja" AND fout <> 1 then
SQL = "SELECT gebruikersnaam, wachtwoord FROM instellingen WHERE instelling_id = 1"
Set objData = Server.CreateObject ("ADODB.Recordset")
objData.CursorType = 2
objData.LockType = 3
objData.Open SQL,objCon
objData.Fields("gebruikersnaam") = gebruikersnaam
objData.Fields("wachtwoord") = wachtwoord
objData.Update
objData.Requery
objData.close
Set objData = Nothing
objCon.close
set objCon = nothing
response.write "De gebruikersnaam en het wachtwoord zijn gewijzigd.
"
response.write "Terug"
response.end
end if
%>
<%
if fout <> 1 then
SQL = "SELECT gebruikersnaam FROM instellingen WHERE instelling_id = 1"
Set objData = Server.CreateObject ("ADODB.Recordset")
objData.Open SQL, objCon, 3
gebruiker = objData("gebruikersnaam")
objdata.close
set objdate=nothing
objCon.close
set objCon = nothing
else
gebruiker = gebruikersnaam
end if
%>