Dynamic Desktop Component Code

This is the code, contained in our ASP file, that will create the dynamic CDF file. Please refer back to the column for a description of this file.

<%@ LANGUAGE=VBScript %>
<%
Topics = Request("Topics") 
%>

<% Response.ContentType="application/x-cdf" %>
<?XML version="1.0"?>
<!DOCTYPE Channel SYSTEM "http://www.w3c.org/Channel.dtd">

<CHANNEL HREF="http://www.microsoft.com/workshop/essentials/webmen/samples/dynamic_desktop.asp?Topics=<% Response.Write Topics %>">

<% If Topics = 1 Then %>
    <ITEM HREF="http://www.microsoft.com/workshop/essentials/webmen/samples/Topic1.htm">
        <TITLE>Web Men Topic 1</TITLE>
<% Else %>
    <ITEM HREF="http://www.microsoft.com/workshop/essentials/webmen/samples/Topic2.htm">
        <TITLE>Web Men Topic 2</TITLE>
<% End if %>

        <USAGE VALUE="DesktopComponent">
          <OpenAs VALUE="html" />
          <Width VALUE="350" />
          <Height VALUE="250" />
        </Usage>

    </ITEM>
</CHANNEL>