By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
457,723 Members | 832 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 457,723 IT Pros & Developers. It's quick & easy.

Help with Dll

P: n/a
Hello Guys,

I have a bit of a problem, I created a Dll called SecureQueryStringDll.dll
and I had the dll put bin folder of my application first and it did not work
so I then put it in the bin folder of c:\inetpub\wwwroot and it still does
not work. Here is the error I get from it:

temporary asp.net
files\root\d16a94c5\8b912d73\assembly\dl2\1dc1ef5c \006575a4_827ac301\metabuilders.webcontrols.rowsel ectorcolumn.dll"
/out:"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\ Temporary ASP.NET
Files\root\d16a94c5\8b912d73\lhq6vhxb.dll" /D:DEBUG=1 /debug+
"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temp orary ASP.NET
Files\root\d16a94c5\8b912d73\lhq6vhxb.0.vb" Microsoft (R) Visual Basic .NET
Compiler version 7.10.6001.4 for Microsoft (R) .NET Framework version
1.1.4322.2032 Copyright (C) Microsoft Corporation 1987-2002. All rights
reserved. C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Tempo rary ASP.NET
Files\root\d16a94c5\8b912d73\lhq6vhxb.0.vb(15) : error BC30466: Namespace or
type 'SecureQueryStringDll' for the Imports 'SecureQueryStringDll' cannot be
found. Imports SecureQueryStringDll ~~~~~~~~~~~~~~~~~~~~
d:\inetpub\wwwroot\websites\specialk\employeedetai l.aspx(30) : error
BC30002: Type 'SecureQueryString' is not defined. Dim qs = new
SecureQueryString() ~~~~~~~~~~~~~~~~~

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.2032
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 SecureQueryStringDll
Line 16: Imports System
Line 17: Imports System.Collections
Line 18: Imports System.Collections.Specialized
Line 19: Imports System.Configuration
Line 20: Imports System.Configuration.ConfigurationSettings
Line 21: Imports System.Data
Line 22: Imports System.Data.OleDb
Line 23: Imports System.Text
Line 24: Imports System.Text.RegularExpressions
Line 25: Imports System.Web
Line 26: Imports System.Web.Caching
Line 27: Imports System.Web.Security
Line 28: Imports System.Web.SessionState
Line 29: Imports System.Web.UI
Line 30: Imports System.Web.UI.HtmlControls
Line 31: Imports System.Web.UI.WebControls
Line 32:
Line 33: Namespace ASP
Line 34:
Line 35:
<System.Runtime.CompilerServices.CompilerGlobalSco peAttribute()> _
Line 36: Public Class employeedetail_aspx
Line 37: Inherits System.Web.UI.Page
Line 38: Implements System.Web.SessionState.IRequiresSessionState
Line 39:
Line 40: Private Shared __autoHandlers As Integer
Line 41:
Line 42:
Line 43:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",122)
Line 44: Protected txtSearchLastName As
System.Web.UI.WebControls.TextBox
Line 45:
Line 46: #End ExternalSource
Line 47:
Line 48:
Line 49:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 50: Protected btnSearch As
System.Web.UI.WebControls.ImageButton
Line 51:
Line 52: #End ExternalSource
Line 53:
Line 54:
Line 55:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",128)
Line 56: Protected SQLStatement As System.Web.UI.WebControls.Label
Line 57:
Line 58: #End ExternalSource
Line 59:
Line 60: Private __control6 As
System.Web.UI.DataBoundLiteralControl
Line 61:
Line 62:
Line 63:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 64: Private __control4 As
System.Web.UI.WebControls.TemplateColumn
Line 65:
Line 66: #End ExternalSource
Line 67:
Line 68:
Line 69:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 70: Private __control7 As
System.Web.UI.WebControls.HyperLinkColumn
Line 71:
Line 72: #End ExternalSource
Line 73:
Line 74:
Line 75:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 76: Private __control10 As System.Web.UI.WebControls.Label
Line 77:
Line 78: #End ExternalSource
Line 79:
Line 80:
Line 81:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 82: Private __control8 As
System.Web.UI.WebControls.TemplateColumn
Line 83:
Line 84: #End ExternalSource
Line 85:
Line 86:
Line 87:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 88: Private __control13 As System.Web.UI.WebControls.Label
Line 89:
Line 90: #End ExternalSource
Line 91:
Line 92:
Line 93:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 94: Private __control11 As
System.Web.UI.WebControls.TemplateColumn
Line 95:
Line 96: #End ExternalSource
Line 97:
Line 98:
Line 99:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 100: Private __control3 As
System.Web.UI.WebControls.DataGridColumnCollection
Line 101:
Line 102: #End ExternalSource
Line 103:
Line 104:
Line 105:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 106: Protected oGrid As System.Web.UI.WebControls.DataGrid
Line 107:
Line 108: #End ExternalSource
Line 109:
Line 110:
Line 111:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 112: Private __control2 As System.Web.UI.HtmlControls.HtmlForm
Line 113:
Line 114: #End ExternalSource
Line 115:
Line 116: Private Shared __initialized As Boolean = false
Line 117:
Line 118: Private Shared __fileDependencies As
System.Collections.ArrayList
Line 119:
Line 120:
Line 121:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",10)
Line 122:
Line 123: 'Build the SQL string and made it static
Line 124: Protected sComm As String = "Select EmployeeID, LastName,
FirstName, Phone FROM tblEmployeeChecklist where ActiveStatus=Yes"
Line 125:
Line 126:
Line 127: Sub Page_Load(Sender as Object, E as EventArgs)
Line 128:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 129: If Not Page.IsPostBack Then
Line 130: SQLStatement.Text = sComm
Line 131: BindData()
Line 132: End if
Line 133: End sub
Line 134:
Line 135:
Line 136: Sub BindData()
Line 137: Dim oConn As OleDbConnection
Line 138: Dim oComm As OleDbDataAdapter
Line 139: Dim sConn As String
Line 140: Dim oDataSet As New DataSet
Line 141: ' Create the queryString object
Line 142: Dim qs = new SecureQueryString()
Line 143: 'dim Pathdb as String
Line 144: 'Pathdb =
String.Format(server.mappath("reports/db/specialk.mdb"))
Line 145:
Line 146:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 147: 'Usually you would use error-handling here. It is left out to
Line 148: 'make the code as simple as possible.
Line 149: Try
Line 150: 'Create the connection and command objects
Line 151: 'oConn = GetMsAccessOledbConnection(Pathdb, "admin", "")
Line 152: oConn = GetMsAccessOledbConnection(appSettings("Pathdb"),
"admin", "")
Line 153:
Line 154: oComm = New OleDbDataAdapter(SQLStatement.Text, oConn)
Line 155: 'Fill the dataset with the results of the query
Line 156: oComm.Fill(oDataSet, "Employees")
Line 157:
Line 158: 'Set the grid source to the dataset and bind the data
Line 159: oGrid.DataSource=oDataSet.Tables("Employees").Defa ultView
Line 160: oGrid.DataBind()
Line 161: Catch ex As Exception
Line 162: 'if there is a database error, it will get caught here
Line 163: oDataSet = Nothing
Line 164: Response.Write ("An Error Occurred: " & ex.toString())
Line 165: Finally
Line 166: 'Ensure that the objects are disposed
Line 167: oComm.Dispose()
Line 168: oConn.Dispose()
Line 169: End Try
Line 170: End sub
Line 171:
Line 172:
Line 173:
Line 174:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 175: Sub Sort_Grid(Source As Object, E As
DataGridSortCommandEventArgs)
Line 176: SQLStatement.Text = sComm & " ORDER BY " & E.SortExpression
Line 177: BindData()
Line 178: End Sub
Line 179:
Line 180:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 181: Sub oGrid_Page(Source As Object, e As
DataGridPageChangedEventArgs)
Line 182: oGrid.CurrentPageIndex = e.NewPageIndex
Line 183: BindData()
Line 184: End Sub
Line 185:
Line 186:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 187: public shared function GetMsAccessOledbConnection(ByVal dbPath
As String, ByVal dbID As String, ByVal dbPassword As String)
Line 188: 'Build the connection string
Line 189: Dim dbConn As OleDbConnection
Line 190: Dim dbConnStr As String =
String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source={0};User
ID={1};Password={2}", dbPath, dbID, dbPassword)
Line 191: return new OleDbConnection(dbConnStr)
Line 192: End functionLine
193:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 194: sub dgEmployee_ItemDataBound(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.DataGridItemEventArgs)
Line 195: if e.Item.ItemType = ListItemType.Item Or e.Item.ItemType =
ListItemType.AlternatingItem Then
Line 196: e.Item.Attributes.Add("onmouseover",
"this.style.backgroundColor='orange'")
Line 197: End if
Line 198: if e.Item.ItemType = ListItemType.Item Then
Line 199: e.Item.Attributes.Add("onmouseout",
"this.style.backgroundColor='Beige'")
Line 200: else if e.Item.ItemType = ListItemType.header Or
e.Item.ItemType = ListItemType.footer Then
Line 201: e.Item.Attributes.Add("onmouseout",
"this.style.backgroundColor='#9B0000'")
Line 202: else
Line 203: e.Item.Attributes.Add("onmouseout",
"this.style.backgroundColor='Burlywood'")
Line 204: End if
Line 205: End sub
Line 206:
Line 207:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 208: Sub btnSearch_Click(Sender as Object, E as ImageClickEventArgs )
Line 209: SQLStatement.Text = sComm & " and Lastname Like '%" &
txtSearchLastName.text & "%'" 'ORDER BY " & E.SortExpression
Line 210: BindData()
Line 211: End Sub
Line 212:
Line 213:
Line 214:
Line 215: #End ExternalSource
Line 216:
Line 217: Public Sub New()
Line 218: MyBase.New
Line 219: Dim dependencies As System.Collections.ArrayList
Line 220: If (ASP.employeedetail_aspx.__initialized = false)
Then
Line 221: dependencies = New System.Collections.ArrayList
Line 222:
dependencies.Add("d:\inetpub\wwwroot\websites\spec ialk\employeedetail.aspx")
Line 223: ASP.employeedetail_aspx.__fileDependencies =
dependencies
Line 224: ASP.employeedetail_aspx.__initialized = true
Line 225: End If
Line 226: Me.Server.ScriptTimeout = 30000000
Line 227: End Sub
Line 228:
Line 229: Protected Overrides Property AutoHandlers As Integer
Line 230: Get
Line 231: Return ASP.employeedetail_aspx.__autoHandlers
Line 232: End Get
Line 233: Set
Line 234: ASP.employeedetail_aspx.__autoHandlers = value
Line 235: End Set
Line 236: End Property
Line 237:
Line 238: Protected ReadOnly Property ApplicationInstance As
System.Web.HttpApplication
Line 239: Get
Line 240: Return
CType(Me.Context.ApplicationInstance,System.Web.Ht tpApplication)
Line 241: End Get
Line 242: End Property
Line 243:
Line 244: Public Overrides ReadOnly Property
TemplateSourceDirectory As String
Line 245: Get
Line 246: Return "/websites/specialk"
Line 247: End Get
Line 248: End Property
Line 249:
Line 250: Private Function __BuildControltxtSearchLastName() As
System.Web.UI.Control
Line 251: Dim __ctrl As System.Web.UI.WebControls.TextBox
Line 252:
Line 253:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",122)
Line 254: __ctrl = New System.Web.UI.WebControls.TextBox
Line 255:
Line 256: #End ExternalSource
Line 257: Me.txtSearchLastName = __ctrl
Line 258:
Line 259:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",122)
Line 260: __ctrl.ID = "txtSearchLastName"
Line 261:
Line 262: #End ExternalSource
Line 263: Return __ctrl
Line 264: End Function
Line 265:
Line 266: Private Function __BuildControlbtnSearch() As
System.Web.UI.Control
Line 267: Dim __ctrl As System.Web.UI.WebControls.ImageButton
Line 268:
Line 269:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 270: __ctrl = New System.Web.UI.WebControls.ImageButton
Line 271:
Line 272: #End ExternalSource
Line 273: Me.btnSearch = __ctrl
Line 274:
Line 275:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 276: __ctrl.ID = "btnSearch"
Line 277:
Line 278: #End ExternalSource
Line 279:
Line 280:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 281: __ctrl.AlternateText = " Search"
Line 282:
Line 283: #End ExternalSource
Line 284:
Line 285:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 286: __ctrl.ImageUrl =
"images/style/Oak/Images/en/ButtonSearch.gif"
Line 287:
Line 288: #End ExternalSource
Line 289:
Line 290:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 291: __ctrl.ToolTip = "Click here to Search"
Line 292:
Line 293: #End ExternalSource
Line 294:
Line 295:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 296: AddHandler __ctrl.Click, AddressOf Me.btnSearch_Click
Line 297:
Line 298: #End ExternalSource
Line 299: Return __ctrl
Line 300: End Function
Line 301:
Line 302: Private Function __BuildControlSQLStatement() As
System.Web.UI.Control
Line 303: Dim __ctrl As System.Web.UI.WebControls.Label
Line 304:
Line 305:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",128)
Line 306: __ctrl = New System.Web.UI.WebControls.Label
Line 307:
Line 308: #End ExternalSource
Line 309: Me.SQLStatement = __ctrl
Line 310:
Line 311:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",128)
Line 312: __ctrl.ID = "SQLStatement"
Line 313:
Line 314: #End ExternalSource
Line 315:
Line 316:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",128)
Line 317: __ctrl.Visible = false
Line 318:
Line 319: #End ExternalSource
Line 320: Return __ctrl
Line 321: End Function
Line 322:
Line 323: Private Function __BuildControl__control6() As
System.Web.UI.Control
Line 324: Dim __ctrl As System.Web.UI.DataBoundLiteralControl
Line 325: __ctrl = New System.Web.UI.DataBoundLiteralControl(2,
1)
Line 326: Me.__control6 = __ctrl
Line 327: __ctrl.SetStaticString(0, " <span>")
Line 328: __ctrl.SetStaticString(1, "</span> ")
Line 329: AddHandler __ctrl.DataBinding, AddressOf
Me.__DataBind__control6
Line 330: Return __ctrl
Line 331: End Function
Line 332:
Line 333: Public Sub __DataBind__control6(ByVal sender As Object,
ByVal e As System.EventArgs)
Line 334: Dim Container As
System.Web.UI.WebControls.DataGridItem
Line 335: Dim target As System.Web.UI.DataBoundLiteralControl
Line 336: target =
CType(sender,System.Web.UI.DataBoundLiteralControl )
Line 337: Container =
CType(target.BindingContainer,System.Web.UI.WebCon trols.DataGridItem)
Line 338:
Line 339:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",173)
Line 340: target.SetDataBoundString(0,
System.Convert.ToString(Container.ItemIndex+1))
Line 341:
Line 342: #End ExternalSource
Line 343: End Sub
Line 344:
Line 345: Private Sub __BuildControl__control5(ByVal __ctrl As
System.Web.UI.Control)
Line 346:
Line 347:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 348: Me.__BuildControl__control6
Line 349:
Line 350: #End ExternalSource
Line 351: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 352:
Line 353:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 354: __parser.AddParsedSubObject(Me.__control6)
Line 355:
Line 356: #End ExternalSource
Line 357: End Sub
Line 358:
Line 359: Private Sub __BuildControl__control4()
Line 360: Dim __ctrl As
System.Web.UI.WebControls.TemplateColumn
Line 361:
Line 362:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 363: __ctrl = New System.Web.UI.WebControls.TemplateColumn
Line 364:
Line 365: #End ExternalSource
Line 366: Me.__control4 = __ctrl
Line 367:
Line 368:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 369: __ctrl.HeaderText = "#"
Line 370:
Line 371: #End ExternalSource
Line 372:
Line 373:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 374: __ctrl.ItemTemplate = New
System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control5)
Line 375:
Line 376: #End ExternalSource
Line 377: End Sub
Line 378:
Line 379: Private Sub __BuildControl__control7()
Line 380: Dim __ctrl As
System.Web.UI.WebControls.HyperLinkColumn
Line 381:
Line 382:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 383: __ctrl = New
System.Web.UI.WebControls.HyperLinkColumn
Line 384:
Line 385: #End ExternalSource
Line 386: Me.__control7 = __ctrl
Line 387:
Line 388:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 389: __ctrl.HeaderText = "Last Name"
Line 390:
Line 391: #End ExternalSource
Line 392:
Line 393:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 394: __ctrl.DataNavigateUrlField = "EmployeeID"
Line 395:
Line 396: #End ExternalSource
Line 397:
Line 398:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 399: __ctrl.DataNavigateUrlFormatString =
"employeedetail.aspx?x="
Line 400:
Line 401: #End ExternalSource
Line 402:
Line 403:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 404: __ctrl.DataTextField = "Lastname"
Line 405:
Line 406: #End ExternalSource
Line 407:
Line 408:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 409: __ctrl.Target = "_self"
Line 410:
Line 411: #End ExternalSource
Line 412:
Line 413:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 414: __ctrl.HeaderStyle.HorizontalAlign =
System.Web.UI.WebControls.HorizontalAlign.Center
Line 415:
Line 416: #End ExternalSource
Line 417:
Line 418:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 419: __ctrl.SortExpression = "Lastname"
Line 420:
Line 421: #End ExternalSource
Line 422: End Sub
Line 423:
Line 424: Private Function __BuildControl__control10() As
System.Web.UI.Control
Line 425: Dim __ctrl As System.Web.UI.WebControls.Label
Line 426:
Line 427:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 428: __ctrl = New System.Web.UI.WebControls.Label
Line 429:
Line 430: #End ExternalSource
Line 431: Me.__control10 = __ctrl
Line 432:
Line 433:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 434: __ctrl.ID = "lblfirstName"
Line 435:
Line 436: #End ExternalSource
Line 437:
Line 438:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 439: AddHandler __ctrl.DataBinding, AddressOf
Me.__DataBind__control10
Line 440:
Line 441: #End ExternalSource
Line 442: Return __ctrl
Line 443: End Function
Line 444:
Line 445: Public Sub __DataBind__control10(ByVal sender As Object,
ByVal e As System.EventArgs)
Line 446: Dim Container As
System.Web.UI.WebControls.DataGridItem
Line 447: Dim target As System.Web.UI.WebControls.Label
Line 448:
Line 449:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 450: target =
CType(sender,System.Web.UI.WebControls.Label)
Line 451:
Line 452: #End ExternalSource
Line 453:
Line 454:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 455: Container =
CType(target.BindingContainer,System.Web.UI.WebCon trols.DataGridItem)
Line 456:
Line 457: #End ExternalSource
Line 458:
Line 459:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 460: target.Text =
System.Convert.ToString(DataBinder.Eval(Container. DataItem, "firstName"))
Line 461:
Line 462: #End ExternalSource
Line 463: End Sub
Line 464:
Line 465: Private Sub __BuildControl__control9(ByVal __ctrl As
System.Web.UI.Control)
Line 466: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 467:
Line 468:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 469: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBa sic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"
"))
Line 470:
Line 471: #End ExternalSource
Line 472:
Line 473:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 474: Me.__BuildControl__control10
Line 475:
Line 476: #End ExternalSource
Line 477:
Line 478:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 479: __parser.AddParsedSubObject(Me.__control10)
Line 480:
Line 481: #End ExternalSource
Line 482:
Line 483:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 484: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&" "))
Line 485:
Line 486: #End ExternalSource
Line 487: End Sub
Line 488:
Line 489: Private Sub __BuildControl__control8()
Line 490: Dim __ctrl As
System.Web.UI.WebControls.TemplateColumn
Line 491:
Line 492:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 493: __ctrl = New System.Web.UI.WebControls.TemplateColumn
Line 494:
Line 495: #End ExternalSource
Line 496: Me.__control8 = __ctrl
Line 497:
Line 498:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 499: __ctrl.HeaderText = "First Name"
Line 500:
Line 501: #End ExternalSource
Line 502:
Line 503:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 504: __ctrl.HeaderStyle.HorizontalAlign =
System.Web.UI.WebControls.HorizontalAlign.Center
Line 505:
Line 506: #End ExternalSource
Line 507:
Line 508:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 509: __ctrl.SortExpression = "Firstname"
Line 510:
Line 511: #End ExternalSource
Line 512:
Line 513:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 514: __ctrl.ItemTemplate = New
System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control9)
Line 515:
Line 516: #End ExternalSource
Line 517: End Sub
Line 518:
Line 519: Private Function __BuildControl__control13() As
System.Web.UI.Control
Line 520: Dim __ctrl As System.Web.UI.WebControls.Label
Line 521:
Line 522:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 523: __ctrl = New System.Web.UI.WebControls.Label
Line 524:
Line 525: #End ExternalSource
Line 526: Me.__control13 = __ctrl
Line 527:
Line 528:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 529: __ctrl.ID = "lblPhone"
Line 530:
Line 531: #End ExternalSource
Line 532:
Line 533:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 534: AddHandler __ctrl.DataBinding, AddressOf
Me.__DataBind__control13
Line 535:
Line 536: #End ExternalSource
Line 537: Return __ctrl
Line 538: End Function
Line 539:
Line 540: Public Sub __DataBind__control13(ByVal sender As Object,
ByVal e As System.EventArgs)
Line 541: Dim Container As
System.Web.UI.WebControls.DataGridItem
Line 542: Dim target As System.Web.UI.WebControls.Label
Line 543:
Line 544:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 545: target =
CType(sender,System.Web.UI.WebControls.Label)
Line 546:
Line 547: #End ExternalSource
Line 548:
Line 549:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 550: Container =
CType(target.BindingContainer,System.Web.UI.WebCon trols.DataGridItem)
Line 551:
Line 552: #End ExternalSource
Line 553:
Line 554:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 555: target.Text =
System.Convert.ToString(DataBinder.Eval(Container. DataItem, "Phone"))
Line 556:
Line 557: #End ExternalSource
Line 558: End Sub
Line 559:
Line 560: Private Sub __BuildControl__control12(ByVal __ctrl As
System.Web.UI.Control)
Line 561: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 562:
Line 563:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 564: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBa sic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"
"))
Line 565:
Line 566: #End ExternalSource
Line 567:
Line 568:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 569: Me.__BuildControl__control13
Line 570:
Line 571: #End ExternalSource
Line 572:
Line 573:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 574: __parser.AddParsedSubObject(Me.__control13)
Line 575:
Line 576: #End ExternalSource
Line 577:
Line 578:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 579: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&" "))
Line 580:
Line 581: #End ExternalSource
Line 582: End Sub
Line 583:
Line 584: Private Sub __BuildControl__control11()
Line 585: Dim __ctrl As
System.Web.UI.WebControls.TemplateColumn
Line 586:
Line 587:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 588: __ctrl = New System.Web.UI.WebControls.TemplateColumn
Line 589:
Line 590: #End ExternalSource
Line 591: Me.__control11 = __ctrl
Line 592:
Line 593:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 594: __ctrl.HeaderText = "Phone#"
Line 595:
Line 596: #End ExternalSource
Line 597:
Line 598:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 599: __ctrl.HeaderStyle.HorizontalAlign =
System.Web.UI.WebControls.HorizontalAlign.Center
Line 600:
Line 601: #End ExternalSource
Line 602:
Line 603:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 604: __ctrl.SortExpression = "Phone"
Line 605:
Line 606: #End ExternalSource
Line 607:
Line 608:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 609: __ctrl.ItemTemplate = New
System.Web.UI.CompiledTemplateBuilder(AddressOf
Me.__BuildControl__control12)
Line 610:
Line 611: #End ExternalSource
Line 612: End Sub
Line 613:
Line 614: Private Sub __BuildControl__control3(ByVal __ctrl As
System.Web.UI.WebControls.DataGridColumnCollection )
Line 615:
Line 616:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 617: Me.__BuildControl__control4
Line 618:
Line 619: #End ExternalSource
Line 620:
Line 621:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 622: __ctrl.Add(Me.__control4)
Line 623:
Line 624: #End ExternalSource
Line 625:
Line 626:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 627: Me.__BuildControl__control7
Line 628:
Line 629: #End ExternalSource
Line 630:
Line 631:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 632: __ctrl.Add(Me.__control7)
Line 633:
Line 634: #End ExternalSource
Line 635:
Line 636:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 637: Me.__BuildControl__control8
Line 638:
Line 639: #End ExternalSource
Line 640:
Line 641:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 642: __ctrl.Add(Me.__control8)
Line 643:
Line 644: #End ExternalSource
Line 645:
Line 646:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 647: Me.__BuildControl__control11
Line 648:
Line 649: #End ExternalSource
Line 650:
Line 651:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 652: __ctrl.Add(Me.__control11)
Line 653:
Line 654: #End ExternalSource
Line 655: End Sub
Line 656:
Line 657: Private Function __BuildControloGrid() As
System.Web.UI.Control
Line 658: Dim __ctrl As System.Web.UI.WebControls.DataGrid
Line 659:
Line 660:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 661: __ctrl = New System.Web.UI.WebControls.DataGrid
Line 662:
Line 663: #End ExternalSource
Line 664: Me.oGrid = __ctrl
Line 665:
Line 666:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 667: __ctrl.ID = "oGrid"
Line 668:
Line 669: #End ExternalSource
Line 670:
Line 671:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 672: __ctrl.AutoGenerateColumns = false
Line 673:
Line 674: #End ExternalSource
Line 675:
Line 676:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 677: __ctrl.BorderColor = System.Drawing.Color.Black
Line 678:
Line 679: #End ExternalSource
Line 680:
Line 681:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 682: __ctrl.CellPadding = 2
Line 683:
Line 684: #End ExternalSource
Line 685:
Line 686:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 687: __ctrl.CellSpacing = 0
Line 688:
Line 689: #End ExternalSource
Line 690:
Line 691:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 692: __ctrl.Font.Size =
System.Web.UI.WebControls.FontUnit.Parse("10pt",
System.Globalization.CultureInfo.InvariantCulture)
Line 693:
Line 694: #End ExternalSource
Line 695:
Line 696:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 697: __ctrl.ForeColor = System.Drawing.Color.Black
Line 698:
Line 699: #End ExternalSource
Line 700:
Line 701:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 702: __ctrl.BackColor = System.Drawing.Color.Beige
Line 703:
Line 704: #End ExternalSource
Line 705:
Line 706:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 707: __ctrl.ShowHeader = true
Line 708:
Line 709: #End ExternalSource
Line 710:
Line 711:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 712: __ctrl.ShowFooter = true
Line 713:
Line 714: #End ExternalSource
Line 715:
Line 716:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 717: __ctrl.AlternatingItemStyle.ForeColor =
System.Drawing.Color.Black
Line 718:
Line 719: #End ExternalSource
Line 720:
Line 721:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 722: __ctrl.AlternatingItemStyle.Font.Name = "Arial"
Line 723:
Line 724: #End ExternalSource
Line 725:
Line 726:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 727: __ctrl.AlternatingItemStyle.Font.Bold = true
Line 728:
Line 729: #End ExternalSource
Line 730:
Line 731:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 732: __ctrl.AlternatingItemStyle.BackColor =
System.Drawing.Color.BurlyWood
Line 733:
Line 734: #End ExternalSource
Line 735:
Line 736:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 737: __ctrl.AlternatingItemStyle.Font.Size =
System.Web.UI.WebControls.FontUnit.Parse("10pt",
System.Globalization.CultureInfo.InvariantCulture)
Line 738:
Line 739: #End ExternalSource
Line 740:
Line 741:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 742: __ctrl.HeaderStyle.Font.Bold = true
Line 743:
Line 744: #End ExternalSource
Line 745:
Line 746:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 747: __ctrl.FooterStyle.BackColor =
CType(System.Drawing.Color.FromArgb(155, 0, 0),System.Drawing.Color)
Line 748:
Line 749: #End ExternalSource
Line 750:
Line 751:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 752: __ctrl.FooterStyle.Font.Bold = true
Line 753:
Line 754: #End ExternalSource
Line 755:
Line 756:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 757: __ctrl.HeaderStyle.BackColor =
CType(System.Drawing.Color.FromArgb(155, 0, 0),System.Drawing.Color)
Line 758:
Line 759: #End ExternalSource
Line 760:
Line 761:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 762: __ctrl.HeaderStyle.ForeColor =
System.Drawing.Color.White
Line 763:
Line 764: #End ExternalSource
Line 765:
Line 766:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 767: __ctrl.HeaderStyle.Font.Name = "Arial"
Line 768:
Line 769: #End ExternalSource
Line 770:
Line 771:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 772: __ctrl.HeaderStyle.Font.Size =
System.Web.UI.WebControls.FontUnit.Parse("11pt",
System.Globalization.CultureInfo.InvariantCulture)
Line 773:
Line 774: #End ExternalSource
Line 775:
Line 776:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 777: __ctrl.Font.Name = "Arial"
Line 778:
Line 779: #End ExternalSource
Line 780:
Line 781:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 782: __ctrl.AllowPaging = true
Line 783:
Line 784: #End ExternalSource
Line 785:
Line 786:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 787: __ctrl.PageSize = 20
Line 788:
Line 789: #End ExternalSource
Line 790:
Line 791:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 792: __ctrl.PagerStyle.Mode =
System.Web.UI.WebControls.PagerMode.NumericPages
Line 793:
Line 794: #End ExternalSource
Line 795:
Line 796:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 797: __ctrl.PagerStyle.HorizontalAlign =
System.Web.UI.WebControls.HorizontalAlign.Right
Line 798:
Line 799: #End ExternalSource
Line 800:
Line 801:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 802: __ctrl.PagerStyle.NextPageText = "Next"
Line 803:
Line 804: #End ExternalSource
Line 805:
Line 806:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 807: __ctrl.PagerStyle.PrevPageText = "Prev"
Line 808:
Line 809: #End ExternalSource
Line 810:
Line 811:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 812: __ctrl.AllowSorting = true
Line 813:
Line 814: #End ExternalSource
Line 815:
Line 816:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 817: Me.__BuildControl__control3(__ctrl.Columns)
Line 818:
Line 819: #End ExternalSource
Line 820:
Line 821:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 822: AddHandler __ctrl.ItemDataBound, AddressOf
Me.dgEmployee_ItemDataBound
Line 823:
Line 824: #End ExternalSource
Line 825:
Line 826:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 827: AddHandler __ctrl.PageIndexChanged, AddressOf
Me.oGrid_Page
Line 828:
Line 829: #End ExternalSource
Line 830:
Line 831:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 832: AddHandler __ctrl.SortCommand, AddressOf Me.Sort_Grid
Line 833:
Line 834: #End ExternalSource
Line 835: Return __ctrl
Line 836: End Function
Line 837:
Line 838: Private Function __BuildControl__control2() As
System.Web.UI.Control
Line 839: Dim __ctrl As System.Web.UI.HtmlControls.HtmlForm
Line 840:
Line 841:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 842: __ctrl = New System.Web.UI.HtmlControls.HtmlForm
Line 843:
Line 844: #End ExternalSource
Line 845: Me.__control2 = __ctrl
Line 846:
Line 847:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 848: __ctrl.Name = "form1"
Line 849:
Line 850: #End ExternalSource
Line 851:
Line 852:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 853: __ctrl.Method = "post"
Line 854:
Line 855: #End ExternalSource
Line 856: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 857:
Line 858:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 859: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBa sic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"
<table width=""35%"" border=""0"" cellspacing=""0""
cellpadding=""0"">"&Microsoft.VisualBasic.ChrW(13) &Microsoft.VisualBasic.ChrW(10)&"
<tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Vis ualBasic.ChrW(10)&" "& _
Line 860: " <td width=""45%"">Search By Last Name:
</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&"
<td width=""55%"">&nbsp;</td>"& _
Line 861:
""&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visual Basic.ChrW(10)&"
</tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&"
<tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Vis ualBasic.ChrW(10)&"
<td>"))
Line 862:
Line 863: #End ExternalSource
Line 864:
Line 865:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 866: Me.__BuildControltxtSearchLastName
Line 867:
Line 868: #End ExternalSource
Line 869:
Line 870:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 871: __parser.AddParsedSubObject(Me.txtSearchLastName)
Line 872:
Line 873: #End ExternalSource
Line 874:
Line 875:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 876: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&"
<td>"))
Line 877:
Line 878: #End ExternalSource
Line 879:
Line 880:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 881: Me.__BuildControlbtnSearch
Line 882:
Line 883: #End ExternalSource
Line 884:
Line 885:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 886: __parser.AddParsedSubObject(Me.btnSearch)
Line 887:
Line 888: #End ExternalSource
Line 889:
Line 890:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 891: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&"
</tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&"
</table>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.V isualBasic.ChrW(10)&"
<p>&nbsp;
</p>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visua lBasic.ChrW(10)&"
<p>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&" "))
Line 892:
Line 893: #End ExternalSource
Line 894:
Line 895:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 896: Me.__BuildControlSQLStatement
Line 897:
Line 898: #End ExternalSource
Line 899:
Line 900:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 901: __parser.AddParsedSubObject(Me.SQLStatement)
Line 902:
Line 903: #End ExternalSource
Line 904:
Line 905:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 906: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"
</p>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visua lBasic.ChrW(10)&" "))
Line 907:
Line 908: #End ExternalSource
Line 909:
Line 910:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 911: Me.__BuildControloGrid
Line 912:
Line 913: #End ExternalSource
Line 914:
Line 915:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 916: __parser.AddParsedSubObject(Me.oGrid)
Line 917:
Line 918: #End ExternalSource
Line 919:
Line 920:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 921: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBa sic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)))
Line 922:
Line 923: #End ExternalSource
Line 924: Return __ctrl
Line 925: End Function
Line 926:
Line 927: Private Sub __BuildControlTree(ByVal __ctrl As
System.Web.UI.Control)
Line 928: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 929:
Line 930:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",1)
Line 931: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&Microsoft.VisualBasic.ChrW(13)&Micro soft.VisualBasic.ChrW(10)&"<html>
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"<head>
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"<title>Fill
A DataGrid From Access Database</title>
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"<met"& _
Line 932: "a http-equiv=""Content-Type"" content=""text/html;
charset=iso-8859-1""><style type="& _
Line 933:
"""text/css"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.V isualBasic.ChrW(10)&"<!--"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"body
{"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visual Basic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"back ground-color:
#e1ddcd;"&Microsoft.VisualBasic.ChrW(13)&Microsoft .VisualBasic.ChrW(10)&"}"&Microsoft.VisualBasic.Ch rW(13)&Microsoft.VisualBasic.ChrW(10)&"-->"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visual Basic.ChrW(10)&"</style></head>
"& _
Line 934:
""&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visual Basic.ChrW(10)&"<body>"&Microsoft.VisualBasic.ChrW (13)&Microsoft.VisualBasic.ChrW(10)))
Line 935:
Line 936: #End ExternalSource
Line 937:
Line 938:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",1)
Line 939: Me.__BuildControl__control2
Line 940:
Line 941: #End ExternalSource
Line 942:
Line 943:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",1)
Line 944: __parser.AddParsedSubObject(Me.__control2)
Line 945:
Line 946: #End ExternalSource
Line 947:
Line 948:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",1)
Line 949: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBa sic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</body>
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"</html> "))
Line 950:
Line 951: #End ExternalSource
Line 952: End Sub
Line 953:
Line 954: Protected Overrides Sub FrameworkInitialize()
Line 955: Me.__BuildControlTree(Me)
Line 956: Me.FileDependencies =
ASP.employeedetail_aspx.__fileDependencies
Line 957: Me.EnableViewStateMac = true
Line 958: Me.Request.ValidateInput
Line 959: End Sub
Line 960:
Line 961: Public Overrides Function GetTypeHashCode() As Integer
Line 962: Return 1493822296
Line 963: End Function
Line 964: End Class
Line 965: End Namespace
Line 966:


--------------------------------------------------------------------------------
Version Information: Microsoft .NET Framework Version:1.1.4322.2032; ASP.NET
Version:1.1.4322.2032
<%@ Page language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Configuration.ConfigurationSetti ngs" %>
<%@ Import Namespace="SecureQueryStringDll" %>

<script language="VB" runat="server">
'Build the SQL string and made it static
Protected sComm As String = "Select EmployeeID, LastName, FirstName, Phone
FROM tblEmployeeChecklist where ActiveStatus=Yes"
Sub Page_Load(Sender as Object, E as EventArgs)
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
If Not Page.IsPostBack Then
SQLStatement.Text = sComm
BindData()
End if
End sub
Sub BindData()
Dim oConn As OleDbConnection
Dim oComm As OleDbDataAdapter
Dim sConn As String
Dim oDataSet As New DataSet
' Create the queryString object
Dim qs = new SecureQueryString()

--
Thanks,

Mar 28 '06 #1
Share this Question
Share on Google+
2 Replies


P: n/a
Type 'SecureQueryString' is not defined. Dim qs = new
SecureQueryString()

Do you have a reference to the DLL?

"momo" <ma***@seeourweb.com> wrote in message
news:uD*************@TK2MSFTNGP11.phx.gbl...
Hello Guys,

I have a bit of a problem, I created a Dll called SecureQueryStringDll.dll
and I had the dll put bin folder of my application first and it did not
work so I then put it in the bin folder of c:\inetpub\wwwroot and it still
does not work. Here is the error I get from it:

temporary asp.net
files\root\d16a94c5\8b912d73\assembly\dl2\1dc1ef5c \006575a4_827ac301\metabuilders.webcontrols.rowsel ectorcolumn.dll"
/out:"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\ Temporary ASP.NET
Files\root\d16a94c5\8b912d73\lhq6vhxb.dll" /D:DEBUG=1 /debug+
"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temp orary ASP.NET
Files\root\d16a94c5\8b912d73\lhq6vhxb.0.vb" Microsoft (R) Visual Basic
.NET Compiler version 7.10.6001.4 for Microsoft (R) .NET Framework version
1.1.4322.2032 Copyright (C) Microsoft Corporation 1987-2002. All rights
reserved. C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Tempo rary ASP.NET
Files\root\d16a94c5\8b912d73\lhq6vhxb.0.vb(15) : error BC30466: Namespace
or type 'SecureQueryStringDll' for the Imports 'SecureQueryStringDll'
cannot be found. Imports SecureQueryStringDll ~~~~~~~~~~~~~~~~~~~~
d:\inetpub\wwwroot\websites\specialk\employeedetai l.aspx(30) : error
BC30002: Type 'SecureQueryString' is not defined. Dim qs = new
SecureQueryString() ~~~~~~~~~~~~~~~~~

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.2032
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 SecureQueryStringDll
Line 16: Imports System
Line 17: Imports System.Collections
Line 18: Imports System.Collections.Specialized
Line 19: Imports System.Configuration
Line 20: Imports System.Configuration.ConfigurationSettings
Line 21: Imports System.Data
Line 22: Imports System.Data.OleDb
Line 23: Imports System.Text
Line 24: Imports System.Text.RegularExpressions
Line 25: Imports System.Web
Line 26: Imports System.Web.Caching
Line 27: Imports System.Web.Security
Line 28: Imports System.Web.SessionState
Line 29: Imports System.Web.UI
Line 30: Imports System.Web.UI.HtmlControls
Line 31: Imports System.Web.UI.WebControls
Line 32:
Line 33: Namespace ASP
Line 34:
Line 35: <System.Runtime.CompilerServices.CompilerGlobalSco peAttribute()>
_
Line 36: Public Class employeedetail_aspx
Line 37: Inherits System.Web.UI.Page
Line 38: Implements
System.Web.SessionState.IRequiresSessionState
Line 39:
Line 40: Private Shared __autoHandlers As Integer
Line 41:
Line 42:
Line 43:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",122)
Line 44: Protected txtSearchLastName As
System.Web.UI.WebControls.TextBox
Line 45:
Line 46: #End ExternalSource
Line 47:
Line 48:
Line 49:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 50: Protected btnSearch As
System.Web.UI.WebControls.ImageButton
Line 51:
Line 52: #End ExternalSource
Line 53:
Line 54:
Line 55:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",128)
Line 56: Protected SQLStatement As
System.Web.UI.WebControls.Label
Line 57:
Line 58: #End ExternalSource
Line 59:
Line 60: Private __control6 As
System.Web.UI.DataBoundLiteralControl
Line 61:
Line 62:
Line 63:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 64: Private __control4 As
System.Web.UI.WebControls.TemplateColumn
Line 65:
Line 66: #End ExternalSource
Line 67:
Line 68:
Line 69:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 70: Private __control7 As
System.Web.UI.WebControls.HyperLinkColumn
Line 71:
Line 72: #End ExternalSource
Line 73:
Line 74:
Line 75:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 76: Private __control10 As System.Web.UI.WebControls.Label
Line 77:
Line 78: #End ExternalSource
Line 79:
Line 80:
Line 81:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 82: Private __control8 As
System.Web.UI.WebControls.TemplateColumn
Line 83:
Line 84: #End ExternalSource
Line 85:
Line 86:
Line 87:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 88: Private __control13 As System.Web.UI.WebControls.Label
Line 89:
Line 90: #End ExternalSource
Line 91:
Line 92:
Line 93:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 94: Private __control11 As
System.Web.UI.WebControls.TemplateColumn
Line 95:
Line 96: #End ExternalSource
Line 97:
Line 98:
Line 99:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 100: Private __control3 As
System.Web.UI.WebControls.DataGridColumnCollection
Line 101:
Line 102: #End ExternalSource
Line 103:
Line 104:
Line 105:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 106: Protected oGrid As System.Web.UI.WebControls.DataGrid
Line 107:
Line 108: #End ExternalSource
Line 109:
Line 110:
Line 111:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 112: Private __control2 As
System.Web.UI.HtmlControls.HtmlForm
Line 113:
Line 114: #End ExternalSource
Line 115:
Line 116: Private Shared __initialized As Boolean = false
Line 117:
Line 118: Private Shared __fileDependencies As
System.Collections.ArrayList
Line 119:
Line 120:
Line 121:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",10)
Line 122:
Line 123: 'Build the SQL string and made it static
Line 124: Protected sComm As String = "Select EmployeeID, LastName,
FirstName, Phone FROM tblEmployeeChecklist where ActiveStatus=Yes"
Line 125:
Line 126:
Line 127: Sub Page_Load(Sender as Object, E as EventArgs)
Line 128:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 129: If Not Page.IsPostBack Then
Line 130: SQLStatement.Text = sComm
Line 131: BindData()
Line 132: End if
Line 133: End sub
Line 134:
Line 135:
Line 136: Sub BindData()
Line 137: Dim oConn As OleDbConnection
Line 138: Dim oComm As OleDbDataAdapter
Line 139: Dim sConn As String
Line 140: Dim oDataSet As New DataSet
Line 141: ' Create the queryString object
Line 142: Dim qs = new SecureQueryString()
Line 143: 'dim Pathdb as String
Line 144: 'Pathdb =
String.Format(server.mappath("reports/db/specialk.mdb"))
Line 145:
Line 146:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 147: 'Usually you would use error-handling here. It is left out to
Line 148: 'make the code as simple as possible.
Line 149: Try
Line 150: 'Create the connection and command objects
Line 151: 'oConn = GetMsAccessOledbConnection(Pathdb, "admin", "")
Line 152: oConn = GetMsAccessOledbConnection(appSettings("Pathdb"),
"admin", "")
Line 153:
Line 154: oComm = New OleDbDataAdapter(SQLStatement.Text, oConn)
Line 155: 'Fill the dataset with the results of the query
Line 156: oComm.Fill(oDataSet, "Employees")
Line 157:
Line 158: 'Set the grid source to the dataset and bind the data
Line 159: oGrid.DataSource=oDataSet.Tables("Employees").Defa ultView
Line 160: oGrid.DataBind()
Line 161: Catch ex As Exception
Line 162: 'if there is a database error, it will get caught here
Line 163: oDataSet = Nothing
Line 164: Response.Write ("An Error Occurred: " & ex.toString())
Line 165: Finally
Line 166: 'Ensure that the objects are disposed
Line 167: oComm.Dispose()
Line 168: oConn.Dispose()
Line 169: End Try
Line 170: End sub
Line 171:
Line 172:
Line 173:
Line 174:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 175: Sub Sort_Grid(Source As Object, E As
DataGridSortCommandEventArgs)
Line 176: SQLStatement.Text = sComm & " ORDER BY " & E.SortExpression
Line 177: BindData()
Line 178: End Sub
Line 179:
Line 180:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 181: Sub oGrid_Page(Source As Object, e As
DataGridPageChangedEventArgs)
Line 182: oGrid.CurrentPageIndex = e.NewPageIndex
Line 183: BindData()
Line 184: End Sub
Line 185:
Line 186:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 187: public shared function GetMsAccessOledbConnection(ByVal dbPath
As String, ByVal dbID As String, ByVal dbPassword As String)
Line 188: 'Build the connection string
Line 189: Dim dbConn As OleDbConnection
Line 190: Dim dbConnStr As String =
String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source={0};User
ID={1};Password={2}", dbPath, dbID, dbPassword)
Line 191: return new OleDbConnection(dbConnStr)
Line 192: End functionLine 193:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 194: sub dgEmployee_ItemDataBound(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.DataGridItemEventArgs)
Line 195: if e.Item.ItemType = ListItemType.Item Or e.Item.ItemType =
ListItemType.AlternatingItem Then
Line 196: e.Item.Attributes.Add("onmouseover",
"this.style.backgroundColor='orange'")
Line 197: End if
Line 198: if e.Item.ItemType = ListItemType.Item Then
Line 199: e.Item.Attributes.Add("onmouseout",
"this.style.backgroundColor='Beige'")
Line 200: else if e.Item.ItemType = ListItemType.header Or
e.Item.ItemType = ListItemType.footer Then
Line 201: e.Item.Attributes.Add("onmouseout",
"this.style.backgroundColor='#9B0000'")
Line 202: else
Line 203: e.Item.Attributes.Add("onmouseout",
"this.style.backgroundColor='Burlywood'")
Line 204: End if
Line 205: End sub
Line 206:
Line 207:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 208: Sub btnSearch_Click(Sender as Object, E as
ImageClickEventArgs )
Line 209: SQLStatement.Text = sComm & " and Lastname Like '%" &
txtSearchLastName.text & "%'" 'ORDER BY " & E.SortExpression
Line 210: BindData()
Line 211: End Sub
Line 212:
Line 213:
Line 214:
Line 215: #End ExternalSource
Line 216:
Line 217: Public Sub New()
Line 218: MyBase.New
Line 219: Dim dependencies As System.Collections.ArrayList
Line 220: If (ASP.employeedetail_aspx.__initialized = false)
Then
Line 221: dependencies = New System.Collections.ArrayList
Line 222:
dependencies.Add("d:\inetpub\wwwroot\websites\spec ialk\employeedetail.aspx")
Line 223: ASP.employeedetail_aspx.__fileDependencies =
dependencies
Line 224: ASP.employeedetail_aspx.__initialized = true
Line 225: End If
Line 226: Me.Server.ScriptTimeout = 30000000
Line 227: End Sub
Line 228:
Line 229: Protected Overrides Property AutoHandlers As Integer
Line 230: Get
Line 231: Return ASP.employeedetail_aspx.__autoHandlers
Line 232: End Get
Line 233: Set
Line 234: ASP.employeedetail_aspx.__autoHandlers = value
Line 235: End Set
Line 236: End Property
Line 237:
Line 238: Protected ReadOnly Property ApplicationInstance As
System.Web.HttpApplication
Line 239: Get
Line 240: Return
CType(Me.Context.ApplicationInstance,System.Web.Ht tpApplication)
Line 241: End Get
Line 242: End Property
Line 243:
Line 244: Public Overrides ReadOnly Property
TemplateSourceDirectory As String
Line 245: Get
Line 246: Return "/websites/specialk"
Line 247: End Get
Line 248: End Property
Line 249:
Line 250: Private Function __BuildControltxtSearchLastName() As
System.Web.UI.Control
Line 251: Dim __ctrl As System.Web.UI.WebControls.TextBox
Line 252:
Line 253:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",122)
Line 254: __ctrl = New System.Web.UI.WebControls.TextBox
Line 255:
Line 256: #End ExternalSource
Line 257: Me.txtSearchLastName = __ctrl
Line 258:
Line 259:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",122)
Line 260: __ctrl.ID = "txtSearchLastName"
Line 261:
Line 262: #End ExternalSource
Line 263: Return __ctrl
Line 264: End Function
Line 265:
Line 266: Private Function __BuildControlbtnSearch() As
System.Web.UI.Control
Line 267: Dim __ctrl As System.Web.UI.WebControls.ImageButton
Line 268:
Line 269:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 270: __ctrl = New System.Web.UI.WebControls.ImageButton
Line 271:
Line 272: #End ExternalSource
Line 273: Me.btnSearch = __ctrl
Line 274:
Line 275:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 276: __ctrl.ID = "btnSearch"
Line 277:
Line 278: #End ExternalSource
Line 279:
Line 280:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 281: __ctrl.AlternateText = " Search"
Line 282:
Line 283: #End ExternalSource
Line 284:
Line 285:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 286: __ctrl.ImageUrl =
"images/style/Oak/Images/en/ButtonSearch.gif"
Line 287:
Line 288: #End ExternalSource
Line 289:
Line 290:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 291: __ctrl.ToolTip = "Click here to Search"
Line 292:
Line 293: #End ExternalSource
Line 294:
Line 295:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 296: AddHandler __ctrl.Click, AddressOf
Me.btnSearch_Click
Line 297:
Line 298: #End ExternalSource
Line 299: Return __ctrl
Line 300: End Function
Line 301:
Line 302: Private Function __BuildControlSQLStatement() As
System.Web.UI.Control
Line 303: Dim __ctrl As System.Web.UI.WebControls.Label
Line 304:
Line 305:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",128)
Line 306: __ctrl = New System.Web.UI.WebControls.Label
Line 307:
Line 308: #End ExternalSource
Line 309: Me.SQLStatement = __ctrl
Line 310:
Line 311:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",128)
Line 312: __ctrl.ID = "SQLStatement"
Line 313:
Line 314: #End ExternalSource
Line 315:
Line 316:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",128)
Line 317: __ctrl.Visible = false
Line 318:
Line 319: #End ExternalSource
Line 320: Return __ctrl
Line 321: End Function
Line 322:
Line 323: Private Function __BuildControl__control6() As
System.Web.UI.Control
Line 324: Dim __ctrl As System.Web.UI.DataBoundLiteralControl
Line 325: __ctrl = New
System.Web.UI.DataBoundLiteralControl(2, 1)
Line 326: Me.__control6 = __ctrl
Line 327: __ctrl.SetStaticString(0, " <span>")
Line 328: __ctrl.SetStaticString(1, "</span> ")
Line 329: AddHandler __ctrl.DataBinding, AddressOf
Me.__DataBind__control6
Line 330: Return __ctrl
Line 331: End Function
Line 332:
Line 333: Public Sub __DataBind__control6(ByVal sender As Object,
ByVal e As System.EventArgs)
Line 334: Dim Container As
System.Web.UI.WebControls.DataGridItem
Line 335: Dim target As System.Web.UI.DataBoundLiteralControl
Line 336: target =
CType(sender,System.Web.UI.DataBoundLiteralControl )
Line 337: Container =
CType(target.BindingContainer,System.Web.UI.WebCon trols.DataGridItem)
Line 338:
Line 339:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",173)
Line 340: target.SetDataBoundString(0,
System.Convert.ToString(Container.ItemIndex+1))
Line 341:
Line 342: #End ExternalSource
Line 343: End Sub
Line 344:
Line 345: Private Sub __BuildControl__control5(ByVal __ctrl As
System.Web.UI.Control)
Line 346:
Line 347:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 348: Me.__BuildControl__control6
Line 349:
Line 350: #End ExternalSource
Line 351: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 352:
Line 353:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 354: __parser.AddParsedSubObject(Me.__control6)
Line 355:
Line 356: #End ExternalSource
Line 357: End Sub
Line 358:
Line 359: Private Sub __BuildControl__control4()
Line 360: Dim __ctrl As
System.Web.UI.WebControls.TemplateColumn
Line 361:
Line 362:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 363: __ctrl = New
System.Web.UI.WebControls.TemplateColumn
Line 364:
Line 365: #End ExternalSource
Line 366: Me.__control4 = __ctrl
Line 367:
Line 368:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 369: __ctrl.HeaderText = "#"
Line 370:
Line 371: #End ExternalSource
Line 372:
Line 373:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 374: __ctrl.ItemTemplate = New
System.Web.UI.CompiledTemplateBuilder(AddressOf
Me.__BuildControl__control5)
Line 375:
Line 376: #End ExternalSource
Line 377: End Sub
Line 378:
Line 379: Private Sub __BuildControl__control7()
Line 380: Dim __ctrl As
System.Web.UI.WebControls.HyperLinkColumn
Line 381:
Line 382:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 383: __ctrl = New
System.Web.UI.WebControls.HyperLinkColumn
Line 384:
Line 385: #End ExternalSource
Line 386: Me.__control7 = __ctrl
Line 387:
Line 388:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 389: __ctrl.HeaderText = "Last Name"
Line 390:
Line 391: #End ExternalSource
Line 392:
Line 393:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 394: __ctrl.DataNavigateUrlField = "EmployeeID"
Line 395:
Line 396: #End ExternalSource
Line 397:
Line 398:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 399: __ctrl.DataNavigateUrlFormatString =
"employeedetail.aspx?x="
Line 400:
Line 401: #End ExternalSource
Line 402:
Line 403:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 404: __ctrl.DataTextField = "Lastname"
Line 405:
Line 406: #End ExternalSource
Line 407:
Line 408:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 409: __ctrl.Target = "_self"
Line 410:
Line 411: #End ExternalSource
Line 412:
Line 413:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 414: __ctrl.HeaderStyle.HorizontalAlign =
System.Web.UI.WebControls.HorizontalAlign.Center
Line 415:
Line 416: #End ExternalSource
Line 417:
Line 418:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 419: __ctrl.SortExpression = "Lastname"
Line 420:
Line 421: #End ExternalSource
Line 422: End Sub
Line 423:
Line 424: Private Function __BuildControl__control10() As
System.Web.UI.Control
Line 425: Dim __ctrl As System.Web.UI.WebControls.Label
Line 426:
Line 427:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 428: __ctrl = New System.Web.UI.WebControls.Label
Line 429:
Line 430: #End ExternalSource
Line 431: Me.__control10 = __ctrl
Line 432:
Line 433:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 434: __ctrl.ID = "lblfirstName"
Line 435:
Line 436: #End ExternalSource
Line 437:
Line 438:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 439: AddHandler __ctrl.DataBinding, AddressOf
Me.__DataBind__control10
Line 440:
Line 441: #End ExternalSource
Line 442: Return __ctrl
Line 443: End Function
Line 444:
Line 445: Public Sub __DataBind__control10(ByVal sender As
Object, ByVal e As System.EventArgs)
Line 446: Dim Container As
System.Web.UI.WebControls.DataGridItem
Line 447: Dim target As System.Web.UI.WebControls.Label
Line 448:
Line 449:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 450: target =
CType(sender,System.Web.UI.WebControls.Label)
Line 451:
Line 452: #End ExternalSource
Line 453:
Line 454:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 455: Container =
CType(target.BindingContainer,System.Web.UI.WebCon trols.DataGridItem)
Line 456:
Line 457: #End ExternalSource
Line 458:
Line 459:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 460: target.Text =
System.Convert.ToString(DataBinder.Eval(Container. DataItem, "firstName"))
Line 461:
Line 462: #End ExternalSource
Line 463: End Sub
Line 464:
Line 465: Private Sub __BuildControl__control9(ByVal __ctrl As
System.Web.UI.Control)
Line 466: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 467:
Line 468:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 469: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBa sic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"
"))
Line 470:
Line 471: #End ExternalSource
Line 472:
Line 473:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 474: Me.__BuildControl__control10
Line 475:
Line 476: #End ExternalSource
Line 477:
Line 478:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 479: __parser.AddParsedSubObject(Me.__control10)
Line 480:
Line 481: #End ExternalSource
Line 482:
Line 483:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 484: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&" "))
Line 485:
Line 486: #End ExternalSource
Line 487: End Sub
Line 488:
Line 489: Private Sub __BuildControl__control8()
Line 490: Dim __ctrl As
System.Web.UI.WebControls.TemplateColumn
Line 491:
Line 492:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 493: __ctrl = New
System.Web.UI.WebControls.TemplateColumn
Line 494:
Line 495: #End ExternalSource
Line 496: Me.__control8 = __ctrl
Line 497:
Line 498:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 499: __ctrl.HeaderText = "First Name"
Line 500:
Line 501: #End ExternalSource
Line 502:
Line 503:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 504: __ctrl.HeaderStyle.HorizontalAlign =
System.Web.UI.WebControls.HorizontalAlign.Center
Line 505:
Line 506: #End ExternalSource
Line 507:
Line 508:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 509: __ctrl.SortExpression = "Firstname"
Line 510:
Line 511: #End ExternalSource
Line 512:
Line 513:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 514: __ctrl.ItemTemplate = New
System.Web.UI.CompiledTemplateBuilder(AddressOf
Me.__BuildControl__control9)
Line 515:
Line 516: #End ExternalSource
Line 517: End Sub
Line 518:
Line 519: Private Function __BuildControl__control13() As
System.Web.UI.Control
Line 520: Dim __ctrl As System.Web.UI.WebControls.Label
Line 521:
Line 522:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 523: __ctrl = New System.Web.UI.WebControls.Label
Line 524:
Line 525: #End ExternalSource
Line 526: Me.__control13 = __ctrl
Line 527:
Line 528:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 529: __ctrl.ID = "lblPhone"
Line 530:
Line 531: #End ExternalSource
Line 532:
Line 533:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 534: AddHandler __ctrl.DataBinding, AddressOf
Me.__DataBind__control13
Line 535:
Line 536: #End ExternalSource
Line 537: Return __ctrl
Line 538: End Function
Line 539:
Line 540: Public Sub __DataBind__control13(ByVal sender As
Object, ByVal e As System.EventArgs)
Line 541: Dim Container As
System.Web.UI.WebControls.DataGridItem
Line 542: Dim target As System.Web.UI.WebControls.Label
Line 543:
Line 544:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 545: target =
CType(sender,System.Web.UI.WebControls.Label)
Line 546:
Line 547: #End ExternalSource
Line 548:
Line 549:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 550: Container =
CType(target.BindingContainer,System.Web.UI.WebCon trols.DataGridItem)
Line 551:
Line 552: #End ExternalSource
Line 553:
Line 554:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 555: target.Text =
System.Convert.ToString(DataBinder.Eval(Container. DataItem, "Phone"))
Line 556:
Line 557: #End ExternalSource
Line 558: End Sub
Line 559:
Line 560: Private Sub __BuildControl__control12(ByVal __ctrl As
System.Web.UI.Control)
Line 561: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 562:
Line 563:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 564: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBa sic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"
"))
Line 565:
Line 566: #End ExternalSource
Line 567:
Line 568:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 569: Me.__BuildControl__control13
Line 570:
Line 571: #End ExternalSource
Line 572:
Line 573:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 574: __parser.AddParsedSubObject(Me.__control13)
Line 575:
Line 576: #End ExternalSource
Line 577:
Line 578:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 579: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&" "))
Line 580:
Line 581: #End ExternalSource
Line 582: End Sub
Line 583:
Line 584: Private Sub __BuildControl__control11()
Line 585: Dim __ctrl As
System.Web.UI.WebControls.TemplateColumn
Line 586:
Line 587:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 588: __ctrl = New
System.Web.UI.WebControls.TemplateColumn
Line 589:
Line 590: #End ExternalSource
Line 591: Me.__control11 = __ctrl
Line 592:
Line 593:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 594: __ctrl.HeaderText = "Phone#"
Line 595:
Line 596: #End ExternalSource
Line 597:
Line 598:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 599: __ctrl.HeaderStyle.HorizontalAlign =
System.Web.UI.WebControls.HorizontalAlign.Center
Line 600:
Line 601: #End ExternalSource
Line 602:
Line 603:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 604: __ctrl.SortExpression = "Phone"
Line 605:
Line 606: #End ExternalSource
Line 607:
Line 608:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 609: __ctrl.ItemTemplate = New
System.Web.UI.CompiledTemplateBuilder(AddressOf
Me.__BuildControl__control12)
Line 610:
Line 611: #End ExternalSource
Line 612: End Sub
Line 613:
Line 614: Private Sub __BuildControl__control3(ByVal __ctrl As
System.Web.UI.WebControls.DataGridColumnCollection )
Line 615:
Line 616:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 617: Me.__BuildControl__control4
Line 618:
Line 619: #End ExternalSource
Line 620:
Line 621:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 622: __ctrl.Add(Me.__control4)
Line 623:
Line 624: #End ExternalSource
Line 625:
Line 626:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 627: Me.__BuildControl__control7
Line 628:
Line 629: #End ExternalSource
Line 630:
Line 631:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 632: __ctrl.Add(Me.__control7)
Line 633:
Line 634: #End ExternalSource
Line 635:
Line 636:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 637: Me.__BuildControl__control8
Line 638:
Line 639: #End ExternalSource
Line 640:
Line 641:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 642: __ctrl.Add(Me.__control8)
Line 643:
Line 644: #End ExternalSource
Line 645:
Line 646:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 647: Me.__BuildControl__control11
Line 648:
Line 649: #End ExternalSource
Line 650:
Line 651:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 652: __ctrl.Add(Me.__control11)
Line 653:
Line 654: #End ExternalSource
Line 655: End Sub
Line 656:
Line 657: Private Function __BuildControloGrid() As
System.Web.UI.Control
Line 658: Dim __ctrl As System.Web.UI.WebControls.DataGrid
Line 659:
Line 660:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 661: __ctrl = New System.Web.UI.WebControls.DataGrid
Line 662:
Line 663: #End ExternalSource
Line 664: Me.oGrid = __ctrl
Line 665:
Line 666:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 667: __ctrl.ID = "oGrid"
Line 668:
Line 669: #End ExternalSource
Line 670:
Line 671:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 672: __ctrl.AutoGenerateColumns = false
Line 673:
Line 674: #End ExternalSource
Line 675:
Line 676:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 677: __ctrl.BorderColor = System.Drawing.Color.Black
Line 678:
Line 679: #End ExternalSource
Line 680:
Line 681:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 682: __ctrl.CellPadding = 2
Line 683:
Line 684: #End ExternalSource
Line 685:
Line 686:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 687: __ctrl.CellSpacing = 0
Line 688:
Line 689: #End ExternalSource
Line 690:
Line 691:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 692: __ctrl.Font.Size =
System.Web.UI.WebControls.FontUnit.Parse("10pt",
System.Globalization.CultureInfo.InvariantCulture)
Line 693:
Line 694: #End ExternalSource
Line 695:
Line 696:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 697: __ctrl.ForeColor = System.Drawing.Color.Black
Line 698:
Line 699: #End ExternalSource
Line 700:
Line 701:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 702: __ctrl.BackColor = System.Drawing.Color.Beige
Line 703:
Line 704: #End ExternalSource
Line 705:
Line 706:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 707: __ctrl.ShowHeader = true
Line 708:
Line 709: #End ExternalSource
Line 710:
Line 711:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 712: __ctrl.ShowFooter = true
Line 713:
Line 714: #End ExternalSource
Line 715:
Line 716:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 717: __ctrl.AlternatingItemStyle.ForeColor =
System.Drawing.Color.Black
Line 718:
Line 719: #End ExternalSource
Line 720:
Line 721:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 722: __ctrl.AlternatingItemStyle.Font.Name = "Arial"
Line 723:
Line 724: #End ExternalSource
Line 725:
Line 726:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 727: __ctrl.AlternatingItemStyle.Font.Bold = true
Line 728:
Line 729: #End ExternalSource
Line 730:
Line 731:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 732: __ctrl.AlternatingItemStyle.BackColor =
System.Drawing.Color.BurlyWood
Line 733:
Line 734: #End ExternalSource
Line 735:
Line 736:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 737: __ctrl.AlternatingItemStyle.Font.Size =
System.Web.UI.WebControls.FontUnit.Parse("10pt",
System.Globalization.CultureInfo.InvariantCulture)
Line 738:
Line 739: #End ExternalSource
Line 740:
Line 741:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 742: __ctrl.HeaderStyle.Font.Bold = true
Line 743:
Line 744: #End ExternalSource
Line 745:
Line 746:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 747: __ctrl.FooterStyle.BackColor =
CType(System.Drawing.Color.FromArgb(155, 0, 0),System.Drawing.Color)
Line 748:
Line 749: #End ExternalSource
Line 750:
Line 751:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 752: __ctrl.FooterStyle.Font.Bold = true
Line 753:
Line 754: #End ExternalSource
Line 755:
Line 756:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 757: __ctrl.HeaderStyle.BackColor =
CType(System.Drawing.Color.FromArgb(155, 0, 0),System.Drawing.Color)
Line 758:
Line 759: #End ExternalSource
Line 760:
Line 761:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 762: __ctrl.HeaderStyle.ForeColor =
System.Drawing.Color.White
Line 763:
Line 764: #End ExternalSource
Line 765:
Line 766:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 767: __ctrl.HeaderStyle.Font.Name = "Arial"
Line 768:
Line 769: #End ExternalSource
Line 770:
Line 771:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 772: __ctrl.HeaderStyle.Font.Size =
System.Web.UI.WebControls.FontUnit.Parse("11pt",
System.Globalization.CultureInfo.InvariantCulture)
Line 773:
Line 774: #End ExternalSource
Line 775:
Line 776:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 777: __ctrl.Font.Name = "Arial"
Line 778:
Line 779: #End ExternalSource
Line 780:
Line 781:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 782: __ctrl.AllowPaging = true
Line 783:
Line 784: #End ExternalSource
Line 785:
Line 786:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 787: __ctrl.PageSize = 20
Line 788:
Line 789: #End ExternalSource
Line 790:
Line 791:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 792: __ctrl.PagerStyle.Mode =
System.Web.UI.WebControls.PagerMode.NumericPages
Line 793:
Line 794: #End ExternalSource
Line 795:
Line 796:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 797: __ctrl.PagerStyle.HorizontalAlign =
System.Web.UI.WebControls.HorizontalAlign.Right
Line 798:
Line 799: #End ExternalSource
Line 800:
Line 801:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 802: __ctrl.PagerStyle.NextPageText = "Next"
Line 803:
Line 804: #End ExternalSource
Line 805:
Line 806:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 807: __ctrl.PagerStyle.PrevPageText = "Prev"
Line 808:
Line 809: #End ExternalSource
Line 810:
Line 811:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 812: __ctrl.AllowSorting = true
Line 813:
Line 814: #End ExternalSource
Line 815:
Line 816:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 817: Me.__BuildControl__control3(__ctrl.Columns)
Line 818:
Line 819: #End ExternalSource
Line 820:
Line 821:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 822: AddHandler __ctrl.ItemDataBound, AddressOf
Me.dgEmployee_ItemDataBound
Line 823:
Line 824: #End ExternalSource
Line 825:
Line 826:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 827: AddHandler __ctrl.PageIndexChanged, AddressOf
Me.oGrid_Page
Line 828:
Line 829: #End ExternalSource
Line 830:
Line 831:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 832: AddHandler __ctrl.SortCommand, AddressOf
Me.Sort_Grid
Line 833:
Line 834: #End ExternalSource
Line 835: Return __ctrl
Line 836: End Function
Line 837:
Line 838: Private Function __BuildControl__control2() As
System.Web.UI.Control
Line 839: Dim __ctrl As System.Web.UI.HtmlControls.HtmlForm
Line 840:
Line 841:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 842: __ctrl = New System.Web.UI.HtmlControls.HtmlForm
Line 843:
Line 844: #End ExternalSource
Line 845: Me.__control2 = __ctrl
Line 846:
Line 847:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 848: __ctrl.Name = "form1"
Line 849:
Line 850: #End ExternalSource
Line 851:
Line 852:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 853: __ctrl.Method = "post"
Line 854:
Line 855: #End ExternalSource
Line 856: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 857:
Line 858:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 859: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBa sic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"
<table width=""35%"" border=""0"" cellspacing=""0""
cellpadding=""0"">"&Microsoft.VisualBasic.ChrW(13) &Microsoft.VisualBasic.ChrW(10)&"
<tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Vis ualBasic.ChrW(10)&" "&
_
Line 860: " <td width=""45%"">Search By Last Name:
</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&" <td
width=""55%"">&nbsp;</td>"& _
Line 861:
""&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visual Basic.ChrW(10)&"
</tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&"
<tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Vis ualBasic.ChrW(10)&"
<td>"))
Line 862:
Line 863: #End ExternalSource
Line 864:
Line 865:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 866: Me.__BuildControltxtSearchLastName
Line 867:
Line 868: #End ExternalSource
Line 869:
Line 870:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 871: __parser.AddParsedSubObject(Me.txtSearchLastName)
Line 872:
Line 873: #End ExternalSource
Line 874:
Line 875:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 876: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&"
<td>"))
Line 877:
Line 878: #End ExternalSource
Line 879:
Line 880:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 881: Me.__BuildControlbtnSearch
Line 882:
Line 883: #End ExternalSource
Line 884:
Line 885:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 886: __parser.AddParsedSubObject(Me.btnSearch)
Line 887:
Line 888: #End ExternalSource
Line 889:
Line 890:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 891: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&"
</tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&"
</table>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.V isualBasic.ChrW(10)&"
<p>&nbsp;
</p>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visua lBasic.ChrW(10)&"
<p>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&"
"))
Line 892:
Line 893: #End ExternalSource
Line 894:
Line 895:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 896: Me.__BuildControlSQLStatement
Line 897:
Line 898: #End ExternalSource
Line 899:
Line 900:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 901: __parser.AddParsedSubObject(Me.SQLStatement)
Line 902:
Line 903: #End ExternalSource
Line 904:
Line 905:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 906: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"
</p>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visua lBasic.ChrW(10)&" "))
Line 907:
Line 908: #End ExternalSource
Line 909:
Line 910:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 911: Me.__BuildControloGrid
Line 912:
Line 913: #End ExternalSource
Line 914:
Line 915:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 916: __parser.AddParsedSubObject(Me.oGrid)
Line 917:
Line 918: #End ExternalSource
Line 919:
Line 920:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 921: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBa sic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)))
Line 922:
Line 923: #End ExternalSource
Line 924: Return __ctrl
Line 925: End Function
Line 926:
Line 927: Private Sub __BuildControlTree(ByVal __ctrl As
System.Web.UI.Control)
Line 928: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 929:
Line 930:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",1)
Line 931: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&Microsoft.VisualBasic.ChrW(13)&Micro soft.VisualBasic.ChrW(10)&"<html>
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"<head>
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"<title>Fill
A DataGrid From Access Database</title>
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"<met"& _
Line 932: "a http-equiv=""Content-Type"" content=""text/html;
charset=iso-8859-1""><style type="& _
Line 933:
"""text/css"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.V isualBasic.ChrW(10)&"<!--"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"body
{"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visual Basic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"back ground-color:
#e1ddcd;"&Microsoft.VisualBasic.ChrW(13)&Microsoft .VisualBasic.ChrW(10)&"}"&Microsoft.VisualBasic.Ch rW(13)&Microsoft.VisualBasic.ChrW(10)&"-->"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visual Basic.ChrW(10)&"</style></head>
"& _
Line 934:
""&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visual Basic.ChrW(10)&"<body>"&Microsoft.VisualBasic.ChrW (13)&Microsoft.VisualBasic.ChrW(10)))
Line 935:
Line 936: #End ExternalSource
Line 937:
Line 938:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",1)
Line 939: Me.__BuildControl__control2
Line 940:
Line 941: #End ExternalSource
Line 942:
Line 943:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",1)
Line 944: __parser.AddParsedSubObject(Me.__control2)
Line 945:
Line 946: #End ExternalSource
Line 947:
Line 948:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",1)
Line 949: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBa sic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</body>
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"</html>
"))
Line 950:
Line 951: #End ExternalSource
Line 952: End Sub
Line 953:
Line 954: Protected Overrides Sub FrameworkInitialize()
Line 955: Me.__BuildControlTree(Me)
Line 956: Me.FileDependencies =
ASP.employeedetail_aspx.__fileDependencies
Line 957: Me.EnableViewStateMac = true
Line 958: Me.Request.ValidateInput
Line 959: End Sub
Line 960:
Line 961: Public Overrides Function GetTypeHashCode() As Integer
Line 962: Return 1493822296
Line 963: End Function
Line 964: End Class
Line 965: End Namespace
Line 966:


