Hämta från formuläret, kontrollera innehållet och formatera det som skall läggas till i textfilen.

'Hämta innehållet i formulärets namnrad.
   strNytt_namn = Request.Form("mitt_namn")

'Hämta innehållet i formulärets textruta, det vill säga själva inlägget.
   strNy_text = Request.Form("mitt_inlagg")

'Ta bort eventuella mellanslag i början av namnet. Mellanslag längre in, som mellan förnamn och efternamn, lämnas kvar.
   For i = 1 to len(strNytt_namn)
   if not mid(strNytt_namn,i,1) = " " then exit for
      if mid(strNytt_namn,i,1) = " " then
      strNytt_namn = mid(strNytt_namn,i + 1,len(strNytt_namn))
      end if
   next

'Ta bort mellanslag i början av inlägget.
   For i = 1 to len(strNy_text)
   if not mid(strNy_text,i,1) = " " then exit for
      if mid(strNy_text,i,1) = " " then
      strNy_text = mid(strNy_text,i + 1,len(strNy_text))
      end if
   next

'Kolla om ett namn har skrivits in. Detta behövs för att stoppa spammare med javaskript inaktiverat.

'Om formuläret innehåller fel skickar de fyra följande if-satserna besökaren tillbaka till formulärsidan.

'Om namnet är det som från början stod i namnraden, alltså "Skriv ditt namn", godkänns det inte.
   if strNytt_namn = "Skriv ditt namn" then
   response.redirect("gestbok.asp")
   end if

'Kolla att det finns ett namn - de borttagna mellanslagen i början kan ju medföra att det inte finns något namn kvar.
   if strNytt_namn = "" then
   response.redirect("gestbok.asp")
   end if

'Kolla att det finns ett inlägg. Se föregående kommentar.
   if strNy_text = "" then
   response.redirect("gestbok.asp")
   end if

'Kolla att inlägget inte inleds med hake – detta stoppar de allra flesta spammarna, eftersom deras inlägg skrivs in som html-kod.
   if mid(strNy_text,1,1) = "<" then
   response.redirect("gestbok.asp")
   end if

'Hämta innehållet i epost
   strNy_epost = Request.Form("e_post")
   If strNy_epost = "E-postadress" Then
   strNy_epost = ""
   Else
   strNy_epost = Request.Form("e_post")

'Om e-postadress angavs skrivs HTML-koden för hela raden inklusive länk till e-postadressen
   strNy_epost = "<B class=""bildtext""/>E-post: </B><A HREF=""mailto:" & strNy_epost & """>Skriv till mig</A>
"
   End if

'Hämta innehållet i hemsida
   strNy_hemsida = Request.Form("hemsida")
   If strNy_hemsida = "Hemsida (uteslut http://)" Then
   strNy_hemsida = ""
   Else
   strNy_hemsida = Request.Form("hemsida")

'Även om det står att man inte skall ange http://, kommer en del besökare att göra det. Följande rader tar bort den delen av hemsidesadressen
      If Left(strNy_hemsida, 7) = "http://" or Left(strNy_hemsida, 7) = "HTTP://" then
      strNy_hemsida = Mid (strNy_hemsida, 8, Len (strNy_hemsida) - 7)
      End if

'Om hemsidesadress angavs skrivs HTML-koden för hela raden inklusive länk till den angivna sidan
   strNy_hemsida = "<B class=""bildtext"">Hemsida: </B><A HREF=""http://" & strNy_hemsida & """ target=""_blank"">Min hemsida</A>
"
   End if

'HTML-koda å, ä, ö, HTML-tagghakar och liknande tecken från namn och inlägg. Detta gör att html-kod inte kan köras i gästboken.
   strNytt_namn = Server.HTMLEncode(strNytt_namn)
   strNy_text = Server.HTMLEncode(strNy_text)


'När den eventuella html-koden är borta, gör vi om enterslag till radmatningar
   strNy_text = replace(strNy_text,chr(13),"
")

'Vi skulle kunna ta bort html-koden även från e-post- och hemsidesadress, men avstår från det för att undvika att visa HTML-koden på sidan. De båda följande raderna är bortkommenterade.
   'strNy_epost = Server.HTMLEncode(strNy_epost)
   'strNy_hemsida = Server.HTMLEncode(strNy_hemsida)