home *** CD-ROM | disk | FTP | other *** search
- <%@ LANGUAGE="VBSCRIPT" %>
- <% Response.ContentType = "application/x-cdf" %>
-
- <?XML version="1.0"?>
-
- <CHANNEL HREF="http://www.microsoft.com/">
-
- <TITLE>IIS SDK CDF Test</TITLE>
- <ABSTRACT>CDF file with ASP</ABSTRACT>
-
- <SCHEDULE>
- <INTERVALTIME HOUR="1" />
- </SCHEDULE>
-
- <%
- GetChannelItems
- %>
-
- </CHANNEL>
-
-
- <%
- ' GetChannelItems uses the FileSystem Object
- ' to access a file on the server which holds
- ' all the CDF items.
-
- Sub GetChannelItems
-
- On Error Resume Next
- Dim fso, prFile, strTitle, strLink,strCategory
-
-
- ' Open FileList.txt to provide dynamic CDF information
-
- Set fso = Server.CreateObject("Scripting.FileSystemObject")
- Set prFile = fso.OpenTextFile(Server.MapPath("FileList.txt"))
-
- If Err.Number <> 0 Then
- Exit Sub
- End If
-
-
- ' Iterate through the file, dynamically creating CDF item entries
-
- Do Until prFile.AtEndOfStream
-
- ' Get headline
-
- strTitle = prFile.ReadLine
-
-
- ' Get URL
-
- strLink = prFile.ReadLine
-
-
- ' Write CDF Item tag back to Browser
-
- Response.Write("<ITEM HREF=" & strLink & ">")
- Response.Write(" <TITLE>" & strTitle & "!!!</TITLE>")
- Response.Write(" <ABSTRACT>" & strTitle & "</ABSTRACT>")
- Response.Write("</ITEM>")
- Loop
-
- End Sub
- %>
-