home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / apps / crystal / disk24 / Xasp8 < prev    next >
Encoding:
Text File  |  1999-08-23  |  2.4 KB  |  50 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2.  
  3. <% if Session("username") = "" then
  4.         Response.Redirect("logon.asp")
  5.     end if
  6.  
  7.     ' Netscape Navigator 3.x and lower will not be able to view the ASP source due to a JavaScript problem in the 
  8.     ' browser itself
  9.     Set bt = Server.CreateObject("MSWC.BrowserType")
  10.     if bt.browser = "Netscape" and bt.majorver <= "3" then
  11.         wwsales = "<a href=" & chr(34) & "report.asp?rpt=wwsales" & chr(34) & " target=" & chr(34) & "main" & chr(34) & ">"
  12.         balance = "<a href=" & chr(34) & "report.asp?rpt=balance" & chr(34) & " target=" & chr(34) & "main" & chr(34) & ">"
  13.         finstate = "<a href=" & chr(34) & "report.asp?rpt=finstate" & chr(34) & " target=" & chr(34) & "main" & chr(34) & ">"
  14.         income = "<a href=" & chr(34) & "report.asp?rpt=income" & chr(34) & " target=" & chr(34) & "main" & chr(34) & ">"
  15.     else
  16.         wwsales = "<a href=javascript:rock('wwsales')>"
  17.         balance = "<a href=javascript:rock('balance')>"
  18.         finstate = "<a href=javascript:rock('finstate')>"
  19.         income = "<a href=javascript:rock('income')>"
  20.     end if
  21. %>
  22.  
  23. <html>
  24. <head>
  25. <SCRIPT>
  26.     function rock(report)
  27.     {
  28.         document.open ()
  29.         document.writeln("<body bgcolor=\"#186666\" text=\"#E79999\" vlink=\"#00ffff\" link=\"#FF8000\">")
  30.         document.writeln("<a href=\"report.asp?rpt=wwsales\" target=\"main\" ><img src=\"images/world.gif\" border=0></a><br><br>")
  31.         document.writeln("<a href=\"report.asp?rpt=balance\" target=\"main\" ><img src=\"images/consolidated.gif\" border=0></a><br><br>")
  32.         document.writeln("<a href=\"report.asp?rpt=finstate\" target=\"main\" ><img src=\"images/financial.gif\" border=0></a><br><br>")
  33.         document.writeln("<a href=\"report.asp?rpt=income\" target=\"main\" ><img src=\"images/income.gif\" border=0></a><br><br>")
  34.         document.writeln("<a href=code.asp?source=report.asp target=\"main\"><img src=\"images/source.gif\" border=0></a><br>")
  35.         document.writeln("</body>")
  36.         document.close()
  37.         parent.frames[1].location="report.asp?rpt=" + report
  38.     }    
  39. </SCRIPT>
  40. </head>
  41.  
  42. <body bgcolor="#186666" text="#E79999" vlink="#00ffff" link="#FF8000">
  43. <% response.write wwsales %><img src="images/world.gif" border=0></a><br><br>
  44. <% response.write balance %><img src="images/consolidated.gif" border=0></a><br><br>
  45. <% response.write finstate %><img src="images/financial.gif" border=0></a><br><br>
  46. <% response.write income %><img src="images/income.gif" border=0></a><br><br>
  47. </body>
  48.  
  49. </html>
  50.