<% '*****VERANDERD PER 17.02.2004***** f = "" f = replace(Request.Querystring("f"),"<","<") if f = "" then f = "Algemene informatie" s = "" s = replace(Request.Querystring("s"),"<","<") if s = "" then s = "default" if m = "" or m < 1 then m = replace(Request.QueryString("m"),"<","<") end if if m = "" then m = "20" '*****EINDE VERANDERD PER 17.02.2004***** REFERER = "" REFERER = replace(Request.QueryString("REFERER"),"<","<") if REFERER = "" then REFERER = Request.ServerVariables("HTTP_REFERER") SITENAAMLANG = REFERER SITENAAMLANG = Replace(SITENAAMLANG, "\", "/") SITENAAMLANG = Replace(SITENAAMLANG, "http://", "") slashGevonden = 0 tellerSlashZoeken = 0 DO WHILE slashGevonden = 0 AND tellerSlashZoeken < Len(SITENAAMLANG) tellerSlashZoeken = tellerSlashZoeken + 1 SITENAAM = Left(SITENAAMLANG,tellerSlashZoeken) IF Right(SITENAAM,1) = "/" THEN slashGevonden = 1 SITENAAM = "http://"& SITENAAM END IF LOOP if left(s,5) = "http:" then css = s else css="../../style/" & s & ".css" end if %>
Persoonsgegevens
Naam
Wilt u uw e-mail adres invullen? Wij hebben dit adres nodig om contact met u op te kunnen nemen. E-mail
Telefoonnummer
Straat en huisnummer  
Postcode   
Woonplaats
Geboortedatum -- (dd-mm-jjjj)
Geslacht
Ik heb de volgende vraag of opmerking:
= verplicht veld