--------------------------------------------------------------------------------
Version Information: Microsoft .NET Framework Version:1.1.4322.2032;
ASP.NET Version:1.1.4322.2032
<%@ Page language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Configuration.ConfigurationSetti ngs" %>
<%@ Import Namespace="SecureQueryStringDll" %>

<script language="VB" runat="server">
'Build the SQL string and made it static
Protected sComm As String = "Select EmployeeID, LastName, FirstName, Phone
FROM tblEmployeeChecklist where ActiveStatus=Yes"
Sub Page_Load(Sender as Object, E as EventArgs)
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
If Not Page.IsPostBack Then
SQLStatement.Text = sComm
BindData()
End if
End sub
Sub BindData()
Dim oConn As OleDbConnection
Dim oComm As OleDbDataAdapter
Dim sConn As String
Dim oDataSet As New DataSet
' Create the queryString object
Dim qs = new SecureQueryString()

--
Thanks,

Mar 28 '06 #2

P: n/a
Here are part of my code: I added -- Import Namespace="SecureQueryStringDll"
<%@ Page language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Configuration.ConfigurationSetti ngs" %>
<%@ Import Namespace="SecureQueryStringDll" %>

<script language="VB" runat="server">
'Build the SQL string and made it static
Protected sComm As String = "Select EmployeeID, LastName, FirstName, Phone
FROM tblEmployeeChecklist where ActiveStatus=Yes"
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'

