|

|
|
|

|

|
|
|
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: E:\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\aceba6ae\8f2e1bd5\ym2v9mme.dll" /R:"c:\windows\assembly\gac\system.data\1.0.5000.0__b77a5c561934e089\system.data.dll" /R:"c:\windows\assembly\gac\system.drawing\1.0.5000.0__b03f5f7f11d50a3a\system.drawing.dll" /R:"c:\windows\assembly\gac\system.web.mobile\1.0.5000.0__b03f5f7f11d50a3a\system.web.mobile.dll" /R:"c:\windows\assembly\gac\system.enterpriseservices\1.0.5000.0__b03f5f7f11d50a3a\system.enterpriseservices.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\aceba6ae\8f2e1bd5\assembly\dl2\0eeac289\b3045fb8_cecdc501\aspnet.starterkit.communities.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.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.web\1.0.5000.0__b03f5f7f11d50a3a\system.web.dll" /R:"c:\windows\assembly\gac\system\1.0.5000.0__b77a5c561934e089\system.dll" /out:"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\aceba6ae\8f2e1bd5\iojlpv3m.dll" /debug- "C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\aceba6ae\8f2e1bd5\iojlpv3m.0.vb"
Microsoft (R) Visual Basic .NET Compiler version 7.10.7017.4
for Microsoft (R) .NET Framework version 1.1.4322.2407
Copyright (C) Microsoft Corporation 1987-2002. All rights reserved.
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(4) : error BC30002: Type 'DataSet' is not defined.
Private dsNewFiles As DataSet = New DataSet
~~~~~~~
E:\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"))
~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(44) : error BC30002: Type 'DataColumn' is not defined.
dc = New DataColumn("URL", System.Type.GetType("System.String"))
~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(47) : error BC30002: Type 'DataColumn' is not defined.
dc = New DataColumn("LastWriteTime", System.Type.GetType("System.DateTime"))
~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(62) : error BC30002: Type 'StreamReader' is not defined.
Dim sr As StreamReader ' = New StreamReader(sFilename)
~~~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(63) : error BC30002: Type 'FileInfo' is not defined.
Dim fi As FileInfo = New FileInfo(sFilename)
~~~~~~~~
E:\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
~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(70) : error BC30002: Type 'StreamReader' is not defined.
sr = New StreamReader(sFilename)
~~~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(83) : error BC30451: Name 'File' is not declared.
File.Delete(sFilename)
~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(85) : error BC30002: Type 'StreamWriter' is not defined.
Dim sw As StreamWriter = New StreamWriter(sFilename, False)
~~~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(113) : error BC30451: Name 'File' is not declared.
If File.Exists(sFilename) Then
~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(115) : error BC30002: Type 'FileInfo' is not defined.
Dim fi As FileInfo = New FileInfo(sFilename)
~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(116) : error BC30451: Name 'XmlReadMode' is not declared.
dsNewFiles.ReadXml(sFilename, XmlReadMode.ReadSchema)
~~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(137) : error BC30002: Type 'FileInfo' is not defined.
Dim fi As FileInfo = New FileInfo(sFilename)
~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(142) : error BC30451: Name 'File' is not declared.
File.Delete(sFilename)
~~~~
E:\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
~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(152) : error BC30451: Name 'XmlReadMode' is not declared.
dsNewFiles.ReadXml(sFilename, XmlReadMode.ReadSchema)
~~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(163) : error BC30451: Name 'File' is not declared.
File.Delete(sFilename)
~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(168) : error BC30451: Name 'XmlWriteMode' is not declared.
dsNewFiles.WriteXml(sFilename, XmlWriteMode.WriteSchema)
~~~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(195) : error BC30002: Type 'XOFTP' is not defined.
Dim ftp As XOFTP = New XOFTP("xocomp.com", 21)
~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(198) : error BC30002: Type 'FileInfo' is not defined.
Dim fi As FileInfo = New FileInfo(Filename)
~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(204) : error BC30451: Name 'CrLf' is not declared.
MsgBox("Failure " & ex.Message & CrLf & ex.StackTrace)
~~~~
E:\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)
~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(221) : error BC30002: Type 'XmlDataDocument' is not defined.
Dim xmlDS As XmlDataDocument
~~~~~~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(223) : error BC30002: Type 'XmlDataDocument' is not defined.
xmlDS = New XmlDataDocument(ds)
~~~~~~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(226) : error BC30002: Type 'XmlProcessingInstruction' is not defined.
Dim newPI As XmlProcessingInstruction
~~~~~~~~~~~~~~~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(244) : error BC30002: Type 'DirectoryInfo' is not defined.
Dim di As DirectoryInfo
~~~~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(245) : error BC30002: Type 'FileInfo' is not defined.
Dim fi As FileInfo
~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(246) : error BC30002: Type 'DirectoryInfo' is not defined.
Dim di2 As DirectoryInfo
~~~~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(254) : error BC30002: Type 'DirectoryInfo' is not defined.
di = New DirectoryInfo(ScanFolder)
~~~~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(311) : error BC30002: Type 'DirectoryInfo' is not defined.
Dim di As DirectoryInfo
~~~~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(312) : error BC30002: Type 'FileInfo' is not defined.
Dim fi As FileInfo
~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(313) : error BC30002: Type 'DirectoryInfo' is not defined.
Dim di2 As DirectoryInfo
~~~~~~~~~~~~~
E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx(314) : error BC30002: Type 'DataRow' is not defined.
Dim sReturn As DataRow
~~~~~~~
E:\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.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 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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 536: __ctrl.ID = "lblCategory"
Line 537:
Line 538: #End ExternalSource
Line 539:
Line 540: #ExternalSource("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",399)
Line 637: __ctrl.Text = "Filename"
Line 638:
Line 639: #End ExternalSource
Line 640:
Line 641: #ExternalSource("E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",399)
Line 642: __ctrl.Target = "_parent"
Line 643:
Line 644: #End ExternalSource
Line 645:
Line 646: #ExternalSource("E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",399)
Line 647: __ctrl.DataNavigateUrlField = "URL"
Line 648:
Line 649: #End ExternalSource
Line 650:
Line 651: #ExternalSource("E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",399)
Line 652: __ctrl.DataTextField = "Filename"
Line 653:
Line 654: #End ExternalSource
Line 655:
Line 656: #ExternalSource("E:\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("E:\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("E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",401)
Line 672: __ctrl.DataField = "LastWriteTime"
Line 673:
Line 674: #End ExternalSource
Line 675:
Line 676: #ExternalSource("E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",401)
Line 677: __ctrl.HeaderText = "Updated"
Line 678:
Line 679: #End ExternalSource
Line 680:
Line 681: #ExternalSource("E:\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("E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 690: Me.__BuildControl__control8
Line 691:
Line 692: #End ExternalSource
Line 693:
Line 694: #ExternalSource("E:\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("E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 700: Me.__BuildControl__control9
Line 701:
Line 702: #End ExternalSource
Line 703:
Line 704: #ExternalSource("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 743: __ctrl.ID = "grdWhatsNew"
Line 744:
Line 745: #End ExternalSource
Line 746:
Line 747: #ExternalSource("E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 748: __ctrl.AutoGenerateColumns = false
Line 749:
Line 750: #End ExternalSource
Line 751:
Line 752: #ExternalSource("E:\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("E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 758: __ctrl.CellPadding = 3
Line 759:
Line 760: #End ExternalSource
Line 761:
Line 762: #ExternalSource("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",391)
Line 793: __ctrl.EnableViewState = false
Line 794:
Line 795: #End ExternalSource
Line 796:
Line 797: #ExternalSource("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\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("E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",1)
Line 843: Me.__BuildControllblCategory
Line 844:
Line 845: #End ExternalSource
Line 846:
Line 847: #ExternalSource("E:\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("E:\MoreWebs\Community\Communities\www2\CustomModules\WhatsNew.ascx",1)
Line 853: Me.__BuildControlgrdWhatsNew
Line 854:
Line 855: #End ExternalSource
Line 856:
Line 857: #ExternalSource("E:\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("E:\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:
|
|
|
|
|
|
|
|
|
|
|
New Links
Gulf Coast Gamer's Club
The Gulf Coast Gaming Club ("GCGC") is located on the Mississippi Gulf Coast. We're a group of people interested in gaming, dedicated to bringing gamers of all ages and gaming interests together. We want to encourage and grow gaming along the Gulf Coast as it is our home, but we also interact with,
Ramiki
Who is Ramiki?
XOCOMP Volleyball
XOCOMP sponsored volleyball
|
|
|
|
|
|
|
|
New Articles
Contact Info
How to contact XOCOMP
Referrals
If XOCOMP needs assistance in developing your project, we have an excellent referral program. We can usually help refer other local consultants to perform your work.
Staff
Information about the XOCOMP Staff is listed here.
|
|
|
|
|
|
|
|
May the smile on your face Come straight from your heart --- Anonymous
|
|
|