Line 1: '------------------------------------------------------------------------------
Line 2: ' <autogenerated>
Line 3: ' This code was generated by a tool.
Line 4: ' Runtime Version: 1.1.4322.2407
Line 5: '
Line 6: ' Changes to this file may cause incorrect behavior and will be lost if
Line 7: ' the code is regenerated.
Line 8: ' </autogenerated>
Line 9: '------------------------------------------------------------------------------
Line 10:
Line 11: Option Strict Off
Line 12: Option Explicit On
Line 13:
Line 14: Imports Microsoft.VisualBasic
Line 15: Imports System
Line 16: Imports System.Collections
Line 17: Imports System.Collections.Specialized
Line 18: Imports System.Configuration
Line 19: Imports System.Data
Line 20: Imports System.Data.SqlClient
Line 21: Imports System.Text
Line 22: Imports System.Text.RegularExpressions
Line 23: Imports System.Web
Line 24: Imports System.Web.Caching
Line 25: Imports System.Web.Security
Line 26: Imports System.Web.SessionState
Line 27: Imports System.Web.UI
Line 28: Imports System.Web.UI.HtmlControls
Line 29: Imports System.Web.UI.WebControls
Line 30: Imports System.XML
Line 31:
Line 32: Namespace ASP
Line 33:
Line 34: Public Class feed_aspx
Line 35: Inherits System.Web.UI.Page
Line 36: Implements System.Web.SessionState.IRequiresSessionState
Line 37:
Line 38: Private Shared __autoHandlers As Integer
Line 39:
Line 40: Private Shared __initialized As Boolean = false
Line 41:
Line 42: Private Shared __fileDependencies As System.Collections.ArrayList
Line 43:
Line 44:
Line 45: #ExternalSource("M:\Inetpub\ASP.NETIsolatedSpace\registrar\feed.aspx",7)
Line 46:
Line 47: Sub Page_Load(s As Object, e As EventArgs)
Line 48: If Request("t") <> "" Then
Line 49: Dim tID As Integer = Request("t")
Line 50: WriteXML(t)
Line 51: Else
Line 52: WriteXML(1)
Line 53: End If
Line 54: End Sub
Line 55:
Line 56: Function WriteXML(t)
Line 57: Response.Clear()
Line 58: Response.ContentType = "text/xml"
Line 59: Dim objX As New XmlTextWriter(Response.OutputStream, Encoding.UTF8)
Line 60: objX.WriteStartDocument()
Line 61: objX.WriteStartElement("rss")
Line 62: objX.WriteAttributeString("version", "2.0")
Line 63: objX.WriteStartElement("channel")
Line 64: objX.WriteElementString("title", ConfigurationSettings.AppSettings("AppTitle"))
Line 65: objX.WriteElementString("link", ConfigurationSettings.AppSettings("RootDirectory"))
Line 66: objX.WriteElementString("description", "The latest headlines and information from " & ConfigurationSettings.AppSettings("AppTitle") & ".")
Line 67: objX.WriteElementString("language", "en-us")
Line 68: objX.WriteElementString("pubDate", DateTime.Now.ToString("R"))
Line 69: objX.WriteElementString("webMaster", "web@seattleu.edu")
Line 70: objX.WriteElementString("copyright", "(c) " & Year(Now()) & ", Seattle University. All rights reserved.")
Line 71: objX.WriteElementString("ttl", "60")
Line 72: Dim objConnection As New SqlConnection(ConfigurationSettings.AppSettings("SQLConnection"))
Line 73: objConnection.Open()
Line 74: Dim sql As String = "SELECT A.headline, A.[description], A.[ID], A.posted " & _
Line 75: "FROM NEWS A " & _
Line 76: "INNER JOIN BRG_NEWS_TYPE B ON A.[ID] = B.nID " & _
Line 77: "WHERE B.tID = " & t & " " & _
Line 78: "AND A.Active = 1 " & _
Line 79: "ORDER BY B.sortOrder ASC"
Line 80: Dim objCommand As New SqlCommand(sql, objConnection)
Line 81: Dim objReader As SqlDataReader = objCommand.ExecuteReader()
Line 82: While objReader.Read()
Line 83: objX.WriteStartElement("item")
Line 84: objX.WriteElementString("title", objReader.GetString(0))
Line 85: objX.WriteElementString("description", objReader.GetString(1))
Line 86: objX.WriteElementString("link", ConfigurationSettings.AppSettings("RootDirectory") + "info.aspx?t=" + t + "&ID=" + objReader.GetInt32(2).ToString())
Line 87: objX.WriteElementString("pubDate", objReader.GetDateTime(3).ToString("R"))
Line 88: objX.WriteEndElement()
Line 89: End While
Line 90: objReader.Close()
Line 91: objConnection.Close()
Line 92:
Line 93: objX.WriteEndElement()
Line 94: objX.WriteEndElement()
Line 95: objX.WriteEndDocument()
Line 96: objX.Flush()
Line 97: objX.Close()
Line 98: Response.End()
Line 99: End Function
Line 100:
Line 101: #End ExternalSource
Line 102:
Line 103: Public Sub New()
Line 104: MyBase.New
Line 105: Dim dependencies As System.Collections.ArrayList
Line 106: If (ASP.feed_aspx.__initialized = false) Then
Line 107: dependencies = New System.Collections.ArrayList
Line 108: dependencies.Add("M:\Inetpub\ASP.NETIsolatedSpace\registrar\feed.aspx")
Line 109: ASP.feed_aspx.__fileDependencies = dependencies
Line 110: ASP.feed_aspx.__initialized = true
Line 111: End If
Line 112: End Sub
Line 113:
Line 114: Protected Overrides Property AutoHandlers As Integer
Line 115: Get
Line 116: Return ASP.feed_aspx.__autoHandlers
Line 117: End Get
Line 118: Set
Line 119: ASP.feed_aspx.__autoHandlers = value
Line 120: End Set
Line 121: End Property
Line 122:
Line 123: Protected ReadOnly Property ApplicationInstance As System.Web.HttpApplication
Line 124: Get
Line 125: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 126: End Get
Line 127: End Property
Line 128:
Line 129: Public Overrides ReadOnly Property TemplateSourceDirectory As String
Line 130: Get
Line 131: Return "/registrar"
Line 132: End Get
Line 133: End Property
Line 134:
Line 135: Private Sub __BuildControlTree(ByVal __ctrl As System.Web.UI.Control)
Line 136: End Sub
Line 137:
Line 138: Protected Overrides Sub FrameworkInitialize()
Line 139: Me.__BuildControlTree(Me)
Line 140: Me.FileDependencies = ASP.feed_aspx.__fileDependencies
Line 141: Me.EnableViewStateMac = true
Line 142: Me.Request.ValidateInput
Line 143: End Sub
Line 144:
Line 145: Public Overrides Function GetTypeHashCode() As Integer
Line 146: Return 5381
Line 147: End Function
Line 148: End Class
Line 149: End Namespace
Line 150:
|