<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim errortext(10), tmpEmail, tmpWacht1, tmpWacht2 tmpEmail = request.form("email") tmpWacht1 = request.form("wacht1") tmpWacht2 = request.form("wacht2") tmpSoort = request.form("soort") tmpOkay = 0 If request.form("submit") = "aanvragen" then tmpEmail = trim(tmpEmail) tmpWacht1 = trim(tmpWacht1) tmpWacht2 = trim(tmpWacht2) ' email If Len(tmpEmail) < 1 then tmpOkay = tmpOkay + 1 errortext(1) = "verplicht een e-mailadres invullen" Else If Len(tmpEmail) < 7 OR _ Len(tmpEmail) > 200 OR _ InStr(1,tmpEmail,"@",vbTextCompare) = 0 OR _ InStr(1,tmpEmail,".",vbTextcompare) = 0 OR _ InStr(1,tmpEmail,"'",vbTextcompare) > 0 OR _ InStr(1,tmpEmail,"&",vbTextcompare) > 0 OR _ InStr(1,tmpEmail,"%",vbTextcompare) > 0 OR _ InStr(1,tmpEmail,"$",vbTextcompare) > 0 OR _ InStr(1,tmpEmail,"`",vbTextcompare) > 0 OR _ InStr(1,tmpEmail," ",vbTextcompare) > 0 OR _ InStr(1,tmpEmail,",",vbTextcompare) > 0 OR _ InStr(1,tmpEmail,"*",vbTextcompare) > 0 OR _ InStr(1,tmpEmail,"""",vbTextcompare) > 0 OR _ InStr(1,tmpEmail,"<",vbTextcompare) > 0 OR _ InStr(1,tmpEmail,"/",vbTextcompare) > 0 Then tmpOkay = tmpOkay + 1 errortext(1) = "dit is geen geldig e-mailadres" End If End If ' wachtwoord hetzelfde If tmpWacht1 <> tmpWacht2 then tmpOkay = tmpOkay + 1 errortext(2) = "wachtwoorden zijn niet hetzelfde" End if ' wachtwoord If Len(tmpWacht1) < 6 then tmpOkay = tmpOkay + 1 errortext(2) = "wachtwoord is te kort" Else If Len(tmpWacht1) > 200 OR _ InStr(1,tmpWacht1,"'",vbTextcompare) > 0 OR _ InStr(1,tmpWacht1,"&",vbTextcompare) > 0 OR _ InStr(1,tmpWacht1,"%",vbTextcompare) > 0 OR _ InStr(1,tmpWacht1,"$",vbTextcompare) > 0 OR _ InStr(1,tmpWacht1,"`",vbTextcompare) > 0 OR _ InStr(1,tmpWacht1," ",vbTextcompare) > 0 OR _ InStr(1,tmpWacht1,",",vbTextcompare) > 0 OR _ InStr(1,tmpWacht1,"*",vbTextcompare) > 0 OR _ InStr(1,tmpWacht1,"""",vbTextcompare) > 0 OR _ InStr(1,tmpWacht1,"<",vbTextcompare) > 0 OR _ InStr(1,tmpWacht1,"/",vbTextcompare) > 0 Then tmpOkay = tmpOkay + 1 errortext(2) = "dit is geen geldig wachtwoord" End If End If ' soort account If tmpSoort = "1" OR tmpSoort = "0" then tmpSoort = cint(tmpSoort) Else tmpOkay = tmpOkay + 1 errortext(4) = "verplicht een keuze maken" End if If tmpOkay = 0 then ' check of email al bestaat %> <% End if if tmpOkay = 0 then ' maak code randomize timer tmpCode = round(rnd*100000) ' schrijf in DB %> <% 'verstuur e-mail tmpMailToEmail = tmpEmail tmpMailToNaam = tmpEmail tmpMailSubject = "Uw bevestiging gevraagd voor Vrije Makelaars Beurs.nl" tmpMailFromNaam = "Vrije Makelaars Beurs" tmpMailFromEmail = "info@vrijemakelaarsbeurs.nl" %> <% session("emailadres") = tmpEmail Response.redirect ("bevestigen.asp?bevestigen=gevraagd&email="&tmpEmail) End if End if %>
u bevindt zich hier: homeuw accountinschrijven
Inschrijven

Om gebruik te maken van de diensten van DE VRIJE MAKELAARS BEURS dient u zich middels onderstaand formulier in te schrijven.

U krijgt een bevestigingscode toegestuurd naar uw e-mail adres welke u éénmalig dient te bevestigen. U kunt nu voortaan inloggen om gebruik te maken van onze diensten.
 
   
nieuw account aanvragen
   
e-mailadres:
   <% If errortext(1) = "" then response.write " *" else response.write errortext(1) end if %>
   
   
   
wachtwoord:
   <% If errortext(2) = "" then response.write " minimaal 6 karakters" else response.write errortext(2) end if %>
   
   
   
wachtwoord:
   <% If errortext(3) = "" then response.write " (herhaling)" else response.write errortext(3) end if %>
         
        > u bent een particulier <% If errortext(4) <> "" then response.write errortext(4) end if %>
        > u bent een makelaar
         
       
* = verplicht invullen
         
Noot
Bent u al ingeschreven? Log dan nu in.