<% Dim fout, melding, anoniem, naam, email, website, bericht fout = request.QueryString("fout") naam = request.QueryString("naam") email = request.QueryString("email") website = request.QueryString("website") bericht = request.QueryString("bericht") select case fout case 1 melding = "De naam is verplicht om in te vullen!" case 2 melding = "Het berichtveld moet ingevuld worden!" case 3 melding = "Geen geldig e-mailadres opgegeven!" end select %> Teken het gastenboek

Teken het gastenboek

<% if melding = "" then response.write "Terug" else response.write "Terug
" response.write ""& melding & "" end if %>

Naam: <% if anoniem = False then response.write "*" end if %>
E-mail:
Website: value="http://" <% else response.write "value='"& website &"'" end if %>>
Bericht:*
Max. 250 char.

<% if blnSmileys = True then %>
Klik op de smiley die je wilt toevoegen

<%end if%>		 <% if blnSmileys = True then %>
Smileys
 
[:)] [:bored:]
[;)] [:sad:]
[:oh:] [:mad:]
[:D] [:shy:]
Meer smileys
<% else %>   <% end if %>
* Verplicht

 

<% ' ************* Het verwijderen van de onderstaande informatie is niet toegestaan!!!********************** response.write "

" response.write "Powered by Madness.nl

" ' ******************************************************************************************************** %>