home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_02.cab / layout.inc2 < prev    next >
Encoding:
Text File  |  1998-04-27  |  2.0 KB  |  49 lines
  1. <%
  2. If myinfo.Theme = "journal" Then
  3.     '    $Date: 9/11/97 6:07p $
  4.     '    $ModTime: $
  5.     '    $Revision: 15 $
  6.     '    $Workfile: layout.inc $    
  7.     response.write "<TABLE width='100%' height='100%' cellpadding='0'"_
  8.     & " cellspacing='0' border='0'><TR>"
  9. '                ******************* Right  Column  *************
  10.     response.write "<TD Valign=top align=left Width=200 class='bg1'>"
  11.     call page_datetime    'Writes local date and time
  12.     call page_messaging    'Writes guestbook and dropbox links
  13.     call file_check        'Checks for published files
  14.     call page_links        'Writes favorites links
  15. '                ******************* Center Column  *************
  16.     response.write "</TD><TD Width='25' rowspan=2 class='bg2' Background='/iissamples/homepage/themes/journal/rip2_2.gif' BGColor='#8080FF'> </TD>"
  17. '               ******************* Right  Column  *************
  18.     '***BGColor and Background tag fixes an IE3 StyleSheet problem. 
  19.     response.write "<TD Valign='TOP' Align='left' rowspan=2 BGColor='#8080FF'>"_
  20.     & "<TABLE border=0 width='100%' height='100%' cellpadding='0' cellspacing='0'><TR>"_
  21.     & "<TD Colspan=2 Height=63 VAlign='top' class='bg3' Background='/iissamples/homepage/themes/journal/rip3.gif'>"_
  22.     & "<CENTER><FONT Style='font-size: 36pt; font-family:Verdana;font-weight: bold'>"
  23.     If Len(myinfo.Title) > 6 then
  24.         response.write "<H3>"
  25.     End If
  26.     call Title
  27.     If Len(myinfo.Title) > 6 then
  28.         response.write "</H3>"
  29.     End If    
  30.     response.write "</FONT></CENTER></TD></TR>"_
  31.     & "<TR><TD Valign=top align=left Colspan='2'>"
  32.     call layout_Email        'Writes email address
  33.     response.write "</TD></TR><TR><TD>"
  34.     call Phone        'Writes telephone number
  35.     response.write "</TD><TD>"
  36.     call faxPhone    'Writes fax number
  37.     response.write "</TD></TR><TR><TD Colspan=2>"
  38.     call Address    'Writes address
  39.     DIM num
  40.     For num = 1 to 4
  41.     response.write "</TD></TR><TR><TD Colspan=2>"
  42.     response.write Heading(num)
  43.     Next
  44.     response.write "</TD></TR></TABLE></TD></TR>"_
  45.     & "<TR><TD height=32 Align=center class=bg1>"
  46.     call ie_logo    'Places IE logo and link on page
  47.     response.write "</TD></TD></TR></TABLE>"
  48. End If
  49. %>