<%
if request("actie")="nieuwok" then
if request("infoIsZichtbaar") = "on" then
infoIsZichtbaar = 1
else
infoIsZichtbaar = 0
end if
username = toSQLString(request("username"))
pas1 = toSQLString(request("pas1"))
pas2 = toSQLString(request("pas2"))
email = toSQLString(request("email"))
email2 = toSQLString(request("email2"))
gsm = toSQLString(request("gsm"))
hobby = toSQLString(request("hobby"))
materiaal = toSQLString(request("materiaal"))
tel = toSQLString(request("tel"))
sign = toSQLString(request("sign"))
achternaam = toSQLString(request("achternaam"))
voornaam = toSQLString(request("voornaam"))
adres = toSQLString(request("adres"))
pc = toSQLString(request("pcode"))
if existUsername(username) then fout = "Username bestaat al, kies een andere" end if
if email <> email2 then fout = "Geef 2 twee maal een juist emailadres op" end if
if pas1 <> pas2 then fout = "Geef 2 twee maal hetzelfde paswoord op" end if
if len(pas1) < 4 then fout = "Het paswoord moet minimaal 4 tekens lang zijn"end if
if fout = "" then
q= "UPDATE users set intresse='"&hobby&"', materiaal='"&materiaal&"', pasword='"&pas1&"',username='"&username&"', gsm='"&gsm&"', telefoon='"&tel&"', infoIsZichtbaar="&infoIsZichtbaar& ", handtekening='"&sign&"', name='"&achternaam&"', firstname='"&voornaam&"', adress='"&adres&"', "
q= q&"pcode='"&pc &"' WHERE userid="&session("loginid") 'hier moet nog veel worden aangepast
fout = "Alles is geupdate"
'response.Write(q)
conn.execute(q)
end if
end if
q= "SELECT * from users WHERE userid ="&session("loginid")
set rs = conn.execute(q)
%>
<%
breadcrumb = "Profiel"
%>