|
|
|
|
|
|
|
|
XOCOMP is acknowledged as the source of the photographs. No endorsement by XOCOMP is implied.
|
|
|
|
Compilation Error
Server Error in '/' Application.
Compilation Error
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.
Compiler Error Message: BC30002: Type 'DataSet' is not defined.
Source Error:
|
|
Line 2: <script runat="server">
Line 3:
Line 4: Private dsNewFiles As DataSet = New DataSet
Line 5: Private iDays As Integer = 0
Line 6: Private sScanFolder As String = "" |
Source File: G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx
Line: 4
Show Detailed Compiler Output:
c:\windows\system32\inetsrv> "c:\windows\microsoft.net\framework\v1.1.4322\vbc.exe" /t:library /utf8output /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\0fca25e3\f2c3ae17\yp6afojy.dll" /R:"c:\windows\assembly\gac\system.web.ui.mobilecontrols.adapters\1.1.0.0__b03f5f7f11d50a3a\system.web.ui.mobilecontrols.adapters.dll" /R:"c:\windows\assembly\gac\system.enterpriseservices\1.0.5000.0__b03f5f7f11d50a3a\system.enterpriseservices.dll" /R:"c:\windows\assembly\gac\system.data\1.0.5000.0__b77a5c561934e089\system.data.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\0fca25e3\f2c3ae17\assembly\dl2\ea0d8640\b3045fb8_cecdc501\aspnet.starterkit.communities.dll" /R:"c:\windows\assembly\gac\system.web.mobile\1.0.5000.0__b03f5f7f11d50a3a\system.web.mobile.dll" /R:"c:\windows\assembly\gac\system.drawing\1.0.5000.0__b03f5f7f11d50a3a\system.drawing.dll" /R:"c:\windows\assembly\gac\system.xml\1.0.5000.0__b77a5c561934e089\system.xml.dll" /R:"c:\windows\assembly\gac\system.web.services\1.0.5000.0__b03f5f7f11d50a3a\system.web.services.dll" /R:"c:\windows\assembly\gac\system\1.0.5000.0__b77a5c561934e089\system.dll" /R:"c:\windows\assembly\gac\system.web\1.0.5000.0__b03f5f7f11d50a3a\system.web.dll" /out:"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\0fca25e3\f2c3ae17\vrim2boy.dll" /debug- "C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\0fca25e3\f2c3ae17\vrim2boy.0.vb"
Microsoft (R) Visual Basic .NET Compiler version 7.10.7017.4
for Microsoft (R) .NET Framework version 1.1.4322.2443
Copyright (C) Microsoft Corporation 1987-2002. All rights reserved.
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(4) : error BC30002: Type 'DataSet' is not defined.
Private dsNewFiles As DataSet = New DataSet
~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(41) : error BC30002: Type 'DataColumn' is not defined.
Dim dc As DataColumn = New DataColumn("FileName", System.Type.GetType("System.String"))
~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(44) : error BC30002: Type 'DataColumn' is not defined.
dc = New DataColumn("URL", System.Type.GetType("System.String"))
~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(47) : error BC30002: Type 'DataColumn' is not defined.
dc = New DataColumn("LastWriteTime", System.Type.GetType("System.DateTime"))
~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(62) : error BC30002: Type 'StreamReader' is not defined.
Dim sr As StreamReader ' = New StreamReader(sFilename)
~~~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(63) : error BC30002: Type 'FileInfo' is not defined.
Dim fi As FileInfo = New FileInfo(sFilename)
~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(67) : error BC30451: Name 'File' is not declared.
If File.Exists(sFilename) And DateDiff(DateInterval.Hour, fi.LastWriteTime, DateTime.Now) <= 8 Then
~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(70) : error BC30002: Type 'StreamReader' is not defined.
sr = New StreamReader(sFilename)
~~~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(83) : error BC30451: Name 'File' is not declared.
File.Delete(sFilename)
~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(85) : error BC30002: Type 'StreamWriter' is not defined.
Dim sw As StreamWriter = New StreamWriter(sFilename, False)
~~~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(113) : error BC30451: Name 'File' is not declared.
If File.Exists(sFilename) Then
~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(115) : error BC30002: Type 'FileInfo' is not defined.
Dim fi As FileInfo = New FileInfo(sFilename)
~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(116) : error BC30451: Name 'XmlReadMode' is not declared.
dsNewFiles.ReadXml(sFilename, XmlReadMode.ReadSchema)
~~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(137) : error BC30002: Type 'FileInfo' is not defined.
Dim fi As FileInfo = New FileInfo(sFilename)
~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(142) : error BC30451: Name 'File' is not declared.
File.Delete(sFilename)
~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(146) : error BC30451: Name 'File' is not declared.
If File.Exists(sFilename) AndAlso DateDiff(DateInterval.Hour, fi.LastWriteTime, DateTime.Now) <= 8 Then
~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(152) : error BC30451: Name 'XmlReadMode' is not declared.
dsNewFiles.ReadXml(sFilename, XmlReadMode.ReadSchema)
~~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(163) : error BC30451: Name 'File' is not declared.
File.Delete(sFilename)
~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(168) : error BC30451: Name 'XmlWriteMode' is not declared.
dsNewFiles.WriteXml(sFilename, XmlWriteMode.WriteSchema)
~~~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(195) : error BC30002: Type 'XOFTP' is not defined.
Dim ftp As XOFTP = New XOFTP("xocomp.com", 21)
~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(198) : error BC30002: Type 'FileInfo' is not defined.
Dim fi As FileInfo = New FileInfo(Filename)
~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(204) : error BC30451: Name 'CrLf' is not declared.
MsgBox("Failure " & ex.Message & CrLf & ex.StackTrace)
~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(214) : error BC30002: Type 'DataSet' is not defined.
Private Sub SaveDataSetWithXSLProcessingInstruction(ByVal ds As DataSet, ByVal XSLFilename As String, ByVal Category As String)
~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(221) : error BC30002: Type 'XmlDataDocument' is not defined.
Dim xmlDS As XmlDataDocument
~~~~~~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(223) : error BC30002: Type 'XmlDataDocument' is not defined.
xmlDS = New XmlDataDocument(ds)
~~~~~~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(226) : error BC30002: Type 'XmlProcessingInstruction' is not defined.
Dim newPI As XmlProcessingInstruction
~~~~~~~~~~~~~~~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(244) : error BC30002: Type 'DirectoryInfo' is not defined.
Dim di As DirectoryInfo
~~~~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(245) : error BC30002: Type 'FileInfo' is not defined.
Dim fi As FileInfo
~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(246) : error BC30002: Type 'DirectoryInfo' is not defined.
Dim di2 As DirectoryInfo
~~~~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(254) : error BC30002: Type 'DirectoryInfo' is not defined.
di = New DirectoryInfo(ScanFolder)
~~~~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(311) : error BC30002: Type 'DirectoryInfo' is not defined.
Dim di As DirectoryInfo
~~~~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(312) : error BC30002: Type 'FileInfo' is not defined.
Dim fi As FileInfo
~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(313) : error BC30002: Type 'DirectoryInfo' is not defined.
Dim di2 As DirectoryInfo
~~~~~~~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(314) : error BC30002: Type 'DataRow' is not defined.
Dim sReturn As DataRow
~~~~~~~
G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(321) : error BC30002: Type 'DirectoryInfo' is not defined.
di = New DirectoryInfo(ScanFolder)
~~~~~~~~~~~~~
|
Show Complete Compilation Source:
Line 1: '------------------------------------------------------------------------------
Line 2: ' <autogenerated>
Line 3: ' This code was generated by a tool.
Line 4: ' Runtime Version: 1.1.4322.2443
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 ASP
Line 15: Imports Microsoft.VisualBasic
Line 16: Imports System
Line 17: Imports System.Collections
Line 18: Imports System.Collections.Specialized
Line 19: Imports System.Configuration
Line 20: Imports System.Text
Line 21: Imports System.Text.RegularExpressions
Line 22: Imports System.Web
Line 23: Imports System.Web.Caching
Line 24: Imports System.Web.Security
Line 25: Imports System.Web.SessionState
Line 26: Imports System.Web.UI
Line 27: Imports System.Web.UI.HtmlControls
Line 28: Imports System.Web.UI.WebControls
Line 29:
Line 30: Namespace ASP
Line 31:
Line 32: Public Class WhatsNew_ascx
Line 33: Inherits System.Web.UI.UserControl
Line 34:
Line 35: Private Shared __autoHandlers As Integer
Line 36:
Line 37:
Line 38: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 39: Protected lblCategory As System.Web.UI.WebControls.Label
Line 40:
Line 41: #End ExternalSource
Line 42:
Line 43:
Line 44: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 45: Private __control2 As System.Web.UI.WebControls.TableItemStyle
Line 46:
Line 47: #End ExternalSource
Line 48:
Line 49:
Line 50: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 51: Private __control3 As System.Web.UI.WebControls.TableItemStyle
Line 52:
Line 53: #End ExternalSource
Line 54:
Line 55:
Line 56: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 57: Private __control4 As System.Web.UI.WebControls.TableItemStyle
Line 58:
Line 59: #End ExternalSource
Line 60:
Line 61:
Line 62: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 63: Private __control5 As System.Web.UI.WebControls.TableItemStyle
Line 64:
Line 65: #End ExternalSource
Line 66:
Line 67:
Line 68: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 69: Private __control6 As System.Web.UI.WebControls.TableItemStyle
Line 70:
Line 71: #End ExternalSource
Line 72:
Line 73:
Line 74: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",399)
Line 75: Private __control8 As System.Web.UI.WebControls.HyperLinkColumn
Line 76:
Line 77: #End ExternalSource
Line 78:
Line 79:
Line 80: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",401)
Line 81: Private __control9 As System.Web.UI.WebControls.BoundColumn
Line 82:
Line 83: #End ExternalSource
Line 84:
Line 85:
Line 86: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 87: Private __control7 As System.Web.UI.WebControls.DataGridColumnCollection
Line 88:
Line 89: #End ExternalSource
Line 90:
Line 91:
Line 92: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 93: Private __control10 As System.Web.UI.WebControls.DataGridPagerStyle
Line 94:
Line 95: #End ExternalSource
Line 96:
Line 97:
Line 98: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 99: Protected grdWhatsNew As System.Web.UI.WebControls.DataGrid
Line 100:
Line 101: #End ExternalSource
Line 102:
Line 103: Private Shared __initialized As Boolean = false
Line 104:
Line 105:
Line 106: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",2)
Line 107:
Line 108:
Line 109: Private dsNewFiles As DataSet = New DataSet
Line 110: Private iDays As Integer = 0
Line 111: Private sScanFolder As String = ""
Line 112: Private ForceRefresh As Boolean = False ' True ' force us to reread this file every time
Line 113: Public Property Folder() As String
Line 114: Get
Line 115: Return sScanFolder
Line 116: End Get
Line 117: Set(ByVal Value As String)
Line 118: sScanFolder = Value
Line 119: End Set
Line 120: End Property
Line 121: Public Property Days() As Integer
Line 122: Get
Line 123: Return iDays
Line 124: End Get
Line 125: Set(ByVal Value As Integer)
Line 126: iDays = Value
Line 127: End Set
Line 128: End Property
Line 129: Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Line 130:
Line 131: If Not IsPostBack Then
Line 132: ' old way using HTML as source for lists of modified files and URL links
Line 133: ' ScanFolder()
Line 134:
Line 135: BuildMemoryDataSet()
Line 136: ' Once the Service is running, we don't need this line
Line 137: ' ScanFolderData()
Line 138:
Line 139: ' This assumes we are running our service on the server
Line 140: BindGridToXMLData()
Line 141: End If
Line 142: End Sub
Line 143: Sub BuildMemoryDataSet()
Line 144:
Line 145: dsNewFiles.Tables.Add("NewFiles")
Line 146: Dim dc As DataColumn = New DataColumn("FileName", System.Type.GetType("System.String"))
Line 147: dc.MaxLength = "250"
Line 148: dsNewFiles.Tables(0).Columns.Add(dc)
Line 149: dc = New DataColumn("URL", System.Type.GetType("System.String"))
Line 150: dc.MaxLength = "250"
Line 151: dsNewFiles.Tables(0).Columns.Add(dc)
Line 152: dc = New DataColumn("LastWriteTime", System.Type.GetType("System.DateTime"))
Line 153: dsNewFiles.Tables(0).Columns.Add(dc)
Line 154:
Line 155: End Sub
Line 156: Sub ScanFolder()
Line 157:
Line 158: 'Put user code to initialize the page here
Line 159: ' Response.Write(FindWhatsNew(Days, ScanFolder))
Line 160: If iDays > 0 Then
Line 161:
Line 162: ' in the future we will persist to XML
Line 163: ' right now we use hypertext markup fragment
Line 164: Dim sCategory As String = Replace(Replace(sScanFolder, "\\mano\webs\", ""), "\", "")
Line 165: lblCategory.Text = sCategory
Line 166: Dim sFilename As String = Server.MapPath(".") & "\" & sCategory & ".htm"
Line 167: Dim sr As StreamReader ' = New StreamReader(sFilename)
Line 168: Dim fi As FileInfo = New FileInfo(sFilename)
Line 169: Dim s As String
Line 170:
Line 171: ' if the file exists and the file is less than 8 hours old then
Line 172: If File.Exists(sFilename) And DateDiff(DateInterval.Hour, fi.LastWriteTime, DateTime.Now) <= 8 Then
Line 173: Try
Line 174:
Line 175: sr = New StreamReader(sFilename)
Line 176: s = sr.ReadToEnd
Line 177: sr.Close()
Line 178:
Line 179: Catch
Line 180: ' No read, nothing new
Line 181: End Try
Line 182: Else
Line 183:
Line 184: s = FindWhatsNew(iDays, sScanFolder)
Line 185: Try
Line 186: ' Save the data so we can retrieve it when we have it
Line 187: ' Write the file so we can try to use it later
Line 188: File.Delete(sFilename)
Line 189:
Line 190: Dim sw As StreamWriter = New StreamWriter(sFilename, False)
Line 191: sw.Write(s)
Line 192: sw.Close()
Line 193:
Line 194:
Line 195: Catch
Line 196: ' just ignore the saving failure for now
Line 197: End Try
Line 198: End If
Line 199:
Line 200: Dim data() As String
Line 201: s = sCategory.ToUpper & "<BR>" & s
Line 202: data = Split(s, "<BR>")
Line 203:
Line 204: grdWhatsNew.DataSource = data
Line 205: grdWhatsNew.DataBind()
Line 206:
Line 207: 'Me.DataList1.DataSource = data
Line 208: ''Me.DataList1.DataKeyField = "Item"
Line 209: 'DataList1.DataBind()
Line 210: End If
Line 211: End Sub
Line 212: Sub BindGridToXMLData()
Line 213: Dim sCategory As String = Replace(Replace(sScanFolder, "\\mano\webs\", ""), "\", "")
Line 214: lblCategory.Text = sCategory
Line 215:
Line 216: Dim sFilename As String = Server.MapPath(".") & "\" & sCategory & ".xml"
Line 217:
Line 218: If File.Exists(sFilename) Then
Line 219:
Line 220: Dim fi As FileInfo = New FileInfo(sFilename)
Line 221: dsNewFiles.ReadXml(sFilename, XmlReadMode.ReadSchema)
Line 222: grdWhatsNew.DataSource = dsNewFiles
Line 223: grdWhatsNew.DataBind()
Line 224:
Line 225: End If
Line 226:
Line 227: End Sub
Line 228: Sub ScanFolderData()
Line 229:
Line 230: ' Put user code to initialize the page here
Line 231: ' Response.Write(FindWhatsNew(Days, ScanFolder))
Line 232: If iDays > 0 Then
Line 233:
Line 234: ' in the future we will persist to XML
Line 235: ' right now we use hypertext markup fragment
Line 236: Dim sCategory As String = Replace(Replace(sScanFolder, "\\mano\webs\", ""), "\", "")
Line 237: lblCategory.Text = sCategory
Line 238:
Line 239: Dim sFilename As String = Server.MapPath(".") & "\" & sCategory & ".xml"
Line 240:
Line 241: ' Dim sr As StreamReader ' = New StreamReader(sFilename)
Line 242: Dim fi As FileInfo = New FileInfo(sFilename)
Line 243: Dim s As String
Line 244:
Line 245: ' Check for an existing XML dataset needs to be purged
Line 246: If ForceRefresh Then
Line 247: File.Delete(sFilename)
Line 248: End If
Line 249:
Line 250: ' if the file exists and the file is less than 8 hours old then
Line 251: If File.Exists(sFilename) AndAlso DateDiff(DateInterval.Hour, fi.LastWriteTime, DateTime.Now) <= 8 Then
Line 252: Try
Line 253:
Line 254: 'sr = New StreamReader(sFilename)
Line 255: 's = sr.ReadToEnd
Line 256: 'sr.Close()
Line 257: dsNewFiles.ReadXml(sFilename, XmlReadMode.ReadSchema)
Line 258:
Line 259: Catch
Line 260: ' No read, nothing new
Line 261: End Try
Line 262: Else
Line 263:
Line 264: FindWhatsNewData(iDays, sScanFolder)
Line 265: Try
Line 266: ' Save the data so we can retrieve it when we have it
Line 267: ' Write the file so we can try to use it later
Line 268: File.Delete(sFilename)
Line 269:
Line 270: 'Dim sw As StreamWriter = New StreamWriter(sFilename, False)
Line 271: 'sw.Write(s)
Line 272: 'sw.Close()
Line 273: dsNewFiles.WriteXml(sFilename, XmlWriteMode.WriteSchema)
Line 274:
Line 275: SaveDataSetWithXSLProcessingInstruction(dsNewFiles, "transform.xsl", sCategory)
Line 276:
Line 277:
Line 278: Catch
Line 279: ' just ignore the saving failure for now
Line 280: End Try
Line 281: End If
Line 282:
Line 283: 'Dim data() As String
Line 284: 's = sCategory.ToUpper & "<BR>" & s
Line 285: 'data = Split(s, "<BR>")
Line 286:
Line 287:
Line 288: 'grdWhatsNew.Columns.Add(dgc)
Line 289: 'grdWhatsNew.Columns.Add(dgc)
Line 290:
Line 291: grdWhatsNew.DataSource = dsNewFiles
Line 292: grdWhatsNew.DataBind()
Line 293:
Line 294: 'Me.DataList1.DataSource = data
Line 295: ''Me.DataList1.DataKeyField = "Item"
Line 296: 'DataList1.DataBind()
Line 297: End If
Line 298: End Sub
Line 299: Sub XOCOMPUpload(ByVal Filename As String)
Line 300: Dim ftp As XOFTP = New XOFTP("xocomp.com", 21)
Line 301: ftp.IdVerify("xocomp.com", "sparky0")
Line 302:
Line 303: Dim fi As FileInfo = New FileInfo(Filename)
Line 304: Dim sUploadAs As String = fi.Name()
Line 305: If ftp.Connected Then
Line 306: Try
Line 307: ftp.FtpPutFile(Filename, sUploadAs, fi.Length)
Line 308: Catch ex As Exception
Line 309: MsgBox("Failure " & ex.Message & CrLf & ex.StackTrace)
Line 310: Finally
Line 311: End Try
Line 312: Else
Line 313: MsgBox("Not Connected")
Line 314: End If
Line 315: ftp.Close()
Line 316:
Line 317: End Sub
Line 318:
Line 319: Private Sub SaveDataSetWithXSLProcessingInstruction(ByVal ds As DataSet, ByVal XSLFilename As String, ByVal Category As String)
Line 320: '<?xml:stylesheet type="text/xsl" href="Prof2.xsl" ?>
Line 321: Dim sFilename As String = Server.MapPath(".") & "\" & Category & "DataSet.xml"
Line 322:
Line 323: ' needed in order to add the XSL processing instruction
Line 324: ds.EnforceConstraints = False
Line 325:
Line 326: Dim xmlDS As XmlDataDocument
Line 327: ' note that the dataset will not contain the schema information
Line 328: xmlDS = New XmlDataDocument(ds)
Line 329:
Line 330: ' Create a procesing instruction.
Line 331: Dim newPI As XmlProcessingInstruction
Line 332: Dim PItext As String = "type='text/xsl' href='" & XSLFilename & "'"
Line 333: newPI = xmlDS.CreateProcessingInstruction("xml-stylesheet", PItext)
Line 334:
Line 335: ' Add the processing instruction node to the document.
Line 336: xmlDS.PrependChild(newPI)
Line 337:
Line 338: ' saves the XML with the XSL processing instruction
Line 339: xmlDS.Save(sFilename)
Line 340:
Line 341: XOCOMPUpload(sFilename)
Line 342:
Line 343: End Sub
Line 344: Function FindWhatsNew(ByVal Days As Integer, ByVal ScanFolder As String) As String
Line 345: ' Look at a specific directory on XOCOMP and see if any files are older than what is in the textbox
Line 346:
Line 347: ' recursive algorithm
Line 348:
Line 349: Dim di As DirectoryInfo
Line 350: Dim fi As FileInfo
Line 351: Dim di2 As DirectoryInfo
Line 352: Dim sReturn As String
Line 353:
Line 354: Dim sLink As String = Replace(ScanFolder, "\\mano\webs\", "")
Line 355: Dim iPosition As Integer = sLink.IndexOf("\")
Line 356: sLink = sLink.Insert(iPosition, ".xocomp.net/")
Line 357: sLink = "http://" & Web.HttpUtility.UrlPathEncode(sLink)
Line 358:
Line 359: di = New DirectoryInfo(ScanFolder)
Line 360:
Line 361: For Each fi In di.GetFiles("*.htm*")
Line 362: If DateDiff(DateInterval.Day, fi.LastWriteTime, DateTime.Now.Date) < Days Then
Line 363: sReturn &= "<BR><A href=" & sLink & "/" & Web.HttpUtility.UrlPathEncode(fi.Name) & ">" & di.Name & "\" & fi.Name & " (" & fi.LastWriteTime.ToShortDateString & ")<A>"
Line 364: End If
Line 365: Next
Line 366: 'For Each fi In di.GetFiles("*.html")
Line 367: ' If DateDiff(DateInterval.Day, fi.LastWriteTime, DateTime.Now.Date) < Days Then
Line 368: ' sReturn &= "<BR><A href=" & sLink & "/" & Web.HttpUtility.UrlPathEncode(fi.Name) & ">" & di.Name & "\" & fi.Name & " (" & fi.LastWriteTime.ToShortDateString & ")<A>"
Line 369: ' End If
Line 370: 'Next
Line 371: 'For Each fi In di.GetFiles("*.aspx")
Line 372: ' If DateDiff(DateInterval.Day, fi.LastWriteTime, DateTime.Now.Date) < Days Then
Line 373: ' sReturn &= "<BR><A href=" & sLink & "/" & Web.HttpUtility.UrlPathEncode(fi.Name) & ">" & di.Name & "\" & fi.Name & " (" & fi.LastWriteTime.ToShortDateString & ")<A>"
Line 374: ' End If
Line 375: 'Next
Line 376: For Each fi In di.GetFiles("*.as*")
Line 377: If DateDiff(DateInterval.Day, fi.LastWriteTime, DateTime.Now.Date) < Days Then
Line 378: sReturn &= "<BR><A href=" & sLink & "/" & Web.HttpUtility.UrlPathEncode(fi.Name) & ">" & di.Name & "\" & fi.Name & " (" & fi.LastWriteTime.ToShortDateString & ")<A>"
Line 379: End If
Line 380: Next
Line 381: For Each fi In di.GetFiles("*.jpg")
Line 382: If DateDiff(DateInterval.Day, fi.LastWriteTime, DateTime.Now.Date) < Days Then
Line 383: sReturn &= "<BR><A href=" & sLink & "/" & Web.HttpUtility.UrlPathEncode(fi.Name) & ">" & di.Name & "\" & fi.Name & " (" & fi.LastWriteTime.ToShortDateString & ")<A>"
Line 384: End If
Line 385: Next
Line 386: For Each fi In di.GetFiles("*.gif")
Line 387: If DateDiff(DateInterval.Day, fi.LastWriteTime, DateTime.Now.Date) < Days Then
Line 388: sReturn &= "<BR><A href=" & sLink & "/" & Web.HttpUtility.UrlPathEncode(fi.Name) & ">" & di.Name & "\" & fi.Name & " (" & fi.LastWriteTime.ToShortDateString & ")<A>"
Line 389: End If
Line 390: Next
Line 391: For Each fi In di.GetFiles("*schedule*.xls")
Line 392: If DateDiff(DateInterval.Day, fi.LastWriteTime, DateTime.Now.Date) < Days Then
Line 393: sReturn &= "<BR><A href=" & sLink & "/" & Web.HttpUtility.UrlPathEncode("Attendance.aspx") & ">" & di.Name & " (" & fi.LastWriteTime.ToShortDateString & ")<A>"
Line 394: End If
Line 395: Next
Line 396:
Line 397:
Line 398: For Each di2 In di.GetDirectories()
Line 399: If di2.Name.StartsWith("_") Then
Line 400: ' skip temporary or system folders
Line 401: ElseIf di2.Name.StartsWith("thumbnail") Then
Line 402: ' skip temporary or system folders
Line 403: Else
Line 404: sReturn &= FindWhatsNew(Days, di2.FullName)
Line 405: End If
Line 406: Next
Line 407:
Line 408: Return sReturn
Line 409: End Function
Line 410:
Line 411: Sub FindWhatsNewData(ByVal Days As Integer, ByVal ScanFolder As String)
Line 412: ' Look at a specific directory on XOCOMP and see if any files are older than what is in the textbox
Line 413:
Line 414: ' recursive algorithm
Line 415:
Line 416: Dim di As DirectoryInfo
Line 417: Dim fi As FileInfo
Line 418: Dim di2 As DirectoryInfo
Line 419: Dim sReturn As DataRow
Line 420:
Line 421: Dim sLink As String = Replace(ScanFolder, "\\mano\webs\", "")
Line 422: Dim iPosition As Integer = sLink.IndexOf("\")
Line 423: sLink = sLink.Insert(iPosition, ".xocomp.net")
Line 424: sLink = "http://" & Web.HttpUtility.UrlPathEncode(sLink)
Line 425:
Line 426: di = New DirectoryInfo(ScanFolder)
Line 427:
Line 428: Dim aFileExtension() As String = {"*.htm", "*.html", "*.asp", "*.aspx", "*.jpg", "*.gif", "*schedule*.xls"}
Line 429:
Line 430: For Each sExt As String In aFileExtension
Line 431: For Each fi In di.GetFiles(sExt)
Line 432: If DateDiff(DateInterval.Day, fi.LastWriteTime, DateTime.Now.Date) < Days Then
Line 433: Dim dr As DataRow = dsNewFiles.Tables(0).NewRow()
Line 434: dr.Item("Filename") = di.Name & "\" & fi.Name
Line 435: dr.Item("URL") = sLink & "/" & Web.HttpUtility.UrlPathEncode(fi.Name)
Line 436: dr.Item("LastWriteTime") = fi.LastWriteTime.ToString 'fi.LastWriteTime.ToShortDateString
Line 437:
Line 438: ' accomodate XLS schedule files with an attendance ASPX page
Line 439: If fi.Name.IndexOf(".xls") > 0 Then
Line 440: dr.Item("URL") = sLink & "/" & Web.HttpUtility.UrlPathEncode("Attendance.aspx")
Line 441: End If
Line 442:
Line 443: dsNewFiles.Tables(0).Rows.Add(dr)
Line 444: End If
Line 445: Next
Line 446: Next
Line 447: 'For Each fi In di.GetFiles("*.html")
Line 448: ' If DateDiff(DateInterval.Day, fi.LastWriteTime, DateTime.Now.Date) < Days Then
Line 449: ' sReturn &= "<BR><A href=" & sLink & "/" & Web.HttpUtility.UrlPathEncode(fi.Name) & ">" & di.Name & "\" & fi.Name & " (" & fi.LastWriteTime.ToShortDateString & ")<A>"
Line 450: ' End If
Line 451: 'Next
Line 452: 'For Each fi In di.GetFiles("*.aspx")
Line 453: ' If DateDiff(DateInterval.Day, fi.LastWriteTime, DateTime.Now.Date) < Days Then
Line 454: ' sReturn &= "<BR><A href=" & sLink & "/" & Web.HttpUtility.UrlPathEncode(fi.Name) & ">" & di.Name & "\" & fi.Name & " (" & fi.LastWriteTime.ToShortDateString & ")<A>"
Line 455: ' End If
Line 456: 'Next
Line 457: 'For Each fi In di.GetFiles("*.asp")
Line 458: ' If DateDiff(DateInterval.Day, fi.LastWriteTime, DateTime.Now.Date) < Days Then
Line 459: ' sReturn &= "<BR><A href=" & sLink & "/" & Web.HttpUtility.UrlPathEncode(fi.Name) & ">" & di.Name & "\" & fi.Name & " (" & fi.LastWriteTime.ToShortDateString & ")<A>"
Line 460: ' End If
Line 461: 'Next
Line 462: 'For Each fi In di.GetFiles("*.jpg")
Line 463: ' If DateDiff(DateInterval.Day, fi.LastWriteTime, DateTime.Now.Date) < Days Then
Line 464: ' sReturn &= "<BR><A href=" & sLink & "/" & Web.HttpUtility.UrlPathEncode(fi.Name) & ">" & di.Name & "\" & fi.Name & " (" & fi.LastWriteTime.ToShortDateString & ")<A>"
Line 465: ' End If
Line 466: 'Next
Line 467: 'For Each fi In di.GetFiles("*.gif")
Line 468: ' If DateDiff(DateInterval.Day, fi.LastWriteTime, DateTime.Now.Date) < Days Then
Line 469: ' sReturn &= "<BR><A href=" & sLink & "/" & Web.HttpUtility.UrlPathEncode(fi.Name) & ">" & di.Name & "\" & fi.Name & " (" & fi.LastWriteTime.ToShortDateString & ")<A>"
Line 470: ' End If
Line 471: 'Next
Line 472: 'For Each fi In di.GetFiles("*schedule*.xls")
Line 473: ' If DateDiff(DateInterval.Day, fi.LastWriteTime, DateTime.Now.Date) < Days Then
Line 474: ' sReturn &= "<BR><A href=" & sLink & "/" & Web.HttpUtility.UrlPathEncode("Attendance.aspx") & ">" & di.Name & " (" & fi.LastWriteTime.ToShortDateString & ")<A>"
Line 475: ' End If
Line 476: 'Next
Line 477:
Line 478:
Line 479: ' skip certain folders
Line 480: For Each di2 In di.GetDirectories()
Line 481: If di2.Name.StartsWith("_") Then
Line 482: ' skip temporary or system folders
Line 483: ElseIf di2.Name.StartsWith("thumbnail") Then
Line 484: ' skip temporary or system folders
Line 485: Else
Line 486: FindWhatsNewData(Days, di2.FullName)
Line 487: End If
Line 488: Next
Line 489:
Line 490: 'Return sReturn
Line 491: End Sub
Line 492:
Line 493:
Line 494:
Line 495:
Line 496: #End ExternalSource
Line 497:
Line 498: Public Sub New()
Line 499: MyBase.New
Line 500: If (ASP.WhatsNew_ascx.__initialized = false) Then
Line 501: ASP.WhatsNew_ascx.__initialized = true
Line 502: End If
Line 503: End Sub
Line 504:
Line 505: Protected Overrides Property AutoHandlers As Integer
Line 506: Get
Line 507: Return ASP.WhatsNew_ascx.__autoHandlers
Line 508: End Get
Line 509: Set
Line 510: ASP.WhatsNew_ascx.__autoHandlers = value
Line 511: End Set
Line 512: End Property
Line 513:
Line 514: Protected ReadOnly Property ApplicationInstance As ASP.Global_asax
Line 515: Get
Line 516: Return CType(Me.Context.ApplicationInstance,ASP.Global_asax)
Line 517: End Get
Line 518: End Property
Line 519:
Line 520: Public Overrides ReadOnly Property TemplateSourceDirectory As String
Line 521: Get
Line 522: Return "/Communities/www2/CustomModules"
Line 523: End Get
Line 524: End Property
Line 525:
Line 526: Private Function __BuildControllblCategory() As System.Web.UI.Control
Line 527: Dim __ctrl As System.Web.UI.WebControls.Label
Line 528:
Line 529: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 530: __ctrl = New System.Web.UI.WebControls.Label
Line 531:
Line 532: #End ExternalSource
Line 533: Me.lblCategory = __ctrl
Line 534:
Line 535: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 536: __ctrl.ID = "lblCategory"
Line 537:
Line 538: #End ExternalSource
Line 539:
Line 540: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 541: __ctrl.Width = System.Web.UI.WebControls.Unit.Parse("152px", System.Globalization.CultureInfo.InvariantCulture)
Line 542:
Line 543: #End ExternalSource
Line 544:
Line 545: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 546: __ctrl.Font.Bold = true
Line 547:
Line 548: #End ExternalSource
Line 549:
Line 550: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 551: __ctrl.Font.Size = System.Web.UI.WebControls.FontUnit.Parse("Large", System.Globalization.CultureInfo.InvariantCulture)
Line 552:
Line 553: #End ExternalSource
Line 554: Return __ctrl
Line 555: End Function
Line 556:
Line 557: Private Sub __BuildControl__control2(ByVal __ctrl As System.Web.UI.WebControls.TableItemStyle)
Line 558:
Line 559: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 560: __ctrl.Font.Bold = true
Line 561:
Line 562: #End ExternalSource
Line 563:
Line 564: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 565: __ctrl.ForeColor = CType(System.Drawing.Color.FromArgb(247, 247, 247),System.Drawing.Color)
Line 566:
Line 567: #End ExternalSource
Line 568:
Line 569: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 570: __ctrl.BackColor = CType(System.Drawing.Color.FromArgb(115, 138, 156),System.Drawing.Color)
Line 571:
Line 572: #End ExternalSource
Line 573: End Sub
Line 574:
Line 575: Private Sub __BuildControl__control3(ByVal __ctrl As System.Web.UI.WebControls.TableItemStyle)
Line 576:
Line 577: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 578: __ctrl.BackColor = CType(System.Drawing.Color.FromArgb(247, 247, 247),System.Drawing.Color)
Line 579:
Line 580: #End ExternalSource
Line 581: End Sub
Line 582:
Line 583: Private Sub __BuildControl__control4(ByVal __ctrl As System.Web.UI.WebControls.TableItemStyle)
Line 584:
Line 585: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 586: __ctrl.ForeColor = CType(System.Drawing.Color.FromArgb(74, 60, 140),System.Drawing.Color)
Line 587:
Line 588: #End ExternalSource
Line 589:
Line 590: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 591: __ctrl.BackColor = CType(System.Drawing.Color.FromArgb(231, 231, 255),System.Drawing.Color)
Line 592:
Line 593: #End ExternalSource
Line 594: End Sub
Line 595:
Line 596: Private Sub __BuildControl__control5(ByVal __ctrl As System.Web.UI.WebControls.TableItemStyle)
Line 597:
Line 598: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 599: __ctrl.Font.Bold = true
Line 600:
Line 601: #End ExternalSource
Line 602:
Line 603: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 604: __ctrl.ForeColor = CType(System.Drawing.Color.FromArgb(247, 247, 247),System.Drawing.Color)
Line 605:
Line 606: #End ExternalSource
Line 607:
Line 608: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 609: __ctrl.BackColor = CType(System.Drawing.Color.FromArgb(74, 60, 140),System.Drawing.Color)
Line 610:
Line 611: #End ExternalSource
Line 612: End Sub
Line 613:
Line 614: Private Sub __BuildControl__control6(ByVal __ctrl As System.Web.UI.WebControls.TableItemStyle)
Line 615:
Line 616: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 617: __ctrl.ForeColor = CType(System.Drawing.Color.FromArgb(74, 60, 140),System.Drawing.Color)
Line 618:
Line 619: #End ExternalSource
Line 620:
Line 621: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 622: __ctrl.BackColor = CType(System.Drawing.Color.FromArgb(181, 199, 222),System.Drawing.Color)
Line 623:
Line 624: #End ExternalSource
Line 625: End Sub
Line 626:
Line 627: Private Sub __BuildControl__control8()
Line 628: Dim __ctrl As System.Web.UI.WebControls.HyperLinkColumn
Line 629:
Line 630: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",399)
Line 631: __ctrl = New System.Web.UI.WebControls.HyperLinkColumn
Line 632:
Line 633: #End ExternalSource
Line 634: Me.__control8 = __ctrl
Line 635:
Line 636: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",399)
Line 637: __ctrl.Text = "Filename"
Line 638:
Line 639: #End ExternalSource
Line 640:
Line 641: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",399)
Line 642: __ctrl.Target = "_parent"
Line 643:
Line 644: #End ExternalSource
Line 645:
Line 646: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",399)
Line 647: __ctrl.DataNavigateUrlField = "URL"
Line 648:
Line 649: #End ExternalSource
Line 650:
Line 651: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",399)
Line 652: __ctrl.DataTextField = "Filename"
Line 653:
Line 654: #End ExternalSource
Line 655:
Line 656: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",399)
Line 657: __ctrl.HeaderText = "New File"
Line 658:
Line 659: #End ExternalSource
Line 660: End Sub
Line 661:
Line 662: Private Sub __BuildControl__control9()
Line 663: Dim __ctrl As System.Web.UI.WebControls.BoundColumn
Line 664:
Line 665: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",401)
Line 666: __ctrl = New System.Web.UI.WebControls.BoundColumn
Line 667:
Line 668: #End ExternalSource
Line 669: Me.__control9 = __ctrl
Line 670:
Line 671: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",401)
Line 672: __ctrl.DataField = "LastWriteTime"
Line 673:
Line 674: #End ExternalSource
Line 675:
Line 676: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",401)
Line 677: __ctrl.HeaderText = "Updated"
Line 678:
Line 679: #End ExternalSource
Line 680:
Line 681: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",401)
Line 682: __ctrl.DataFormatString = "{0:d}"
Line 683:
Line 684: #End ExternalSource
Line 685: End Sub
Line 686:
Line 687: Private Sub __BuildControl__control7(ByVal __ctrl As System.Web.UI.WebControls.DataGridColumnCollection)
Line 688:
Line 689: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 690: Me.__BuildControl__control8
Line 691:
Line 692: #End ExternalSource
Line 693:
Line 694: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 695: __ctrl.Add(Me.__control8)
Line 696:
Line 697: #End ExternalSource
Line 698:
Line 699: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 700: Me.__BuildControl__control9
Line 701:
Line 702: #End ExternalSource
Line 703:
Line 704: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 705: __ctrl.Add(Me.__control9)
Line 706:
Line 707: #End ExternalSource
Line 708: End Sub
Line 709:
Line 710: Private Sub __BuildControl__control10(ByVal __ctrl As System.Web.UI.WebControls.DataGridPagerStyle)
Line 711:
Line 712: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 713: __ctrl.HorizontalAlign = System.Web.UI.WebControls.HorizontalAlign.Right
Line 714:
Line 715: #End ExternalSource
Line 716:
Line 717: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 718: __ctrl.ForeColor = CType(System.Drawing.Color.FromArgb(74, 60, 140),System.Drawing.Color)
Line 719:
Line 720: #End ExternalSource
Line 721:
Line 722: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 723: __ctrl.BackColor = CType(System.Drawing.Color.FromArgb(231, 231, 255),System.Drawing.Color)
Line 724:
Line 725: #End ExternalSource
Line 726:
Line 727: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 728: __ctrl.Mode = System.Web.UI.WebControls.PagerMode.NumericPages
Line 729:
Line 730: #End ExternalSource
Line 731: End Sub
Line 732:
Line 733: Private Function __BuildControlgrdWhatsNew() As System.Web.UI.Control
Line 734: Dim __ctrl As System.Web.UI.WebControls.DataGrid
Line 735:
Line 736: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 737: __ctrl = New System.Web.UI.WebControls.DataGrid
Line 738:
Line 739: #End ExternalSource
Line 740: Me.grdWhatsNew = __ctrl
Line 741:
Line 742: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 743: __ctrl.ID = "grdWhatsNew"
Line 744:
Line 745: #End ExternalSource
Line 746:
Line 747: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 748: __ctrl.AutoGenerateColumns = false
Line 749:
Line 750: #End ExternalSource
Line 751:
Line 752: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 753: __ctrl.GridLines = System.Web.UI.WebControls.GridLines.Horizontal
Line 754:
Line 755: #End ExternalSource
Line 756:
Line 757: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 758: __ctrl.CellPadding = 3
Line 759:
Line 760: #End ExternalSource
Line 761:
Line 762: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 763: __ctrl.BackColor = System.Drawing.Color.White
Line 764:
Line 765: #End ExternalSource
Line 766:
Line 767: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 768: __ctrl.BorderWidth = System.Web.UI.WebControls.Unit.Parse("1px", System.Globalization.CultureInfo.InvariantCulture)
Line 769:
Line 770: #End ExternalSource
Line 771:
Line 772: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 773: __ctrl.BorderStyle = System.Web.UI.WebControls.BorderStyle.None
Line 774:
Line 775: #End ExternalSource
Line 776:
Line 777: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 778: __ctrl.BorderColor = CType(System.Drawing.Color.FromArgb(231, 231, 255),System.Drawing.Color)
Line 779:
Line 780: #End ExternalSource
Line 781:
Line 782: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 783: __ctrl.Width = System.Web.UI.WebControls.Unit.Parse("160px", System.Globalization.CultureInfo.InvariantCulture)
Line 784:
Line 785: #End ExternalSource
Line 786:
Line 787: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 788: __ctrl.Height = System.Web.UI.WebControls.Unit.Parse("104px", System.Globalization.CultureInfo.InvariantCulture)
Line 789:
Line 790: #End ExternalSource
Line 791:
Line 792: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 793: __ctrl.EnableViewState = false
Line 794:
Line 795: #End ExternalSource
Line 796:
Line 797: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 798: Me.__BuildControl__control2(__ctrl.SelectedItemStyle)
Line 799:
Line 800: #End ExternalSource
Line 801:
Line 802: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 803: Me.__BuildControl__control3(__ctrl.AlternatingItemStyle)
Line 804:
Line 805: #End ExternalSource
Line 806:
Line 807: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 808: Me.__BuildControl__control4(__ctrl.ItemStyle)
Line 809:
Line 810: #End ExternalSource
Line 811:
Line 812: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 813: Me.__BuildControl__control5(__ctrl.HeaderStyle)
Line 814:
Line 815: #End ExternalSource
Line 816:
Line 817: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 818: Me.__BuildControl__control6(__ctrl.FooterStyle)
Line 819:
Line 820: #End ExternalSource
Line 821:
Line 822: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 823: Me.__BuildControl__control7(__ctrl.Columns)
Line 824:
Line 825: #End ExternalSource
Line 826:
Line 827: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 828: Me.__BuildControl__control10(__ctrl.PagerStyle)
Line 829:
Line 830: #End ExternalSource
Line 831: Return __ctrl
Line 832: End Function
Line 833:
Line 834: Private Sub __BuildControlTree(ByVal __ctrl As System.Web.UI.Control)
Line 835: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 836:
Line 837: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",1)
Line 838: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<P>"))
Line 839:
Line 840: #End ExternalSource
Line 841:
Line 842: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",1)
Line 843: Me.__BuildControllblCategory
Line 844:
Line 845: #End ExternalSource
Line 846:
Line 847: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",1)
Line 848: __parser.AddParsedSubObject(Me.lblCategory)
Line 849:
Line 850: #End ExternalSource
Line 851:
Line 852: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",1)
Line 853: Me.__BuildControlgrdWhatsNew
Line 854:
Line 855: #End ExternalSource
Line 856:
Line 857: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",1)
Line 858: __parser.AddParsedSubObject(Me.grdWhatsNew)
Line 859:
Line 860: #End ExternalSource
Line 861:
Line 862: #ExternalSource("G:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",1)
Line 863: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</P>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)))
Line 864:
Line 865: #End ExternalSource
Line 866: End Sub
Line 867:
Line 868: Protected Overrides Sub FrameworkInitialize()
Line 869: Me.__BuildControlTree(Me)
Line 870: End Sub
Line 871: End Class
Line 872: End Namespace
Line 873: |
|
|
|