<% If myinfo.Theme = "journal" Then ' $Date: 9/11/97 6:07p $ ' $ModTime: $ ' $Revision: 15 $ ' $Workfile: layout.inc $ response.write "" ' ******************* Right Column ************* response.write "" ' ******************* Right Column ************* '***BGColor and Background tag fixes an IE3 StyleSheet problem. response.write ""_ & "

" call page_datetime 'Writes local date and time call page_messaging 'Writes guestbook and dropbox links call file_check 'Checks for published files call page_links 'Writes favorites links ' ******************* Center Column ************* response.write "

"_ & ""_ & ""_ & "

"_ & "" If Len(myinfo.Title) > 6 then response.write " " End If call Title If Len(myinfo.Title) > 6 then response.write " " End If response.write "
" call layout_Email 'Writes email address response.write "
" call Phone 'Writes telephone number response.write "	" call faxPhone 'Writes fax number response.write "
" call Address 'Writes address DIM num For num = 1 to 4 response.write "
" response.write Heading(num) Next response.write "

" call ie_logo 'Places IE logo and link on page response.write "

" End If %>

" End If call Title If Len(myinfo.Title) > 6 then response.write "