home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / iis4_05.cab / script5.asp < prev    next >
Encoding:
Text File  |  1997-08-26  |  1.4 KB  |  38 lines
  1. <CENTER>
  2. <BR>
  3. <%  
  4. Set OBJbrowser = Server.CreateObject("MSWC.BrowserType") 
  5. If OBJbrowser.javaapplets = "True" Then 
  6. %> 
  7.  <applet
  8.     code=CoolScrl.class
  9.     name=coolscrl
  10.     codebase="http://<%=Request.ServerVariables("SERVER_NAME")%>/iishelp/iis/htm/tutorial/"    
  11.     width=180
  12.     height=180>
  13.  
  14.  
  15.     <param name=ClickHereMsg value="Click Here">
  16.     <param name=URLPrefix value="http://<%=Request.ServerVariables("SERVER_NAME")%>/iishelp/iis/htm/tutorial">
  17.     <param name=scrollrate value=10>
  18.     <param name=delay value=4>
  19.     <param name=NumItems value=4>  
  20.     <param name=image0 value="http://<%=Request.ServerVariables("SERVER_NAME")%>/iishelp/iis/htm/tutorial/nyc.JPG" >
  21.     <param name=url0 value="jredirct.asp">
  22.     <param name=image1 value="http://<%=Request.ServerVariables("SERVER_NAME")%>/iishelp/iis/htm/tutorial/natpark.JPG" >
  23.     <param name=url1 value="jredirct.asp">
  24.     <param name=image2 value="http://<%=Request.ServerVariables("SERVER_NAME")%>/iishelp/iis/htm/tutorial/nzealand.JPG" >
  25.     <param name=url2 value="jredirct.asp">
  26.     <param name=image3 value="http://<%=Request.ServerVariables("SERVER_NAME")%>/iishelp/iis/htm/tutorial/rock.JPG" >
  27.     <param name=url3 value="jredirct.asp">
  28.  
  29.    </applet>
  30.  
  31. <% 
  32. Else 
  33.   Set Ad = Server.CreateObject("MSWC.Adrotator") 
  34. %> 
  35. <%= Ad.GetAdvertisement("/iishelp/iis/htm/tutorial/adrot.txt") %>
  36. <% End If %>
  37. </CENTER>
  38.