home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / apps / crystal / disk24 / Xasp26 < prev    next >
Text File  |  1999-08-23  |  3KB  |  56 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.         customer = "<a href=" & chr(34) & "report.asp?rpt=customer" & chr(34) & " target=" & chr(34) & "main" & chr(34) & ">"
  12.         empsales = "<a href=" & chr(34) & "report.asp?rpt=empsales" & chr(34) & " target=" & chr(34) & "main" & chr(34) & ">"
  13.         invent = "<a href=" & chr(34) & "report.asp?rpt=invent" & chr(34) & " target=" & chr(34) & "main" & chr(34) & ">"
  14.         statemnt = "<a href=" & chr(34) & "report.asp?rpt=statemnt" & chr(34) & " target=" & chr(34) & "main" & chr(34) & ">"
  15.         prodcat = "<a href=" & chr(34) & "report.asp?rpt=prodcat" & chr(34) & " target=" & chr(34) & "main" & chr(34) & ">"
  16.     else
  17.         customer = "<a href=javascript:rock('customer')>"
  18.         empsales = "<a href=javascript:rock('empsales')>"
  19.         invent = "<a href=javascript:rock('invent')>"
  20.         statemnt = "<a href=javascript:rock('statemnt')>"
  21.         prodcat = "<a href=javascript:rock('prodcat')>"
  22.     end if
  23. %>
  24.  
  25. <html>
  26. <head>
  27. <SCRIPT>
  28.     function rock(report)
  29.     {
  30.         document.open ()
  31.         document.writeln("<body bgcolor=\"#003366\" text=\"#FF8000\" vlink=\"#00ffff\" link=\"#FF8000\">")
  32.         document.writeln("<a href=\"report.asp?rpt=customer\" target=\"main\" ><img src=\"images/profile.gif\" border=0></a><br><br>")
  33.         document.writeln("<a href=\"report.asp?rpt=empsales\" target=\"main\" ><img src=\"images/sales.gif\" border=0></a><br><br>")
  34.         document.writeln("<a href=\"report.asp?rpt=invent\" target=\"main\" ><img src=\"images/inventory.gif\" border=0></a><br><br>")
  35.         document.writeln("<a href=\"report.asp?rpt=statemnt\" target=\"main\" ><img src=\"images/order.gif\" border=0></a><br><br>")
  36.         document.writeln("<a href=\"report.asp?rpt=prodcat\" target=\"main\"><img src=\"images/prodcat.gif\" border=0></a><br><br>")
  37.         document.writeln("<a href=\"addcust.asp\" target=\"main\"><img src=\"images/addcust.gif\" border=0></a><br><br>")
  38.         document.writeln("<a href=code.asp?source=report.asp target=\"main\"><img src=\"images/source.gif\" border=0></a><br>")
  39.         document.writeln("</body>")
  40.         document.close()
  41.         parent.frames[1].location="report.asp?rpt=" + report
  42.     }
  43. </SCRIPT>
  44. </head>
  45.  
  46. <body bgcolor="#003366" text="#FF8000" vlink="#00ffff"link="#FF8000">
  47. <% response.write customer %><img src="images/profile.gif" border=0></a><br><br>
  48. <% response.write empsales %><img src="images/sales.gif" border=0></a><br><br>
  49. <% response.write invent %><img src="images/inventory.gif" border=0></a><br><br>
  50. <% response.write statemnt %><img src="images/order.gif" border=0></a><br><br>
  51. <% response.write prodcat %><img src="images/prodcat.gif" border=0></a><br><br>
  52. <a href="addcust.asp" target="main"><img src="images/addcust.gif" border=0></a><br><br>
  53. </body>
  54.  
  55. </html>
  56.