home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2001 Special
/
chip-cd_2001_spec_05.zip
/
spec_05
/
apps
/
crystal
/
disk24
/
Xasp29
< prev
next >
Wrap
Text File
|
1999-08-23
|
2KB
|
46 lines
<%@ LANGUAGE="VBSCRIPT" %>
<% if Session("username") = "" then
Response.Redirect("logon.asp")
end if
' Netscape Navigator 3.x and lower will not be able to view the ASP source due to a JavaScript problem in the
' browser itself
Set bt = Server.CreateObject("MSWC.BrowserType")
if bt.browser = "Netscape" and bt.majorver <= "3" then
invent = "<a href=" & chr(34) & "report.asp?rpt=invent" & chr(34) & " target=" & chr(34) & "main" & chr(34) & ">"
maillabl = "<a href=" & chr(34) & "report.asp?rpt=maillabl" & chr(34) & " target=" & chr(34) & "main" & chr(34) & ">"
ordpack = "<a href=" & chr(34) & "report.asp?rpt=ordpack" & chr(34) & " target=" & chr(34) & "main" & chr(34) & ">"
else
invent = "<a href=javascript:rock('invent')>"
maillabl = "<a href=javascript:rock('maillabl')>"
ordpack = "<a href=javascript:rock('ordpack')>"
end if
%>
<html>
<head>
<SCRIPT>
function rock(report)
{
document.open ()
document.writeln("<body bgcolor=\"#990000\" text=\"#ff8000\" vlink=\"#00ffff\" link=\"#FF8000\">")
document.writeln("<a href=\"report.asp?rpt=invent\" target=\"main\" ><img src=\"images/winventory.gif\" border=0></a><br><br>")
document.writeln("<a href=\"report.asp?rpt=maillabl\" target=\"main\" ><img src=\"images/shipping.gif\" border=0></a><br><br>")
document.writeln("<a href=\"report.asp?rpt=ordpack\" target=\"main\" ><img src=\"images/orderpak.gif\" border=0></a><br><br>")
document.writeln("<a href=code.asp?source=report.asp target=\"main\"><img src=\"images/source.gif\" border=0></a><br>")
document.writeln("</body>")
document.close()
parent.frames[1].location="report.asp?rpt=" + report
}
</SCRIPT>
</head>
<body bgcolor="#990000" text="#ff8000" vlink="#00ffff" link="#FF8000">
<% response.write invent %><img src="images/winventory.gif" border=0></a><br><br>
<% response.write maillabl %><img src="images/shipping.gif" border=0></a><br><br>
<% response.write ordpack %><img src="images/orderpak.gif" border=0></a><br><br>
</body>
</html>