<%@ LANGUAGE="VBSCRIPT" %>
<% Response.ContentType = "application/x-cdf" %>
IIS SDK CDF Test
CDF file with ASP
<%
GetChannelItems
%>
<%
' 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("- ")
Response.Write(" " & strTitle & "!!!")
Response.Write(" " & strTitle & "")
Response.Write("
")
Loop
End Sub
%>