Sub Page_Load(Sender as Object, E as EventArgs)
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
' Check logged in status
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
If Not IsPostBack Then
If Session("Status") = "" then
Response.Redirect("index.aspx")
End if
End If
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'

If Not Page.IsPostBack Then
SQLStatement.Text = sComm
BindData()
End if
End sub
Sub BindData()
Dim oConn As OleDbConnection
Dim oComm As OleDbDataAdapter
Dim sConn As String
Dim oDataSet As New DataSet
' Create the queryString object
Dim qs = new SecureQueryString()
'dim Pathdb as String
--
Thanks,

"Maarten" <No****@me.com> wrote in message
news:O9**************@TK2MSFTNGP11.phx.gbl...
Type 'SecureQueryString' is not defined. Dim qs = new
SecureQueryString()

Do you have a reference to the DLL?

"momo" <ma***@seeourweb.com> wrote in message
news:uD*************@TK2MSFTNGP11.phx.gbl...
Hello Guys,

I have a bit of a problem, I created a Dll called
SecureQueryStringDll.dll and I had the dll put bin folder of my
application first and it did not work so I then put it in the bin folder
of c:\inetpub\wwwroot and it still does not work. Here is the error I get
from it:

temporary asp.net
files\root\d16a94c5\8b912d73\assembly\dl2\1dc1ef5c \006575a4_827ac301\metabuilders.webcontrols.rowsel ectorcolumn.dll"
/out:"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\ Temporary ASP.NET
Files\root\d16a94c5\8b912d73\lhq6vhxb.dll" /D:DEBUG=1 /debug+
"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temp orary ASP.NET
Files\root\d16a94c5\8b912d73\lhq6vhxb.0.vb" Microsoft (R) Visual Basic
.NET Compiler version 7.10.6001.4 for Microsoft (R) .NET Framework
version 1.1.4322.2032 Copyright (C) Microsoft Corporation 1987-2002. All
rights reserved. C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Tempo rary
ASP.NET Files\root\d16a94c5\8b912d73\lhq6vhxb.0.vb(15) : error BC30466:
Namespace or type 'SecureQueryStringDll' for the Imports
'SecureQueryStringDll' cannot be found. Imports SecureQueryStringDll
~~~~~~~~~~~~~~~~~~~~
d:\inetpub\wwwroot\websites\specialk\employeedetai l.aspx(30) : error
BC30002: Type 'SecureQueryString' is not defined. Dim qs = new
SecureQueryString() ~~~~~~~~~~~~~~~~~

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.2032
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 SecureQueryStringDll
Line 16: Imports System
Line 17: Imports System.Collections
Line 18: Imports System.Collections.Specialized
Line 19: Imports System.Configuration
Line 20: Imports System.Configuration.ConfigurationSettings
Line 21: Imports System.Data
Line 22: Imports System.Data.OleDb
Line 23: Imports System.Text
Line 24: Imports System.Text.RegularExpressions
Line 25: Imports System.Web
Line 26: Imports System.Web.Caching
Line 27: Imports System.Web.Security
Line 28: Imports System.Web.SessionState
Line 29: Imports System.Web.UI
Line 30: Imports System.Web.UI.HtmlControls
Line 31: Imports System.Web.UI.WebControls
Line 32:
Line 33: Namespace ASP
Line 34:
Line 35: <System.Runtime.CompilerServices.CompilerGlobalSco peAttribute()>
_
Line 36: Public Class employeedetail_aspx
Line 37: Inherits System.Web.UI.Page
Line 38: Implements
System.Web.SessionState.IRequiresSessionState
Line 39:
Line 40: Private Shared __autoHandlers As Integer
Line 41:
Line 42:
Line 43:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",122)
Line 44: Protected txtSearchLastName As
System.Web.UI.WebControls.TextBox
Line 45:
Line 46: #End ExternalSource
Line 47:
Line 48:
Line 49:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 50: Protected btnSearch As
System.Web.UI.WebControls.ImageButton
Line 51:
Line 52: #End ExternalSource
Line 53:
Line 54:
Line 55:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",128)
Line 56: Protected SQLStatement As
System.Web.UI.WebControls.Label
Line 57:
Line 58: #End ExternalSource
Line 59:
Line 60: Private __control6 As
System.Web.UI.DataBoundLiteralControl
Line 61:
Line 62:
Line 63:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 64: Private __control4 As
System.Web.UI.WebControls.TemplateColumn
Line 65:
Line 66: #End ExternalSource
Line 67:
Line 68:
Line 69:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 70: Private __control7 As
System.Web.UI.WebControls.HyperLinkColumn
Line 71:
Line 72: #End ExternalSource
Line 73:
Line 74:
Line 75:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 76: Private __control10 As System.Web.UI.WebControls.Label
Line 77:
Line 78: #End ExternalSource
Line 79:
Line 80:
Line 81:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 82: Private __control8 As
System.Web.UI.WebControls.TemplateColumn
Line 83:
Line 84: #End ExternalSource
Line 85:
Line 86:
Line 87:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 88: Private __control13 As System.Web.UI.WebControls.Label
Line 89:
Line 90: #End ExternalSource
Line 91:
Line 92:
Line 93:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 94: Private __control11 As
System.Web.UI.WebControls.TemplateColumn
Line 95:
Line 96: #End ExternalSource
Line 97:
Line 98:
Line 99:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 100: Private __control3 As
System.Web.UI.WebControls.DataGridColumnCollection
Line 101:
Line 102: #End ExternalSource
Line 103:
Line 104:
Line 105:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 106: Protected oGrid As System.Web.UI.WebControls.DataGrid
Line 107:
Line 108: #End ExternalSource
Line 109:
Line 110:
Line 111:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 112: Private __control2 As
System.Web.UI.HtmlControls.HtmlForm
Line 113:
Line 114: #End ExternalSource
Line 115:
Line 116: Private Shared __initialized As Boolean = false
Line 117:
Line 118: Private Shared __fileDependencies As
System.Collections.ArrayList
Line 119:
Line 120:
Line 121:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",10)
Line 122:
Line 123: 'Build the SQL string and made it static
Line 124: Protected sComm As String = "Select EmployeeID, LastName,
FirstName, Phone FROM tblEmployeeChecklist where ActiveStatus=Yes"
Line 125:
Line 126:
Line 127: Sub Page_Load(Sender as Object, E as EventArgs)
Line 128:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 129: If Not Page.IsPostBack Then
Line 130: SQLStatement.Text = sComm
Line 131: BindData()
Line 132: End if
Line 133: End sub
Line 134:
Line 135:
Line 136: Sub BindData()
Line 137: Dim oConn As OleDbConnection
Line 138: Dim oComm As OleDbDataAdapter
Line 139: Dim sConn As String
Line 140: Dim oDataSet As New DataSet
Line 141: ' Create the queryString object
Line 142: Dim qs = new SecureQueryString()
Line 143: 'dim Pathdb as String
Line 144: 'Pathdb =
String.Format(server.mappath("reports/db/specialk.mdb"))
Line 145:
Line 146:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 147: 'Usually you would use error-handling here. It is left out
to
Line 148: 'make the code as simple as possible.
Line 149: Try
Line 150: 'Create the connection and command objects
Line 151: 'oConn = GetMsAccessOledbConnection(Pathdb, "admin", "")
Line 152: oConn = GetMsAccessOledbConnection(appSettings("Pathdb"),
"admin", "")
Line 153:
Line 154: oComm = New OleDbDataAdapter(SQLStatement.Text, oConn)
Line 155: 'Fill the dataset with the results of the query
Line 156: oComm.Fill(oDataSet, "Employees")
Line 157:
Line 158: 'Set the grid source to the dataset and bind the data
Line 159: oGrid.DataSource=oDataSet.Tables("Employees").Defa ultView
Line 160: oGrid.DataBind()
Line 161: Catch ex As Exception
Line 162: 'if there is a database error, it will get caught here
Line 163: oDataSet = Nothing
Line 164: Response.Write ("An Error Occurred: " & ex.toString())
Line 165: Finally
Line 166: 'Ensure that the objects are disposed
Line 167: oComm.Dispose()
Line 168: oConn.Dispose()
Line 169: End Try
Line 170: End sub
Line 171:
Line 172:
Line 173:
Line 174:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 175: Sub Sort_Grid(Source As Object, E As
DataGridSortCommandEventArgs)
Line 176: SQLStatement.Text = sComm & " ORDER BY " & E.SortExpression
Line 177: BindData()
Line 178: End Sub
Line 179:
Line 180:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 181: Sub oGrid_Page(Source As Object, e As
DataGridPageChangedEventArgs)
Line 182: oGrid.CurrentPageIndex = e.NewPageIndex
Line 183: BindData()
Line 184: End Sub
Line 185:
Line 186:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 187: public shared function GetMsAccessOledbConnection(ByVal
dbPath As String, ByVal dbID As String, ByVal dbPassword As String)
Line 188: 'Build the connection string
Line 189: Dim dbConn As OleDbConnection
Line 190: Dim dbConnStr As String =
String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source={0};User
ID={1};Password={2}", dbPath, dbID, dbPassword)
Line 191: return new OleDbConnection(dbConnStr)
Line 192: End functionLine 193:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 194: sub dgEmployee_ItemDataBound(ByVal sender As Object, ByVal e
As System.Web.UI.WebControls.DataGridItemEventArgs)
Line 195: if e.Item.ItemType = ListItemType.Item Or e.Item.ItemType =
ListItemType.AlternatingItem Then
Line 196: e.Item.Attributes.Add("onmouseover",
"this.style.backgroundColor='orange'")
Line 197: End if
Line 198: if e.Item.ItemType = ListItemType.Item Then
Line 199: e.Item.Attributes.Add("onmouseout",
"this.style.backgroundColor='Beige'")
Line 200: else if e.Item.ItemType = ListItemType.header Or
e.Item.ItemType = ListItemType.footer Then
Line 201: e.Item.Attributes.Add("onmouseout",
"this.style.backgroundColor='#9B0000'")
Line 202: else
Line 203: e.Item.Attributes.Add("onmouseout",
"this.style.backgroundColor='Burlywood'")
Line 204: End if
Line 205: End sub
Line 206:
Line 207:
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
Line 208: Sub btnSearch_Click(Sender as Object, E as
ImageClickEventArgs )
Line 209: SQLStatement.Text = sComm & " and Lastname Like '%" &
txtSearchLastName.text & "%'" 'ORDER BY " & E.SortExpression
Line 210: BindData()
Line 211: End Sub
Line 212:
Line 213:
Line 214:
Line 215: #End ExternalSource
Line 216:
Line 217: Public Sub New()
Line 218: MyBase.New
Line 219: Dim dependencies As System.Collections.ArrayList
Line 220: If (ASP.employeedetail_aspx.__initialized = false)
Then
Line 221: dependencies = New
System.Collections.ArrayList
Line 222:
dependencies.Add("d:\inetpub\wwwroot\websites\spec ialk\employeedetail.aspx")
Line 223: ASP.employeedetail_aspx.__fileDependencies =
dependencies
Line 224: ASP.employeedetail_aspx.__initialized = true
Line 225: End If
Line 226: Me.Server.ScriptTimeout = 30000000
Line 227: End Sub
Line 228:
Line 229: Protected Overrides Property AutoHandlers As Integer
Line 230: Get
Line 231: Return ASP.employeedetail_aspx.__autoHandlers
Line 232: End Get
Line 233: Set
Line 234: ASP.employeedetail_aspx.__autoHandlers = value
Line 235: End Set
Line 236: End Property
Line 237:
Line 238: Protected ReadOnly Property ApplicationInstance As
System.Web.HttpApplication
Line 239: Get
Line 240: Return
CType(Me.Context.ApplicationInstance,System.Web.Ht tpApplication)
Line 241: End Get
Line 242: End Property
Line 243:
Line 244: Public Overrides ReadOnly Property
TemplateSourceDirectory As String
Line 245: Get
Line 246: Return "/websites/specialk"
Line 247: End Get
Line 248: End Property
Line 249:
Line 250: Private Function __BuildControltxtSearchLastName() As
System.Web.UI.Control
Line 251: Dim __ctrl As System.Web.UI.WebControls.TextBox
Line 252:
Line 253:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",122)
Line 254: __ctrl = New System.Web.UI.WebControls.TextBox
Line 255:
Line 256: #End ExternalSource
Line 257: Me.txtSearchLastName = __ctrl
Line 258:
Line 259:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",122)
Line 260: __ctrl.ID = "txtSearchLastName"
Line 261:
Line 262: #End ExternalSource
Line 263: Return __ctrl
Line 264: End Function
Line 265:
Line 266: Private Function __BuildControlbtnSearch() As
System.Web.UI.Control
Line 267: Dim __ctrl As
System.Web.UI.WebControls.ImageButton
Line 268:
Line 269:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 270: __ctrl = New System.Web.UI.WebControls.ImageButton
Line 271:
Line 272: #End ExternalSource
Line 273: Me.btnSearch = __ctrl
Line 274:
Line 275:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 276: __ctrl.ID = "btnSearch"
Line 277:
Line 278: #End ExternalSource
Line 279:
Line 280:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 281: __ctrl.AlternateText = " Search"
Line 282:
Line 283: #End ExternalSource
Line 284:
Line 285:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 286: __ctrl.ImageUrl =
"images/style/Oak/Images/en/ButtonSearch.gif"
Line 287:
Line 288: #End ExternalSource
Line 289:
Line 290:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 291: __ctrl.ToolTip = "Click here to Search"
Line 292:
Line 293: #End ExternalSource
Line 294:
Line 295:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",123)
Line 296: AddHandler __ctrl.Click, AddressOf
Me.btnSearch_Click
Line 297:
Line 298: #End ExternalSource
Line 299: Return __ctrl
Line 300: End Function
Line 301:
Line 302: Private Function __BuildControlSQLStatement() As
System.Web.UI.Control
Line 303: Dim __ctrl As System.Web.UI.WebControls.Label
Line 304:
Line 305:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",128)
Line 306: __ctrl = New System.Web.UI.WebControls.Label
Line 307:
Line 308: #End ExternalSource
Line 309: Me.SQLStatement = __ctrl
Line 310:
Line 311:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",128)
Line 312: __ctrl.ID = "SQLStatement"
Line 313:
Line 314: #End ExternalSource
Line 315:
Line 316:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",128)
Line 317: __ctrl.Visible = false
Line 318:
Line 319: #End ExternalSource
Line 320: Return __ctrl
Line 321: End Function
Line 322:
Line 323: Private Function __BuildControl__control6() As
System.Web.UI.Control
Line 324: Dim __ctrl As
System.Web.UI.DataBoundLiteralControl
Line 325: __ctrl = New
System.Web.UI.DataBoundLiteralControl(2, 1)
Line 326: Me.__control6 = __ctrl
Line 327: __ctrl.SetStaticString(0, " <span>")
Line 328: __ctrl.SetStaticString(1, "</span> ")
Line 329: AddHandler __ctrl.DataBinding, AddressOf
Me.__DataBind__control6
Line 330: Return __ctrl
Line 331: End Function
Line 332:
Line 333: Public Sub __DataBind__control6(ByVal sender As
Object, ByVal e As System.EventArgs)
Line 334: Dim Container As
System.Web.UI.WebControls.DataGridItem
Line 335: Dim target As
System.Web.UI.DataBoundLiteralControl
Line 336: target =
CType(sender,System.Web.UI.DataBoundLiteralControl )
Line 337: Container =
CType(target.BindingContainer,System.Web.UI.WebCon trols.DataGridItem)
Line 338:
Line 339:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",173)
Line 340: target.SetDataBoundString(0,
System.Convert.ToString(Container.ItemIndex+1))
Line 341:
Line 342: #End ExternalSource
Line 343: End Sub
Line 344:
Line 345: Private Sub __BuildControl__control5(ByVal __ctrl As
System.Web.UI.Control)
Line 346:
Line 347:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 348: Me.__BuildControl__control6
Line 349:
Line 350: #End ExternalSource
Line 351: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 352:
Line 353:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 354: __parser.AddParsedSubObject(Me.__control6)
Line 355:
Line 356: #End ExternalSource
Line 357: End Sub
Line 358:
Line 359: Private Sub __BuildControl__control4()
Line 360: Dim __ctrl As
System.Web.UI.WebControls.TemplateColumn
Line 361:
Line 362:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 363: __ctrl = New
System.Web.UI.WebControls.TemplateColumn
Line 364:
Line 365: #End ExternalSource
Line 366: Me.__control4 = __ctrl
Line 367:
Line 368:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 369: __ctrl.HeaderText = "#"
Line 370:
Line 371: #End ExternalSource
Line 372:
Line 373:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",172)
Line 374: __ctrl.ItemTemplate = New
System.Web.UI.CompiledTemplateBuilder(AddressOf
Me.__BuildControl__control5)
Line 375:
Line 376: #End ExternalSource
Line 377: End Sub
Line 378:
Line 379: Private Sub __BuildControl__control7()
Line 380: Dim __ctrl As
System.Web.UI.WebControls.HyperLinkColumn
Line 381:
Line 382:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 383: __ctrl = New
System.Web.UI.WebControls.HyperLinkColumn
Line 384:
Line 385: #End ExternalSource
Line 386: Me.__control7 = __ctrl
Line 387:
Line 388:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 389: __ctrl.HeaderText = "Last Name"
Line 390:
Line 391: #End ExternalSource
Line 392:
Line 393:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 394: __ctrl.DataNavigateUrlField = "EmployeeID"
Line 395:
Line 396: #End ExternalSource
Line 397:
Line 398:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 399: __ctrl.DataNavigateUrlFormatString =
"employeedetail.aspx?x="
Line 400:
Line 401: #End ExternalSource
Line 402:
Line 403:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 404: __ctrl.DataTextField = "Lastname"
Line 405:
Line 406: #End ExternalSource
Line 407:
Line 408:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 409: __ctrl.Target = "_self"
Line 410:
Line 411: #End ExternalSource
Line 412:
Line 413:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 414: __ctrl.HeaderStyle.HorizontalAlign =
System.Web.UI.WebControls.HorizontalAlign.Center
Line 415:
Line 416: #End ExternalSource
Line 417:
Line 418:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",176)
Line 419: __ctrl.SortExpression = "Lastname"
Line 420:
Line 421: #End ExternalSource
Line 422: End Sub
Line 423:
Line 424: Private Function __BuildControl__control10() As
System.Web.UI.Control
Line 425: Dim __ctrl As System.Web.UI.WebControls.Label
Line 426:
Line 427:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 428: __ctrl = New System.Web.UI.WebControls.Label
Line 429:
Line 430: #End ExternalSource
Line 431: Me.__control10 = __ctrl
Line 432:
Line 433:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 434: __ctrl.ID = "lblfirstName"
Line 435:
Line 436: #End ExternalSource
Line 437:
Line 438:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 439: AddHandler __ctrl.DataBinding, AddressOf
Me.__DataBind__control10
Line 440:
Line 441: #End ExternalSource
Line 442: Return __ctrl
Line 443: End Function
Line 444:
Line 445: Public Sub __DataBind__control10(ByVal sender As
Object, ByVal e As System.EventArgs)
Line 446: Dim Container As
System.Web.UI.WebControls.DataGridItem
Line 447: Dim target As System.Web.UI.WebControls.Label
Line 448:
Line 449:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 450: target =
CType(sender,System.Web.UI.WebControls.Label)
Line 451:
Line 452: #End ExternalSource
Line 453:
Line 454:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 455: Container =
CType(target.BindingContainer,System.Web.UI.WebCon trols.DataGridItem)
Line 456:
Line 457: #End ExternalSource
Line 458:
Line 459:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",181)
Line 460: target.Text =
System.Convert.ToString(DataBinder.Eval(Container. DataItem, "firstName"))
Line 461:
Line 462: #End ExternalSource
Line 463: End Sub
Line 464:
Line 465: Private Sub __BuildControl__control9(ByVal __ctrl As
System.Web.UI.Control)
Line 466: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 467:
Line 468:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 469: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBa sic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"
"))
Line 470:
Line 471: #End ExternalSource
Line 472:
Line 473:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 474: Me.__BuildControl__control10
Line 475:
Line 476: #End ExternalSource
Line 477:
Line 478:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 479: __parser.AddParsedSubObject(Me.__control10)
Line 480:
Line 481: #End ExternalSource
Line 482:
Line 483:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 484: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"
"))
Line 485:
Line 486: #End ExternalSource
Line 487: End Sub
Line 488:
Line 489: Private Sub __BuildControl__control8()
Line 490: Dim __ctrl As
System.Web.UI.WebControls.TemplateColumn
Line 491:
Line 492:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 493: __ctrl = New
System.Web.UI.WebControls.TemplateColumn
Line 494:
Line 495: #End ExternalSource
Line 496: Me.__control8 = __ctrl
Line 497:
Line 498:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 499: __ctrl.HeaderText = "First Name"
Line 500:
Line 501: #End ExternalSource
Line 502:
Line 503:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 504: __ctrl.HeaderStyle.HorizontalAlign =
System.Web.UI.WebControls.HorizontalAlign.Center
Line 505:
Line 506: #End ExternalSource
Line 507:
Line 508:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 509: __ctrl.SortExpression = "Firstname"
Line 510:
Line 511: #End ExternalSource
Line 512:
Line 513:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",179)
Line 514: __ctrl.ItemTemplate = New
System.Web.UI.CompiledTemplateBuilder(AddressOf
Me.__BuildControl__control9)
Line 515:
Line 516: #End ExternalSource
Line 517: End Sub
Line 518:
Line 519: Private Function __BuildControl__control13() As
System.Web.UI.Control
Line 520: Dim __ctrl As System.Web.UI.WebControls.Label
Line 521:
Line 522:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 523: __ctrl = New System.Web.UI.WebControls.Label
Line 524:
Line 525: #End ExternalSource
Line 526: Me.__control13 = __ctrl
Line 527:
Line 528:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 529: __ctrl.ID = "lblPhone"
Line 530:
Line 531: #End ExternalSource
Line 532:
Line 533:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 534: AddHandler __ctrl.DataBinding, AddressOf
Me.__DataBind__control13
Line 535:
Line 536: #End ExternalSource
Line 537: Return __ctrl
Line 538: End Function
Line 539:
Line 540: Public Sub __DataBind__control13(ByVal sender As
Object, ByVal e As System.EventArgs)
Line 541: Dim Container As
System.Web.UI.WebControls.DataGridItem
Line 542: Dim target As System.Web.UI.WebControls.Label
Line 543:
Line 544:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 545: target =
CType(sender,System.Web.UI.WebControls.Label)
Line 546:
Line 547: #End ExternalSource
Line 548:
Line 549:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 550: Container =
CType(target.BindingContainer,System.Web.UI.WebCon trols.DataGridItem)
Line 551:
Line 552: #End ExternalSource
Line 553:
Line 554:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",187)
Line 555: target.Text =
System.Convert.ToString(DataBinder.Eval(Container. DataItem, "Phone"))
Line 556:
Line 557: #End ExternalSource
Line 558: End Sub
Line 559:
Line 560: Private Sub __BuildControl__control12(ByVal __ctrl As
System.Web.UI.Control)
Line 561: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 562:
Line 563:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 564: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBa sic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"
"))
Line 565:
Line 566: #End ExternalSource
Line 567:
Line 568:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 569: Me.__BuildControl__control13
Line 570:
Line 571: #End ExternalSource
Line 572:
Line 573:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 574: __parser.AddParsedSubObject(Me.__control13)
Line 575:
Line 576: #End ExternalSource
Line 577:
Line 578:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 579: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"
"))
Line 580:
Line 581: #End ExternalSource
Line 582: End Sub
Line 583:
Line 584: Private Sub __BuildControl__control11()
Line 585: Dim __ctrl As
System.Web.UI.WebControls.TemplateColumn
Line 586:
Line 587:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 588: __ctrl = New
System.Web.UI.WebControls.TemplateColumn
Line 589:
Line 590: #End ExternalSource
Line 591: Me.__control11 = __ctrl
Line 592:
Line 593:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 594: __ctrl.HeaderText = "Phone#"
Line 595:
Line 596: #End ExternalSource
Line 597:
Line 598:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 599: __ctrl.HeaderStyle.HorizontalAlign =
System.Web.UI.WebControls.HorizontalAlign.Center
Line 600:
Line 601: #End ExternalSource
Line 602:
Line 603:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 604: __ctrl.SortExpression = "Phone"
Line 605:
Line 606: #End ExternalSource
Line 607:
Line 608:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",185)
Line 609: __ctrl.ItemTemplate = New
System.Web.UI.CompiledTemplateBuilder(AddressOf
Me.__BuildControl__control12)
Line 610:
Line 611: #End ExternalSource
Line 612: End Sub
Line 613:
Line 614: Private Sub __BuildControl__control3(ByVal __ctrl As
System.Web.UI.WebControls.DataGridColumnCollection )
Line 615:
Line 616:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 617: Me.__BuildControl__control4
Line 618:
Line 619: #End ExternalSource
Line 620:
Line 621:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 622: __ctrl.Add(Me.__control4)
Line 623:
Line 624: #End ExternalSource
Line 625:
Line 626:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 627: Me.__BuildControl__control7
Line 628:
Line 629: #End ExternalSource
Line 630:
Line 631:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 632: __ctrl.Add(Me.__control7)
Line 633:
Line 634: #End ExternalSource
Line 635:
Line 636:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 637: Me.__BuildControl__control8
Line 638:
Line 639: #End ExternalSource
Line 640:
Line 641:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 642: __ctrl.Add(Me.__control8)
Line 643:
Line 644: #End ExternalSource
Line 645:
Line 646:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 647: Me.__BuildControl__control11
Line 648:
Line 649: #End ExternalSource
Line 650:
Line 651:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 652: __ctrl.Add(Me.__control11)
Line 653:
Line 654: #End ExternalSource
Line 655: End Sub
Line 656:
Line 657: Private Function __BuildControloGrid() As
System.Web.UI.Control
Line 658: Dim __ctrl As System.Web.UI.WebControls.DataGrid
Line 659:
Line 660:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 661: __ctrl = New System.Web.UI.WebControls.DataGrid
Line 662:
Line 663: #End ExternalSource
Line 664: Me.oGrid = __ctrl
Line 665:
Line 666:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 667: __ctrl.ID = "oGrid"
Line 668:
Line 669: #End ExternalSource
Line 670:
Line 671:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 672: __ctrl.AutoGenerateColumns = false
Line 673:
Line 674: #End ExternalSource
Line 675:
Line 676:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 677: __ctrl.BorderColor = System.Drawing.Color.Black
Line 678:
Line 679: #End ExternalSource
Line 680:
Line 681:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 682: __ctrl.CellPadding = 2
Line 683:
Line 684: #End ExternalSource
Line 685:
Line 686:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 687: __ctrl.CellSpacing = 0
Line 688:
Line 689: #End ExternalSource
Line 690:
Line 691:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 692: __ctrl.Font.Size =
System.Web.UI.WebControls.FontUnit.Parse("10pt",
System.Globalization.CultureInfo.InvariantCulture)
Line 693:
Line 694: #End ExternalSource
Line 695:
Line 696:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 697: __ctrl.ForeColor = System.Drawing.Color.Black
Line 698:
Line 699: #End ExternalSource
Line 700:
Line 701:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 702: __ctrl.BackColor = System.Drawing.Color.Beige
Line 703:
Line 704: #End ExternalSource
Line 705:
Line 706:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 707: __ctrl.ShowHeader = true
Line 708:
Line 709: #End ExternalSource
Line 710:
Line 711:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 712: __ctrl.ShowFooter = true
Line 713:
Line 714: #End ExternalSource
Line 715:
Line 716:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 717: __ctrl.AlternatingItemStyle.ForeColor =
System.Drawing.Color.Black
Line 718:
Line 719: #End ExternalSource
Line 720:
Line 721:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 722: __ctrl.AlternatingItemStyle.Font.Name = "Arial"
Line 723:
Line 724: #End ExternalSource
Line 725:
Line 726:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 727: __ctrl.AlternatingItemStyle.Font.Bold = true
Line 728:
Line 729: #End ExternalSource
Line 730:
Line 731:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 732: __ctrl.AlternatingItemStyle.BackColor =
System.Drawing.Color.BurlyWood
Line 733:
Line 734: #End ExternalSource
Line 735:
Line 736:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 737: __ctrl.AlternatingItemStyle.Font.Size =
System.Web.UI.WebControls.FontUnit.Parse("10pt",
System.Globalization.CultureInfo.InvariantCulture)
Line 738:
Line 739: #End ExternalSource
Line 740:
Line 741:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 742: __ctrl.HeaderStyle.Font.Bold = true
Line 743:
Line 744: #End ExternalSource
Line 745:
Line 746:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 747: __ctrl.FooterStyle.BackColor =
CType(System.Drawing.Color.FromArgb(155, 0, 0),System.Drawing.Color)
Line 748:
Line 749: #End ExternalSource
Line 750:
Line 751:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 752: __ctrl.FooterStyle.Font.Bold = true
Line 753:
Line 754: #End ExternalSource
Line 755:
Line 756:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 757: __ctrl.HeaderStyle.BackColor =
CType(System.Drawing.Color.FromArgb(155, 0, 0),System.Drawing.Color)
Line 758:
Line 759: #End ExternalSource
Line 760:
Line 761:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 762: __ctrl.HeaderStyle.ForeColor =
System.Drawing.Color.White
Line 763:
Line 764: #End ExternalSource
Line 765:
Line 766:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 767: __ctrl.HeaderStyle.Font.Name = "Arial"
Line 768:
Line 769: #End ExternalSource
Line 770:
Line 771:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 772: __ctrl.HeaderStyle.Font.Size =
System.Web.UI.WebControls.FontUnit.Parse("11pt",
System.Globalization.CultureInfo.InvariantCulture)
Line 773:
Line 774: #End ExternalSource
Line 775:
Line 776:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 777: __ctrl.Font.Name = "Arial"
Line 778:
Line 779: #End ExternalSource
Line 780:
Line 781:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 782: __ctrl.AllowPaging = true
Line 783:
Line 784: #End ExternalSource
Line 785:
Line 786:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 787: __ctrl.PageSize = 20
Line 788:
Line 789: #End ExternalSource
Line 790:
Line 791:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 792: __ctrl.PagerStyle.Mode =
System.Web.UI.WebControls.PagerMode.NumericPages
Line 793:
Line 794: #End ExternalSource
Line 795:
Line 796:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 797: __ctrl.PagerStyle.HorizontalAlign =
System.Web.UI.WebControls.HorizontalAlign.Right
Line 798:
Line 799: #End ExternalSource
Line 800:
Line 801:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 802: __ctrl.PagerStyle.NextPageText = "Next"
Line 803:
Line 804: #End ExternalSource
Line 805:
Line 806:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 807: __ctrl.PagerStyle.PrevPageText = "Prev"
Line 808:
Line 809: #End ExternalSource
Line 810:
Line 811:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 812: __ctrl.AllowSorting = true
Line 813:
Line 814: #End ExternalSource
Line 815:
Line 816:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 817: Me.__BuildControl__control3(__ctrl.Columns)
Line 818:
Line 819: #End ExternalSource
Line 820:
Line 821:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 822: AddHandler __ctrl.ItemDataBound, AddressOf
Me.dgEmployee_ItemDataBound
Line 823:
Line 824: #End ExternalSource
Line 825:
Line 826:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 827: AddHandler __ctrl.PageIndexChanged, AddressOf
Me.oGrid_Page
Line 828:
Line 829: #End ExternalSource
Line 830:
Line 831:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",130)
Line 832: AddHandler __ctrl.SortCommand, AddressOf
Me.Sort_Grid
Line 833:
Line 834: #End ExternalSource
Line 835: Return __ctrl
Line 836: End Function
Line 837:
Line 838: Private Function __BuildControl__control2() As
System.Web.UI.Control
Line 839: Dim __ctrl As System.Web.UI.HtmlControls.HtmlForm
Line 840:
Line 841:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 842: __ctrl = New System.Web.UI.HtmlControls.HtmlForm
Line 843:
Line 844: #End ExternalSource
Line 845: Me.__control2 = __ctrl
Line 846:
Line 847:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 848: __ctrl.Name = "form1"
Line 849:
Line 850: #End ExternalSource
Line 851:
Line 852:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 853: __ctrl.Method = "post"
Line 854:
Line 855: #End ExternalSource
Line 856: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 857:
Line 858:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 859: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBa sic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"
<table width=""35%"" border=""0"" cellspacing=""0""
cellpadding=""0"">"&Microsoft.VisualBasic.ChrW(13) &Microsoft.VisualBasic.ChrW(10)&"
<tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Vis ualBasic.ChrW(10)&"
"& _
Line 860: " <td width=""45%"">Search By Last Name:
</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&"
<td width=""55%"">&nbsp;</td>"& _
Line 861:
""&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visual Basic.ChrW(10)&"
</tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&"
<tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Vis ualBasic.ChrW(10)&"
<td>"))
Line 862:
Line 863: #End ExternalSource
Line 864:
Line 865:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 866: Me.__BuildControltxtSearchLastName
Line 867:
Line 868: #End ExternalSource
Line 869:
Line 870:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 871: __parser.AddParsedSubObject(Me.txtSearchLastName)
Line 872:
Line 873: #End ExternalSource
Line 874:
Line 875:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 876: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&"
<td>"))
Line 877:
Line 878: #End ExternalSource
Line 879:
Line 880:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 881: Me.__BuildControlbtnSearch
Line 882:
Line 883: #End ExternalSource
Line 884:
Line 885:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 886: __parser.AddParsedSubObject(Me.btnSearch)
Line 887:
Line 888: #End ExternalSource
Line 889:
Line 890:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 891: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&"
</tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&"
</table>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.V isualBasic.ChrW(10)&"
<p>&nbsp;
</p>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visua lBasic.ChrW(10)&"
<p>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visu alBasic.ChrW(10)&" "))
Line 892:
Line 893: #End ExternalSource
Line 894:
Line 895:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 896: Me.__BuildControlSQLStatement
Line 897:
Line 898: #End ExternalSource
Line 899:
Line 900:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 901: __parser.AddParsedSubObject(Me.SQLStatement)
Line 902:
Line 903: #End ExternalSource
Line 904:
Line 905:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 906: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"
</p>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visua lBasic.ChrW(10)&"
"))
Line 907:
Line 908: #End ExternalSource
Line 909:
Line 910:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 911: Me.__BuildControloGrid
Line 912:
Line 913: #End ExternalSource
Line 914:
Line 915:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 916: __parser.AddParsedSubObject(Me.oGrid)
Line 917:
Line 918: #End ExternalSource
Line 919:
Line 920:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",115)
Line 921: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBa sic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)))
Line 922:
Line 923: #End ExternalSource
Line 924: Return __ctrl
Line 925: End Function
Line 926:
Line 927: Private Sub __BuildControlTree(ByVal __ctrl As
System.Web.UI.Control)
Line 928: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 929:
Line 930:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",1)
Line 931: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&Microsoft.VisualBasic.ChrW(13)&Micro soft.VisualBasic.ChrW(10)&"<html>
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"<head>
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"<title>Fill
A DataGrid From Access Database</title>
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"<met"& _
Line 932: "a http-equiv=""Content-Type"" content=""text/html;
charset=iso-8859-1""><style type="& _
Line 933:
"""text/css"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.V isualBasic.ChrW(10)&"<!--"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"body
{"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visual Basic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"back ground-color:
#e1ddcd;"&Microsoft.VisualBasic.ChrW(13)&Microsoft .VisualBasic.ChrW(10)&"}"&Microsoft.VisualBasic.Ch rW(13)&Microsoft.VisualBasic.ChrW(10)&"-->"&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visual Basic.ChrW(10)&"</style></head>
"& _
Line 934:
""&Microsoft.VisualBasic.ChrW(13)&Microsoft.Visual Basic.ChrW(10)&"<body>"&Microsoft.VisualBasic.ChrW (13)&Microsoft.VisualBasic.ChrW(10)))
Line 935:
Line 936: #End ExternalSource
Line 937:
Line 938:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",1)
Line 939: Me.__BuildControl__control2
Line 940:
Line 941: #End ExternalSource
Line 942:
Line 943:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",1)
Line 944: __parser.AddParsedSubObject(Me.__control2)
Line 945:
Line 946: #End ExternalSource
Line 947:
Line 948:
#ExternalSource("d:\inetpub\wwwroot\websites\speci alk\employeedetail.aspx",1)
Line 949: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBa sic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</body>
"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualB asic.ChrW(10)&"</html>
"))
Line 950:
Line 951: #End ExternalSource
Line 952: End Sub
Line 953:
Line 954: Protected Overrides Sub FrameworkInitialize()
Line 955: Me.__BuildControlTree(Me)
Line 956: Me.FileDependencies =
ASP.employeedetail_aspx.__fileDependencies
Line 957: Me.EnableViewStateMac = true
Line 958: Me.Request.ValidateInput
Line 959: End Sub
Line 960:
Line 961: Public Overrides Function GetTypeHashCode() As Integer
Line 962: Return 1493822296
Line 963: End Function
Line 964: End Class
Line 965: End Namespace
Line 966:


--------------------------------------------------------------------------------
Version Information: Microsoft .NET Framework Version:1.1.4322.2032;
ASP.NET Version:1.1.4322.2032
<%@ Page language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Configuration.ConfigurationSetti ngs" %>
<%@ Import Namespace="SecureQueryStringDll" %>

<script language="VB" runat="server">
'Build the SQL string and made it static
Protected sComm As String = "Select EmployeeID, LastName, FirstName,
Phone FROM tblEmployeeChecklist where ActiveStatus=Yes"
Sub Page_Load(Sender as Object, E as EventArgs)
'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++'
If Not Page.IsPostBack Then
SQLStatement.Text = sComm
BindData()
End if
End sub
Sub BindData()
Dim oConn As OleDbConnection
Dim oComm As OleDbDataAdapter
Dim sConn As String
Dim oDataSet As New DataSet
' Create the queryString object
Dim qs = new SecureQueryString()

--
Thanks,


Mar 28 '06 #3

This discussion thread is closed

Replies have been disabled for this discussion.