<%
if request("actie")="nieuwok" then
if request("infoIsZichtbaar") = "on" then
infoIsZichtbaar = 1
else
infoIsZichtbaar = 0
end if
username = request("username")
pas1 = request("pas1")
pas2 = request("pas2")
email = request("email")
email2 = request("email2")
materiaal = toSQLstring(request("materiaal"))
hobby = toSQLstring(request("hobby"))
tel = toSQLstring(request("tel"))
gsm = toSQLstring(request("GSM"))
sign = toSQLstring(request("sign"))
naam = toSQLstring(request("achternaam"))
voornaam = toSQLstring(request("voornaam"))
adres = toSQLstring(request("adres"))
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 materiaal='"&materiaal&"', interesse='"&hobby&"', pasword='"&pas1&"',username='"&username&"', gsm='"&gsm&"', telefoon='"&tel&"', infoIsZichtbaar="&infoIsZichtbaar& ", handtekening='"&sign&"', name='"&naam&"', firstname='"&voornaam&"', adress='"&adres&"', "
q= q&"pcode='"&request("pcode") &"' 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"
%>