<% Class cHorizontalRule private function processHR() dim returnString returnString = "" returnString = returnString & writeCloseDL() returnString = returnString & VbCrLf & "

---

" & VbCrLf processHR = returnString end function public function writeHR() response.write processHR() end function public function returnHR() returnHR = processHR() end function end Class %>