<% If myinfo.Theme = "casual" Then ' $Date: 11/24/97 11:59a $ ' $ModTime: $ ' $Revision: 1 $ ' $Workfile: layout.inc $ ' casual DIM z 'Khaki colored cell for introduction response.write ""_ & "" 'Blue colored cell for contact information response.write ""_ & "
"_ & "

" & ThmSalutation() & "


"_ & "
" & ThmDate() & "
"_ & ThmTime() & "
" If myinfo.Name <> "" OR myinfo.Email <> "" OR myinfo.faxphone <> "" OR myinfo.Department <>"" Then response.write "
" & thmName() & "
" & thmDept() & "
"_ & thmAddr() & "
" & thmPhone() & "
" & thmFax() & "
" & thmEmail() & "
" End If response.write "
" For z = 1 to 4 response.write Heading(z) & "

" Next response.write "

" If myinfo.Guestbook <> "" OR myinfo.Messages <> "" Then response.write "
While you are here...
"_ & thmGuest() & "
" & thmDrop() & "
" End If call file_check If myinfo.intURL <> "" Then response.write "
My favorite links:

" call urlArray End If response.write "
" call IE_Logo response.write "
" End If %>