<%
function existUsername(uname)
q = "select username from users where username = '" & replace(uname,"'","''") & "'"
set rs = conn.execute(q)
existusername = (not rs.eof)
end function
username = request("username")
mail = request("mail")
mail2 = request("mail2")
geslacht = request("geslacht")
voornaam = request("voornaam")
achternaam = request("achternaam")
adres = request("adres")
postcode = request("pcode")
gemeente = request("gemeente")
materiaal = request("materiaal")
hobby = request("hobby")
if request("actie") = "nieuwok" then
pas = request("pas1")
pas2 = request("pas2")
gdatum = request("jaar") & "-" & request("maand") & "-" & request("dag")
vandaag = year(date) & "-" & month(date) & "-" & day(date)
if mail <> mail2 then
fout = fout & "De E-mailadressen komen niet overeen "
end if
if postcode <> "" then
if isNumeric(postcode) then
if postcode mod 1 <> 0 or postcode<=1000 or postcode>9999 then
fout = fout & "Ongeldige postcode "
end if
else
fout = fout & "Ongeldige postcode "
end if
end if
if pas <> pas2 then fout = fout & "De wachtwoorden komen niet overeen "
if username = "" then
fout = fout & "Gebruikersnaam mag niet leeg zijn "
else
if existUsername(username) then fout = fout & "Gebruikersnaam bestaat al, u dient een andere te kiezen! "
end if
if mail = "" then fout = fout & "Het e-mailadres mag niet leeg zijn "
if pas = "" then fout = fout & "U kan geen leeg wachtwoord opgeven "
if fout = "" then
q = "insert into users (geslacht,name,firstname,adress,pcode,email,birthdate,pasword,username,lidSinds,gemeente,intresse,materiaal,maxBytes) "
q = q & "values(" & geslacht & ",'" & toSQLString(achternaam) & "','" & toSQLString(voornaam) & "','" & toSQLString(adres) & "'"
q = q & ",'" & toSQLstring(postcode) & "','" & toSQLstring(mail) & "','" & gdatum & "','" & toSQLstring(pas) & "','" & toSQLstring(username) & "','" & vandaag & "'"
q = q & ",'" & toSQLstring(gemeente) & "','" & toSQLString(hobby) & "','" & toSQLString(materiaal) & "','5242880')"
conn.execute q
'response.Write q & " "
'____________________gebruiker aanmelden___________________________
q = "select username,userid from users where username = '" & tosqlstring(username) & "'"
set rs = conn.execute(q)
session("loginid") = rs("userid")
session("login") = rs("username")
'___________________________________________________________________
response.Redirect("/")
end if
end if
%>
<%
breadcrumb = "Registreren"
%>