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