(defun vaarefalne ()
  (with-connection ("vaarefalne" "vaarefalne" "vaarefalne" "127.0.0.1" :pooled-p t) 
    (page-wrapper
     (handler-case 
         (cond
           ((string-equal "/result-page" (script-name))
            (result-page))
           
           ((string-equal "/detail-page" (script-name))
            (detail-page))

           ((string-equal "/seo-page" (script-name))
            (seo-page))

           ((string-equal "/annonsering" (script-name))
            "<h2>Annonsering</h2>")

           ((string-equal "/kontakt" (script-name))
            "<h2>Kontakt oss</h2>")

           (t
            (search-page)))
       
       (t (cond)
         (with-html-output-to-string (s)
           (:h2 "Noe gikk galt...")
           (:h3 (str (princ-to-string cond)))
           (:a :href "javascript:history.back();" "Tilbake til forrige side")))
           ;; TODO: I gotta remove the backtrace.
           #|(:pre (str (generate-backtrace)))|#))))