473,890 Members | 1,554 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

Help with Dll

Hello Guys,

I have a bit of a problem, I created a Dll called SecureQueryStri ngDll.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\wwwr oot and it still does
not work. Here is the error I get from it:

temporary asp.net
files\root\d16a 94c5\8b912d73\a ssembly\dl2\1dc 1ef5c\006575a4_ 827ac301\metabu ilders.webcontr ols.rowselector column.dll"
/out:"C:\WINDOWS \Microsoft.NET\ Framework\v1.1. 4322\Temporary ASP.NET
Files\root\d16a 94c5\8b912d73\l hq6vhxb.dll" /D:DEBUG=1 /debug+
"C:\WINDOWS\Mic rosoft.NET\Fram ework\v1.1.4322 \Temporary ASP.NET
Files\root\d16a 94c5\8b912d73\l hq6vhxb.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\Micr osoft.NET\Frame work\v1.1.4322\ Temporary ASP.NET
Files\root\d16a 94c5\8b912d73\l hq6vhxb.0.vb(15 ) : error BC30466: Namespace or
type 'SecureQueryStr ingDll' for the Imports 'SecureQueryStr ingDll' cannot be
found. Imports SecureQueryStri ngDll ~~~~~~~~~~~~~~~ ~~~~~
d:\inetpub\wwwr oot\websites\sp ecialk\employee detail.aspx(30) : error
BC30002: Type 'SecureQueryStr ing' is not defined. Dim qs = new
SecureQueryStri ng() ~~~~~~~~~~~~~~~ ~~

Show Complete Compilation Source:

Line 1:
'------------------------------------------------------------------------------
Line 2: ' <autogenerate d>
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.Visua lBasic
Line 15: Imports SecureQueryStri ngDll
Line 16: Imports System
Line 17: Imports System.Collecti ons
Line 18: Imports System.Collecti ons.Specialized
Line 19: Imports System.Configur ation
Line 20: Imports System.Configur ation.Configura tionSettings
Line 21: Imports System.Data
Line 22: Imports System.Data.Ole Db
Line 23: Imports System.Text
Line 24: Imports System.Text.Reg ularExpressions
Line 25: Imports System.Web
Line 26: Imports System.Web.Cach ing
Line 27: Imports System.Web.Secu rity
Line 28: Imports System.Web.Sess ionState
Line 29: Imports System.Web.UI
Line 30: Imports System.Web.UI.H tmlControls
Line 31: Imports System.Web.UI.W ebControls
Line 32:
Line 33: Namespace ASP
Line 34:
Line 35:
<System.Runtime .CompilerServic es.CompilerGlob alScopeAttribut e()> _
Line 36: Public Class employeedetail_ aspx
Line 37: Inherits System.Web.UI.P age
Line 38: Implements System.Web.Sess ionState.IRequi resSessionState
Line 39:
Line 40: Private Shared __autoHandlers As Integer
Line 41:
Line 42:
Line 43:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 122)
Line 44: Protected txtSearchLastNa me As
System.Web.UI.W ebControls.Text Box
Line 45:
Line 46: #End ExternalSource
Line 47:
Line 48:
Line 49:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 50: Protected btnSearch As
System.Web.UI.W ebControls.Imag eButton
Line 51:
Line 52: #End ExternalSource
Line 53:
Line 54:
Line 55:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 128)
Line 56: Protected SQLStatement As System.Web.UI.W ebControls.Labe l
Line 57:
Line 58: #End ExternalSource
Line 59:
Line 60: Private __control6 As
System.Web.UI.D ataBoundLiteral Control
Line 61:
Line 62:
Line 63:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 64: Private __control4 As
System.Web.UI.W ebControls.Temp lateColumn
Line 65:
Line 66: #End ExternalSource
Line 67:
Line 68:
Line 69:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 70: Private __control7 As
System.Web.UI.W ebControls.Hype rLinkColumn
Line 71:
Line 72: #End ExternalSource
Line 73:
Line 74:
Line 75:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 76: Private __control10 As System.Web.UI.W ebControls.Labe l
Line 77:
Line 78: #End ExternalSource
Line 79:
Line 80:
Line 81:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 82: Private __control8 As
System.Web.UI.W ebControls.Temp lateColumn
Line 83:
Line 84: #End ExternalSource
Line 85:
Line 86:
Line 87:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 88: Private __control13 As System.Web.UI.W ebControls.Labe l
Line 89:
Line 90: #End ExternalSource
Line 91:
Line 92:
Line 93:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 94: Private __control11 As
System.Web.UI.W ebControls.Temp lateColumn
Line 95:
Line 96: #End ExternalSource
Line 97:
Line 98:
Line 99:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 100: Private __control3 As
System.Web.UI.W ebControls.Data GridColumnColle ction
Line 101:
Line 102: #End ExternalSource
Line 103:
Line 104:
Line 105:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 106: Protected oGrid As System.Web.UI.W ebControls.Data Grid
Line 107:
Line 108: #End ExternalSource
Line 109:
Line 110:
Line 111:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 112: Private __control2 As System.Web.UI.H tmlControls.Htm lForm
Line 113:
Line 114: #End ExternalSource
Line 115:
Line 116: Private Shared __initialized As Boolean = false
Line 117:
Line 118: Private Shared __fileDependenc ies As
System.Collecti ons.ArrayList
Line 119:
Line 120:
Line 121:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.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 tblEmployeeChec klist where ActiveStatus=Ye s"
Line 125:
Line 126:
Line 127: Sub Page_Load(Sende r as Object, E as EventArgs)
Line 128:
'++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ ++++++++++++++'
Line 129: If Not Page.IsPostBack Then
Line 130: SQLStatement.Te xt = 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 OleDbDataAdapte r
Line 139: Dim sConn As String
Line 140: Dim oDataSet As New DataSet
Line 141: ' Create the queryString object
Line 142: Dim qs = new SecureQueryStri ng()
Line 143: 'dim Pathdb as String
Line 144: 'Pathdb =
String.Format(s erver.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 = GetMsAccessOled bConnection(Pat hdb, "admin", "")
Line 152: oConn = GetMsAccessOled bConnection(app Settings("Pathd b"),
"admin", "")
Line 153:
Line 154: oComm = New OleDbDataAdapte r(SQLStatement. Text, oConn)
Line 155: 'Fill the dataset with the results of the query
Line 156: oComm.Fill(oDat aSet, "Employees" )
Line 157:
Line 158: 'Set the grid source to the dataset and bind the data
Line 159: oGrid.DataSourc e=oDataSet.Tabl es("Employees") .DefaultView
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(Sourc e As Object, E As
DataGridSortCom mandEventArgs)
Line 176: SQLStatement.Te xt = sComm & " ORDER BY " & E.SortExpressio n
Line 177: BindData()
Line 178: End Sub
Line 179:
Line 180:
'++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ ++++++++++++++'
Line 181: Sub oGrid_Page(Sour ce As Object, e As
DataGridPageCha ngedEventArgs)
Line 182: oGrid.CurrentPa geIndex = e.NewPageIndex
Line 183: BindData()
Line 184: End Sub
Line 185:
Line 186:
'++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ ++++++++++++++'
Line 187: public shared function GetMsAccessOled bConnection(ByV al 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=Micros oft.Jet.OLEDB.4 .0;Data 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_Item DataBound(ByVal sender As Object, ByVal e As
System.Web.UI.W ebControls.Data GridItemEventAr gs)
Line 195: if e.Item.ItemType = ListItemType.It em Or e.Item.ItemType =
ListItemType.Al ternatingItem Then
Line 196: e.Item.Attribut es.Add("onmouse over",
"this.style.bac kgroundColor='o range'")
Line 197: End if
Line 198: if e.Item.ItemType = ListItemType.It em Then
Line 199: e.Item.Attribut es.Add("onmouse out",
"this.style.bac kgroundColor='B eige'")
Line 200: else if e.Item.ItemType = ListItemType.he ader Or
e.Item.ItemType = ListItemType.fo oter Then
Line 201: e.Item.Attribut es.Add("onmouse out",
"this.style.bac kgroundColor='# 9B0000'")
Line 202: else
Line 203: e.Item.Attribut es.Add("onmouse out",
"this.style.bac kgroundColor='B urlywood'")
Line 204: End if
Line 205: End sub
Line 206:
Line 207:
'++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ ++++++++++++++'
Line 208: Sub btnSearch_Click (Sender as Object, E as ImageClickEvent Args )
Line 209: SQLStatement.Te xt = sComm & " and Lastname Like '%" &
txtSearchLastNa me.text & "%'" 'ORDER BY " & E.SortExpressio n
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.Collecti ons.ArrayList
Line 220: If (ASP.employeede tail_aspx.__ini tialized = false)
Then
Line 221: dependencies = New System.Collecti ons.ArrayList
Line 222:
dependencies.Ad d("d:\inetpub\w wwroot\websites \specialk\emplo yeedetail.aspx" )
Line 223: ASP.employeedet ail_aspx.__file Dependencies =
dependencies
Line 224: ASP.employeedet ail_aspx.__init ialized = true
Line 225: End If
Line 226: Me.Server.Scrip tTimeout = 30000000
Line 227: End Sub
Line 228:
Line 229: Protected Overrides Property AutoHandlers As Integer
Line 230: Get
Line 231: Return ASP.employeedet ail_aspx.__auto Handlers
Line 232: End Get
Line 233: Set
Line 234: ASP.employeedet ail_aspx.__auto Handlers = value
Line 235: End Set
Line 236: End Property
Line 237:
Line 238: Protected ReadOnly Property ApplicationInst ance As
System.Web.Http Application
Line 239: Get
Line 240: Return
CType(Me.Contex t.ApplicationIn stance,System.W eb.HttpApplicat ion)
Line 241: End Get
Line 242: End Property
Line 243:
Line 244: Public Overrides ReadOnly Property
TemplateSourceD irectory As String
Line 245: Get
Line 246: Return "/websites/specialk"
Line 247: End Get
Line 248: End Property
Line 249:
Line 250: Private Function __BuildControlt xtSearchLastNam e() As
System.Web.UI.C ontrol
Line 251: Dim __ctrl As System.Web.UI.W ebControls.Text Box
Line 252:
Line 253:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 122)
Line 254: __ctrl = New System.Web.UI.W ebControls.Text Box
Line 255:
Line 256: #End ExternalSource
Line 257: Me.txtSearchLas tName = __ctrl
Line 258:
Line 259:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 122)
Line 260: __ctrl.ID = "txtSearchLastN ame"
Line 261:
Line 262: #End ExternalSource
Line 263: Return __ctrl
Line 264: End Function
Line 265:
Line 266: Private Function __BuildControlb tnSearch() As
System.Web.UI.C ontrol
Line 267: Dim __ctrl As System.Web.UI.W ebControls.Imag eButton
Line 268:
Line 269:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 270: __ctrl = New System.Web.UI.W ebControls.Imag eButton
Line 271:
Line 272: #End ExternalSource
Line 273: Me.btnSearch = __ctrl
Line 274:
Line 275:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 276: __ctrl.ID = "btnSearch"
Line 277:
Line 278: #End ExternalSource
Line 279:
Line 280:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 281: __ctrl.Alternat eText = " Search"
Line 282:
Line 283: #End ExternalSource
Line 284:
Line 285:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 286: __ctrl.ImageUrl =
"images/style/Oak/Images/en/ButtonSearch.gi f"
Line 287:
Line 288: #End ExternalSource
Line 289:
Line 290:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 291: __ctrl.ToolTip = "Click here to Search"
Line 292:
Line 293: #End ExternalSource
Line 294:
Line 295:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 296: AddHandler __ctrl.Click, AddressOf Me.btnSearch_Cl ick
Line 297:
Line 298: #End ExternalSource
Line 299: Return __ctrl
Line 300: End Function
Line 301:
Line 302: Private Function __BuildControlS QLStatement() As
System.Web.UI.C ontrol
Line 303: Dim __ctrl As System.Web.UI.W ebControls.Labe l
Line 304:
Line 305:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 128)
Line 306: __ctrl = New System.Web.UI.W ebControls.Labe l
Line 307:
Line 308: #End ExternalSource
Line 309: Me.SQLStatement = __ctrl
Line 310:
Line 311:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 128)
Line 312: __ctrl.ID = "SQLStateme nt"
Line 313:
Line 314: #End ExternalSource
Line 315:
Line 316:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.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.C ontrol
Line 324: Dim __ctrl As System.Web.UI.D ataBoundLiteral Control
Line 325: __ctrl = New System.Web.UI.D ataBoundLiteral Control(2,
1)
Line 326: Me.__control6 = __ctrl
Line 327: __ctrl.SetStati cString(0, " <span>")
Line 328: __ctrl.SetStati cString(1, "</span> ")
Line 329: AddHandler __ctrl.DataBind ing, AddressOf
Me.__DataBind__ control6
Line 330: Return __ctrl
Line 331: End Function
Line 332:
Line 333: Public Sub __DataBind__con trol6(ByVal sender As Object,
ByVal e As System.EventArg s)
Line 334: Dim Container As
System.Web.UI.W ebControls.Data GridItem
Line 335: Dim target As System.Web.UI.D ataBoundLiteral Control
Line 336: target =
CType(sender,Sy stem.Web.UI.Dat aBoundLiteralCo ntrol)
Line 337: Container =
CType(target.Bi ndingContainer, System.Web.UI.W ebControls.Data GridItem)
Line 338:
Line 339:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 173)
Line 340: target.SetDataB oundString(0,
System.Convert. ToString(Contai ner.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.C ontrol)
Line 346:
Line 347:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 348: Me.__BuildContr ol__control6
Line 349:
Line 350: #End ExternalSource
Line 351: Dim __parser As System.Web.UI.I ParserAccessor =
CType(__ctrl,Sy stem.Web.UI.IPa rserAccessor)
Line 352:
Line 353:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 354: __parser.AddPar sedSubObject(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.W ebControls.Temp lateColumn
Line 361:
Line 362:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 363: __ctrl = New System.Web.UI.W ebControls.Temp lateColumn
Line 364:
Line 365: #End ExternalSource
Line 366: Me.__control4 = __ctrl
Line 367:
Line 368:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 369: __ctrl.HeaderTe xt = "#"
Line 370:
Line 371: #End ExternalSource
Line 372:
Line 373:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 374: __ctrl.ItemTemp late = New
System.Web.UI.C ompiledTemplate Builder(Address Of Me.__BuildContr ol__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.W ebControls.Hype rLinkColumn
Line 381:
Line 382:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 383: __ctrl = New
System.Web.UI.W ebControls.Hype rLinkColumn
Line 384:
Line 385: #End ExternalSource
Line 386: Me.__control7 = __ctrl
Line 387:
Line 388:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 389: __ctrl.HeaderTe xt = "Last Name"
Line 390:
Line 391: #End ExternalSource
Line 392:
Line 393:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 394: __ctrl.DataNavi gateUrlField = "EmployeeID "
Line 395:
Line 396: #End ExternalSource
Line 397:
Line 398:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 399: __ctrl.DataNavi gateUrlFormatSt ring =
"employeedetail .aspx?x="
Line 400:
Line 401: #End ExternalSource
Line 402:
Line 403:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 404: __ctrl.DataText Field = "Lastname"
Line 405:
Line 406: #End ExternalSource
Line 407:
Line 408:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 409: __ctrl.Target = "_self"
Line 410:
Line 411: #End ExternalSource
Line 412:
Line 413:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 414: __ctrl.HeaderSt yle.HorizontalA lign =
System.Web.UI.W ebControls.Hori zontalAlign.Cen ter
Line 415:
Line 416: #End ExternalSource
Line 417:
Line 418:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 419: __ctrl.SortExpr ession = "Lastname"
Line 420:
Line 421: #End ExternalSource
Line 422: End Sub
Line 423:
Line 424: Private Function __BuildControl_ _control10() As
System.Web.UI.C ontrol
Line 425: Dim __ctrl As System.Web.UI.W ebControls.Labe l
Line 426:
Line 427:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 428: __ctrl = New System.Web.UI.W ebControls.Labe l
Line 429:
Line 430: #End ExternalSource
Line 431: Me.__control10 = __ctrl
Line 432:
Line 433:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 434: __ctrl.ID = "lblfirstNa me"
Line 435:
Line 436: #End ExternalSource
Line 437:
Line 438:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 439: AddHandler __ctrl.DataBind ing, 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__con trol10(ByVal sender As Object,
ByVal e As System.EventArg s)
Line 446: Dim Container As
System.Web.UI.W ebControls.Data GridItem
Line 447: Dim target As System.Web.UI.W ebControls.Labe l
Line 448:
Line 449:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 450: target =
CType(sender,Sy stem.Web.UI.Web Controls.Label)
Line 451:
Line 452: #End ExternalSource
Line 453:
Line 454:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 455: Container =
CType(target.Bi ndingContainer, System.Web.UI.W ebControls.Data GridItem)
Line 456:
Line 457: #End ExternalSource
Line 458:
Line 459:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 460: target.Text =
System.Convert. ToString(DataBi nder.Eval(Conta iner.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.C ontrol)
Line 466: Dim __parser As System.Web.UI.I ParserAccessor =
CType(__ctrl,Sy stem.Web.UI.IPa rserAccessor)
Line 467:
Line 468:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 469: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" "&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"
"))
Line 470:
Line 471: #End ExternalSource
Line 472:
Line 473:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 474: Me.__BuildContr ol__control10
Line 475:
Line 476: #End ExternalSource
Line 477:
Line 478:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 479: __parser.AddPar sedSubObject(Me .__control10)
Line 480:
Line 481: #End ExternalSource
Line 482:
Line 483:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 484: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl("
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.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.W ebControls.Temp lateColumn
Line 491:
Line 492:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 493: __ctrl = New System.Web.UI.W ebControls.Temp lateColumn
Line 494:
Line 495: #End ExternalSource
Line 496: Me.__control8 = __ctrl
Line 497:
Line 498:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 499: __ctrl.HeaderTe xt = "First Name"
Line 500:
Line 501: #End ExternalSource
Line 502:
Line 503:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 504: __ctrl.HeaderSt yle.HorizontalA lign =
System.Web.UI.W ebControls.Hori zontalAlign.Cen ter
Line 505:
Line 506: #End ExternalSource
Line 507:
Line 508:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 509: __ctrl.SortExpr ession = "Firstname"
Line 510:
Line 511: #End ExternalSource
Line 512:
Line 513:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 514: __ctrl.ItemTemp late = New
System.Web.UI.C ompiledTemplate Builder(Address Of Me.__BuildContr ol__control9)
Line 515:
Line 516: #End ExternalSource
Line 517: End Sub
Line 518:
Line 519: Private Function __BuildControl_ _control13() As
System.Web.UI.C ontrol
Line 520: Dim __ctrl As System.Web.UI.W ebControls.Labe l
Line 521:
Line 522:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 523: __ctrl = New System.Web.UI.W ebControls.Labe l
Line 524:
Line 525: #End ExternalSource
Line 526: Me.__control13 = __ctrl
Line 527:
Line 528:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 529: __ctrl.ID = "lblPhone"
Line 530:
Line 531: #End ExternalSource
Line 532:
Line 533:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 534: AddHandler __ctrl.DataBind ing, 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__con trol13(ByVal sender As Object,
ByVal e As System.EventArg s)
Line 541: Dim Container As
System.Web.UI.W ebControls.Data GridItem
Line 542: Dim target As System.Web.UI.W ebControls.Labe l
Line 543:
Line 544:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 545: target =
CType(sender,Sy stem.Web.UI.Web Controls.Label)
Line 546:
Line 547: #End ExternalSource
Line 548:
Line 549:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 550: Container =
CType(target.Bi ndingContainer, System.Web.UI.W ebControls.Data GridItem)
Line 551:
Line 552: #End ExternalSource
Line 553:
Line 554:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 555: target.Text =
System.Convert. ToString(DataBi nder.Eval(Conta iner.DataItem, "Phone"))
Line 556:
Line 557: #End ExternalSource
Line 558: End Sub
Line 559:
Line 560: Private Sub __BuildControl_ _control12(ByVa l __ctrl As
System.Web.UI.C ontrol)
Line 561: Dim __parser As System.Web.UI.I ParserAccessor =
CType(__ctrl,Sy stem.Web.UI.IPa rserAccessor)
Line 562:
Line 563:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 564: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" "&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"
"))
Line 565:
Line 566: #End ExternalSource
Line 567:
Line 568:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 569: Me.__BuildContr ol__control13
Line 570:
Line 571: #End ExternalSource
Line 572:
Line 573:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 574: __parser.AddPar sedSubObject(Me .__control13)
Line 575:
Line 576: #End ExternalSource
Line 577:
Line 578:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 579: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl("
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.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.W ebControls.Temp lateColumn
Line 586:
Line 587:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 588: __ctrl = New System.Web.UI.W ebControls.Temp lateColumn
Line 589:
Line 590: #End ExternalSource
Line 591: Me.__control11 = __ctrl
Line 592:
Line 593:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 594: __ctrl.HeaderTe xt = "Phone#"
Line 595:
Line 596: #End ExternalSource
Line 597:
Line 598:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 599: __ctrl.HeaderSt yle.HorizontalA lign =
System.Web.UI.W ebControls.Hori zontalAlign.Cen ter
Line 600:
Line 601: #End ExternalSource
Line 602:
Line 603:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 604: __ctrl.SortExpr ession = "Phone"
Line 605:
Line 606: #End ExternalSource
Line 607:
Line 608:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 609: __ctrl.ItemTemp late = New
System.Web.UI.C ompiledTemplate Builder(Address Of
Me.__BuildContr ol__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.W ebControls.Data GridColumnColle ction)
Line 615:
Line 616:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 617: Me.__BuildContr ol__control4
Line 618:
Line 619: #End ExternalSource
Line 620:
Line 621:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 622: __ctrl.Add(Me._ _control4)
Line 623:
Line 624: #End ExternalSource
Line 625:
Line 626:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 627: Me.__BuildContr ol__control7
Line 628:
Line 629: #End ExternalSource
Line 630:
Line 631:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 632: __ctrl.Add(Me._ _control7)
Line 633:
Line 634: #End ExternalSource
Line 635:
Line 636:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 637: Me.__BuildContr ol__control8
Line 638:
Line 639: #End ExternalSource
Line 640:
Line 641:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 642: __ctrl.Add(Me._ _control8)
Line 643:
Line 644: #End ExternalSource
Line 645:
Line 646:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 647: Me.__BuildContr ol__control11
Line 648:
Line 649: #End ExternalSource
Line 650:
Line 651:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 652: __ctrl.Add(Me._ _control11)
Line 653:
Line 654: #End ExternalSource
Line 655: End Sub
Line 656:
Line 657: Private Function __BuildControlo Grid() As
System.Web.UI.C ontrol
Line 658: Dim __ctrl As System.Web.UI.W ebControls.Data Grid
Line 659:
Line 660:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 661: __ctrl = New System.Web.UI.W ebControls.Data Grid
Line 662:
Line 663: #End ExternalSource
Line 664: Me.oGrid = __ctrl
Line 665:
Line 666:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 667: __ctrl.ID = "oGrid"
Line 668:
Line 669: #End ExternalSource
Line 670:
Line 671:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 672: __ctrl.AutoGene rateColumns = false
Line 673:
Line 674: #End ExternalSource
Line 675:
Line 676:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 677: __ctrl.BorderCo lor = System.Drawing. Color.Black
Line 678:
Line 679: #End ExternalSource
Line 680:
Line 681:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 682: __ctrl.CellPadd ing = 2
Line 683:
Line 684: #End ExternalSource
Line 685:
Line 686:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 687: __ctrl.CellSpac ing = 0
Line 688:
Line 689: #End ExternalSource
Line 690:
Line 691:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 692: __ctrl.Font.Siz e =
System.Web.UI.W ebControls.Font Unit.Parse("10p t",
System.Globaliz ation.CultureIn fo.InvariantCul ture)
Line 693:
Line 694: #End ExternalSource
Line 695:
Line 696:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 697: __ctrl.ForeColo r = System.Drawing. Color.Black
Line 698:
Line 699: #End ExternalSource
Line 700:
Line 701:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 702: __ctrl.BackColo r = System.Drawing. Color.Beige
Line 703:
Line 704: #End ExternalSource
Line 705:
Line 706:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 707: __ctrl.ShowHead er = true
Line 708:
Line 709: #End ExternalSource
Line 710:
Line 711:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 712: __ctrl.ShowFoot er = true
Line 713:
Line 714: #End ExternalSource
Line 715:
Line 716:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 717: __ctrl.Alternat ingItemStyle.Fo reColor =
System.Drawing. Color.Black
Line 718:
Line 719: #End ExternalSource
Line 720:
Line 721:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 722: __ctrl.Alternat ingItemStyle.Fo nt.Name = "Arial"
Line 723:
Line 724: #End ExternalSource
Line 725:
Line 726:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 727: __ctrl.Alternat ingItemStyle.Fo nt.Bold = true
Line 728:
Line 729: #End ExternalSource
Line 730:
Line 731:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 732: __ctrl.Alternat ingItemStyle.Ba ckColor =
System.Drawing. Color.BurlyWood
Line 733:
Line 734: #End ExternalSource
Line 735:
Line 736:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 737: __ctrl.Alternat ingItemStyle.Fo nt.Size =
System.Web.UI.W ebControls.Font Unit.Parse("10p t",
System.Globaliz ation.CultureIn fo.InvariantCul ture)
Line 738:
Line 739: #End ExternalSource
Line 740:
Line 741:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 742: __ctrl.HeaderSt yle.Font.Bold = true
Line 743:
Line 744: #End ExternalSource
Line 745:
Line 746:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 747: __ctrl.FooterSt yle.BackColor =
CType(System.Dr awing.Color.Fro mArgb(155, 0, 0),System.Drawi ng.Color)
Line 748:
Line 749: #End ExternalSource
Line 750:
Line 751:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 752: __ctrl.FooterSt yle.Font.Bold = true
Line 753:
Line 754: #End ExternalSource
Line 755:
Line 756:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 757: __ctrl.HeaderSt yle.BackColor =
CType(System.Dr awing.Color.Fro mArgb(155, 0, 0),System.Drawi ng.Color)
Line 758:
Line 759: #End ExternalSource
Line 760:
Line 761:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 762: __ctrl.HeaderSt yle.ForeColor =
System.Drawing. Color.White
Line 763:
Line 764: #End ExternalSource
Line 765:
Line 766:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 767: __ctrl.HeaderSt yle.Font.Name = "Arial"
Line 768:
Line 769: #End ExternalSource
Line 770:
Line 771:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 772: __ctrl.HeaderSt yle.Font.Size =
System.Web.UI.W ebControls.Font Unit.Parse("11p t",
System.Globaliz ation.CultureIn fo.InvariantCul ture)
Line 773:
Line 774: #End ExternalSource
Line 775:
Line 776:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 777: __ctrl.Font.Nam e = "Arial"
Line 778:
Line 779: #End ExternalSource
Line 780:
Line 781:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 782: __ctrl.AllowPag ing = true
Line 783:
Line 784: #End ExternalSource
Line 785:
Line 786:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 787: __ctrl.PageSize = 20
Line 788:
Line 789: #End ExternalSource
Line 790:
Line 791:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 792: __ctrl.PagerSty le.Mode =
System.Web.UI.W ebControls.Page rMode.NumericPa ges
Line 793:
Line 794: #End ExternalSource
Line 795:
Line 796:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 797: __ctrl.PagerSty le.HorizontalAl ign =
System.Web.UI.W ebControls.Hori zontalAlign.Rig ht
Line 798:
Line 799: #End ExternalSource
Line 800:
Line 801:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 802: __ctrl.PagerSty le.NextPageText = "Next"
Line 803:
Line 804: #End ExternalSource
Line 805:
Line 806:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 807: __ctrl.PagerSty le.PrevPageText = "Prev"
Line 808:
Line 809: #End ExternalSource
Line 810:
Line 811:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 812: __ctrl.AllowSor ting = true
Line 813:
Line 814: #End ExternalSource
Line 815:
Line 816:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 817: Me.__BuildContr ol__control3(__ ctrl.Columns)
Line 818:
Line 819: #End ExternalSource
Line 820:
Line 821:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 822: AddHandler __ctrl.ItemData Bound, AddressOf
Me.dgEmployee_I temDataBound
Line 823:
Line 824: #End ExternalSource
Line 825:
Line 826:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 827: AddHandler __ctrl.PageInde xChanged, AddressOf
Me.oGrid_Page
Line 828:
Line 829: #End ExternalSource
Line 830:
Line 831:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 832: AddHandler __ctrl.SortComm and, 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.C ontrol
Line 839: Dim __ctrl As System.Web.UI.H tmlControls.Htm lForm
Line 840:
Line 841:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 842: __ctrl = New System.Web.UI.H tmlControls.Htm lForm
Line 843:
Line 844: #End ExternalSource
Line 845: Me.__control2 = __ctrl
Line 846:
Line 847:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 848: __ctrl.Name = "form1"
Line 849:
Line 850: #End ExternalSource
Line 851:
Line 852:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 853: __ctrl.Method = "post"
Line 854:
Line 855: #End ExternalSource
Line 856: Dim __parser As System.Web.UI.I ParserAccessor =
CType(__ctrl,Sy stem.Web.UI.IPa rserAccessor)
Line 857:
Line 858:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 859: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" "&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"
<table width=""35%"" border=""0"" cellspacing=""0 ""
cellpadding=""0 "">"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
<tr>"&Microsoft .VisualBasic.Ch rW(13)&Microsof t.VisualBasic.C hrW(10)&" "& _
Line 860: " <td width=""45%"">S earch By Last Name:
</td>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
<td width=""55%"">& nbsp;</td>"& _
Line 861:
""&Microsoft.Vi sualBasic.ChrW( 13)&Microsoft.V isualBasic.ChrW (10)&"
</tr>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
<tr>"&Microsoft .VisualBasic.Ch rW(13)&Microsof t.VisualBasic.C hrW(10)&"
<td>"))
Line 862:
Line 863: #End ExternalSource
Line 864:
Line 865:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 866: Me.__BuildContr oltxtSearchLast Name
Line 867:
Line 868: #End ExternalSource
Line 869:
Line 870:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 871: __parser.AddPar sedSubObject(Me .txtSearchLastN ame)
Line 872:
Line 873: #End ExternalSource
Line 874:
Line 875:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 876: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" </td>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
<td>"))
Line 877:
Line 878: #End ExternalSource
Line 879:
Line 880:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 881: Me.__BuildContr olbtnSearch
Line 882:
Line 883: #End ExternalSource
Line 884:
Line 885:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 886: __parser.AddPar sedSubObject(Me .btnSearch)
Line 887:
Line 888: #End ExternalSource
Line 889:
Line 890:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 891: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" </td>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
</tr>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
</table>"&Microso ft.VisualBasic. ChrW(13)&Micros oft.VisualBasic .ChrW(10)&"
<p>&nbsp;
</p>"&Microsoft.V isualBasic.ChrW (13)&Microsoft. VisualBasic.Chr W(10)&"
<p>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&" "))
Line 892:
Line 893: #End ExternalSource
Line 894:
Line 895:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 896: Me.__BuildContr olSQLStatement
Line 897:
Line 898: #End ExternalSource
Line 899:
Line 900:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 901: __parser.AddPar sedSubObject(Me .SQLStatement)
Line 902:
Line 903: #End ExternalSource
Line 904:
Line 905:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 906: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl("
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"
</p>"&Microsoft.V isualBasic.ChrW (13)&Microsoft. VisualBasic.Chr W(10)&" "))
Line 907:
Line 908: #End ExternalSource
Line 909:
Line 910:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 911: Me.__BuildContr oloGrid
Line 912:
Line 913: #End ExternalSource
Line 914:
Line 915:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 916: __parser.AddPar sedSubObject(Me .oGrid)
Line 917:
Line 918: #End ExternalSource
Line 919:
Line 920:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 921: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" "&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)))
Line 922:
Line 923: #End ExternalSource
Line 924: Return __ctrl
Line 925: End Function
Line 926:
Line 927: Private Sub __BuildControlT ree(ByVal __ctrl As
System.Web.UI.C ontrol)
Line 928: Dim __parser As System.Web.UI.I ParserAccessor =
CType(__ctrl,Sy stem.Web.UI.IPa rserAccessor)
Line 929:
Line 930:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 1)
Line 931: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl("
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&Microsoft.V isualBasic.ChrW (13)&Microsoft. VisualBasic.Chr W(10)&"<html>
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"<head>
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"<title>Fil l
A DataGrid From Access Database</title>
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"<met"& _
Line 932: "a http-equiv=""Content-Type"" content=""text/html;
charset=iso-8859-1""><style type="& _
Line 933:
"""text/css"">"&Microso ft.VisualBasic. ChrW(13)&Micros oft.VisualBasic .ChrW(10)&"<!--"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"body
{"&Microsoft.Vi sualBasic.ChrW( 13)&Microsoft.V isualBasic.ChrW (10)&Microsoft. VisualBasic.Chr W(9)&"backgroun d-color:
#e1ddcd;"&Micro soft.VisualBasi c.ChrW(13)&Micr osoft.VisualBas ic.ChrW(10)&"}" &Microsoft.Visu alBasic.ChrW(13 )&Microsoft.Vis ualBasic.ChrW(1 0)&"-->"&Microsoft.Vi sualBasic.ChrW( 13)&Microsoft.V isualBasic.ChrW (10)&"</style></head>
"& _
Line 934:
""&Microsoft.Vi sualBasic.ChrW( 13)&Microsoft.V isualBasic.ChrW (10)&"<body>"&M icrosoft.Visual Basic.ChrW(13)& Microsoft.Visua lBasic.ChrW(10) ))
Line 935:
Line 936: #End ExternalSource
Line 937:
Line 938:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 1)
Line 939: Me.__BuildContr ol__control2
Line 940:
Line 941: #End ExternalSource
Line 942:
Line 943:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 1)
Line 944: __parser.AddPar sedSubObject(Me .__control2)
Line 945:
Line 946: #End ExternalSource
Line 947:
Line 948:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 1)
Line 949: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" "&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"</body>
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"</html> "))
Line 950:
Line 951: #End ExternalSource
Line 952: End Sub
Line 953:
Line 954: Protected Overrides Sub FrameworkInitia lize()
Line 955: Me.__BuildContr olTree(Me)
Line 956: Me.FileDependen cies =
ASP.employeedet ail_aspx.__file Dependencies
Line 957: Me.EnableViewSt ateMac = true
Line 958: Me.Request.Vali dateInput
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.432 2.2032; ASP.NET
Version:1.1.432 2.2032
<%@ Page language="VB" Debug="true" %>
<%@ Import Namespace="Syst em.Data" %>
<%@ Import Namespace="Syst em.Data.OleDb" %>
<%@ Import Namespace="Syst em.Configuratio n.Configuration Settings" %>
<%@ Import Namespace="Secu reQueryStringDl l" %>

<script language="VB" runat="server">
'Build the SQL string and made it static
Protected sComm As String = "Select EmployeeID, LastName, FirstName, Phone
FROM tblEmployeeChec klist where ActiveStatus=Ye s"
Sub Page_Load(Sende r as Object, E as EventArgs)
'++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ ++++++++++++++'
If Not Page.IsPostBack Then
SQLStatement.Te xt = sComm
BindData()
End if
End sub
Sub BindData()
Dim oConn As OleDbConnection
Dim oComm As OleDbDataAdapte r
Dim sConn As String
Dim oDataSet As New DataSet
' Create the queryString object
Dim qs = new SecureQueryStri ng()

--
Thanks,

Mar 28 '06 #1
2 1926
Type 'SecureQueryStr ing' is not defined. Dim qs = new
SecureQueryStri ng()

Do you have a reference to the DLL?

"momo" <ma***@seeourwe b.com> wrote in message
news:uD******** *****@TK2MSFTNG P11.phx.gbl...
Hello Guys,

I have a bit of a problem, I created a Dll called SecureQueryStri ngDll.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\wwwr oot and it still
does not work. Here is the error I get from it:

temporary asp.net
files\root\d16a 94c5\8b912d73\a ssembly\dl2\1dc 1ef5c\006575a4_ 827ac301\metabu ilders.webcontr ols.rowselector column.dll"
/out:"C:\WINDOWS \Microsoft.NET\ Framework\v1.1. 4322\Temporary ASP.NET
Files\root\d16a 94c5\8b912d73\l hq6vhxb.dll" /D:DEBUG=1 /debug+
"C:\WINDOWS\Mic rosoft.NET\Fram ework\v1.1.4322 \Temporary ASP.NET
Files\root\d16a 94c5\8b912d73\l hq6vhxb.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\Micr osoft.NET\Frame work\v1.1.4322\ Temporary ASP.NET
Files\root\d16a 94c5\8b912d73\l hq6vhxb.0.vb(15 ) : error BC30466: Namespace
or type 'SecureQueryStr ingDll' for the Imports 'SecureQueryStr ingDll'
cannot be found. Imports SecureQueryStri ngDll ~~~~~~~~~~~~~~~ ~~~~~
d:\inetpub\wwwr oot\websites\sp ecialk\employee detail.aspx(30) : error
BC30002: Type 'SecureQueryStr ing' is not defined. Dim qs = new
SecureQueryStri ng() ~~~~~~~~~~~~~~~ ~~

Show Complete Compilation Source:

Line 1:
'------------------------------------------------------------------------------
Line 2: ' <autogenerate d>
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.Visua lBasic
Line 15: Imports SecureQueryStri ngDll
Line 16: Imports System
Line 17: Imports System.Collecti ons
Line 18: Imports System.Collecti ons.Specialized
Line 19: Imports System.Configur ation
Line 20: Imports System.Configur ation.Configura tionSettings
Line 21: Imports System.Data
Line 22: Imports System.Data.Ole Db
Line 23: Imports System.Text
Line 24: Imports System.Text.Reg ularExpressions
Line 25: Imports System.Web
Line 26: Imports System.Web.Cach ing
Line 27: Imports System.Web.Secu rity
Line 28: Imports System.Web.Sess ionState
Line 29: Imports System.Web.UI
Line 30: Imports System.Web.UI.H tmlControls
Line 31: Imports System.Web.UI.W ebControls
Line 32:
Line 33: Namespace ASP
Line 34:
Line 35: <System.Runtime .CompilerServic es.CompilerGlob alScopeAttribut e()>
_
Line 36: Public Class employeedetail_ aspx
Line 37: Inherits System.Web.UI.P age
Line 38: Implements
System.Web.Sess ionState.IRequi resSessionState
Line 39:
Line 40: Private Shared __autoHandlers As Integer
Line 41:
Line 42:
Line 43:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 122)
Line 44: Protected txtSearchLastNa me As
System.Web.UI.W ebControls.Text Box
Line 45:
Line 46: #End ExternalSource
Line 47:
Line 48:
Line 49:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 50: Protected btnSearch As
System.Web.UI.W ebControls.Imag eButton
Line 51:
Line 52: #End ExternalSource
Line 53:
Line 54:
Line 55:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 128)
Line 56: Protected SQLStatement As
System.Web.UI.W ebControls.Labe l
Line 57:
Line 58: #End ExternalSource
Line 59:
Line 60: Private __control6 As
System.Web.UI.D ataBoundLiteral Control
Line 61:
Line 62:
Line 63:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 64: Private __control4 As
System.Web.UI.W ebControls.Temp lateColumn
Line 65:
Line 66: #End ExternalSource
Line 67:
Line 68:
Line 69:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 70: Private __control7 As
System.Web.UI.W ebControls.Hype rLinkColumn
Line 71:
Line 72: #End ExternalSource
Line 73:
Line 74:
Line 75:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 76: Private __control10 As System.Web.UI.W ebControls.Labe l
Line 77:
Line 78: #End ExternalSource
Line 79:
Line 80:
Line 81:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 82: Private __control8 As
System.Web.UI.W ebControls.Temp lateColumn
Line 83:
Line 84: #End ExternalSource
Line 85:
Line 86:
Line 87:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 88: Private __control13 As System.Web.UI.W ebControls.Labe l
Line 89:
Line 90: #End ExternalSource
Line 91:
Line 92:
Line 93:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 94: Private __control11 As
System.Web.UI.W ebControls.Temp lateColumn
Line 95:
Line 96: #End ExternalSource
Line 97:
Line 98:
Line 99:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 100: Private __control3 As
System.Web.UI.W ebControls.Data GridColumnColle ction
Line 101:
Line 102: #End ExternalSource
Line 103:
Line 104:
Line 105:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 106: Protected oGrid As System.Web.UI.W ebControls.Data Grid
Line 107:
Line 108: #End ExternalSource
Line 109:
Line 110:
Line 111:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 112: Private __control2 As
System.Web.UI.H tmlControls.Htm lForm
Line 113:
Line 114: #End ExternalSource
Line 115:
Line 116: Private Shared __initialized As Boolean = false
Line 117:
Line 118: Private Shared __fileDependenc ies As
System.Collecti ons.ArrayList
Line 119:
Line 120:
Line 121:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.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 tblEmployeeChec klist where ActiveStatus=Ye s"
Line 125:
Line 126:
Line 127: Sub Page_Load(Sende r as Object, E as EventArgs)
Line 128:
'++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ ++++++++++++++'
Line 129: If Not Page.IsPostBack Then
Line 130: SQLStatement.Te xt = 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 OleDbDataAdapte r
Line 139: Dim sConn As String
Line 140: Dim oDataSet As New DataSet
Line 141: ' Create the queryString object
Line 142: Dim qs = new SecureQueryStri ng()
Line 143: 'dim Pathdb as String
Line 144: 'Pathdb =
String.Format(s erver.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 = GetMsAccessOled bConnection(Pat hdb, "admin", "")
Line 152: oConn = GetMsAccessOled bConnection(app Settings("Pathd b"),
"admin", "")
Line 153:
Line 154: oComm = New OleDbDataAdapte r(SQLStatement. Text, oConn)
Line 155: 'Fill the dataset with the results of the query
Line 156: oComm.Fill(oDat aSet, "Employees" )
Line 157:
Line 158: 'Set the grid source to the dataset and bind the data
Line 159: oGrid.DataSourc e=oDataSet.Tabl es("Employees") .DefaultView
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(Sourc e As Object, E As
DataGridSortCom mandEventArgs)
Line 176: SQLStatement.Te xt = sComm & " ORDER BY " & E.SortExpressio n
Line 177: BindData()
Line 178: End Sub
Line 179:
Line 180:
'++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ ++++++++++++++'
Line 181: Sub oGrid_Page(Sour ce As Object, e As
DataGridPageCha ngedEventArgs)
Line 182: oGrid.CurrentPa geIndex = e.NewPageIndex
Line 183: BindData()
Line 184: End Sub
Line 185:
Line 186:
'++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ ++++++++++++++'
Line 187: public shared function GetMsAccessOled bConnection(ByV al 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=Micros oft.Jet.OLEDB.4 .0;Data 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_Item DataBound(ByVal sender As Object, ByVal e As
System.Web.UI.W ebControls.Data GridItemEventAr gs)
Line 195: if e.Item.ItemType = ListItemType.It em Or e.Item.ItemType =
ListItemType.Al ternatingItem Then
Line 196: e.Item.Attribut es.Add("onmouse over",
"this.style.bac kgroundColor='o range'")
Line 197: End if
Line 198: if e.Item.ItemType = ListItemType.It em Then
Line 199: e.Item.Attribut es.Add("onmouse out",
"this.style.bac kgroundColor='B eige'")
Line 200: else if e.Item.ItemType = ListItemType.he ader Or
e.Item.ItemType = ListItemType.fo oter Then
Line 201: e.Item.Attribut es.Add("onmouse out",
"this.style.bac kgroundColor='# 9B0000'")
Line 202: else
Line 203: e.Item.Attribut es.Add("onmouse out",
"this.style.bac kgroundColor='B urlywood'")
Line 204: End if
Line 205: End sub
Line 206:
Line 207:
'++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ ++++++++++++++'
Line 208: Sub btnSearch_Click (Sender as Object, E as
ImageClickEvent Args )
Line 209: SQLStatement.Te xt = sComm & " and Lastname Like '%" &
txtSearchLastNa me.text & "%'" 'ORDER BY " & E.SortExpressio n
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.Collecti ons.ArrayList
Line 220: If (ASP.employeede tail_aspx.__ini tialized = false)
Then
Line 221: dependencies = New System.Collecti ons.ArrayList
Line 222:
dependencies.Ad d("d:\inetpub\w wwroot\websites \specialk\emplo yeedetail.aspx" )
Line 223: ASP.employeedet ail_aspx.__file Dependencies =
dependencies
Line 224: ASP.employeedet ail_aspx.__init ialized = true
Line 225: End If
Line 226: Me.Server.Scrip tTimeout = 30000000
Line 227: End Sub
Line 228:
Line 229: Protected Overrides Property AutoHandlers As Integer
Line 230: Get
Line 231: Return ASP.employeedet ail_aspx.__auto Handlers
Line 232: End Get
Line 233: Set
Line 234: ASP.employeedet ail_aspx.__auto Handlers = value
Line 235: End Set
Line 236: End Property
Line 237:
Line 238: Protected ReadOnly Property ApplicationInst ance As
System.Web.Http Application
Line 239: Get
Line 240: Return
CType(Me.Contex t.ApplicationIn stance,System.W eb.HttpApplicat ion)
Line 241: End Get
Line 242: End Property
Line 243:
Line 244: Public Overrides ReadOnly Property
TemplateSourceD irectory As String
Line 245: Get
Line 246: Return "/websites/specialk"
Line 247: End Get
Line 248: End Property
Line 249:
Line 250: Private Function __BuildControlt xtSearchLastNam e() As
System.Web.UI.C ontrol
Line 251: Dim __ctrl As System.Web.UI.W ebControls.Text Box
Line 252:
Line 253:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 122)
Line 254: __ctrl = New System.Web.UI.W ebControls.Text Box
Line 255:
Line 256: #End ExternalSource
Line 257: Me.txtSearchLas tName = __ctrl
Line 258:
Line 259:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 122)
Line 260: __ctrl.ID = "txtSearchLastN ame"
Line 261:
Line 262: #End ExternalSource
Line 263: Return __ctrl
Line 264: End Function
Line 265:
Line 266: Private Function __BuildControlb tnSearch() As
System.Web.UI.C ontrol
Line 267: Dim __ctrl As System.Web.UI.W ebControls.Imag eButton
Line 268:
Line 269:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 270: __ctrl = New System.Web.UI.W ebControls.Imag eButton
Line 271:
Line 272: #End ExternalSource
Line 273: Me.btnSearch = __ctrl
Line 274:
Line 275:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 276: __ctrl.ID = "btnSearch"
Line 277:
Line 278: #End ExternalSource
Line 279:
Line 280:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 281: __ctrl.Alternat eText = " Search"
Line 282:
Line 283: #End ExternalSource
Line 284:
Line 285:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 286: __ctrl.ImageUrl =
"images/style/Oak/Images/en/ButtonSearch.gi f"
Line 287:
Line 288: #End ExternalSource
Line 289:
Line 290:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 291: __ctrl.ToolTip = "Click here to Search"
Line 292:
Line 293: #End ExternalSource
Line 294:
Line 295:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 296: AddHandler __ctrl.Click, AddressOf
Me.btnSearch_Cl ick
Line 297:
Line 298: #End ExternalSource
Line 299: Return __ctrl
Line 300: End Function
Line 301:
Line 302: Private Function __BuildControlS QLStatement() As
System.Web.UI.C ontrol
Line 303: Dim __ctrl As System.Web.UI.W ebControls.Labe l
Line 304:
Line 305:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 128)
Line 306: __ctrl = New System.Web.UI.W ebControls.Labe l
Line 307:
Line 308: #End ExternalSource
Line 309: Me.SQLStatement = __ctrl
Line 310:
Line 311:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 128)
Line 312: __ctrl.ID = "SQLStateme nt"
Line 313:
Line 314: #End ExternalSource
Line 315:
Line 316:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.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.C ontrol
Line 324: Dim __ctrl As System.Web.UI.D ataBoundLiteral Control
Line 325: __ctrl = New
System.Web.UI.D ataBoundLiteral Control(2, 1)
Line 326: Me.__control6 = __ctrl
Line 327: __ctrl.SetStati cString(0, " <span>")
Line 328: __ctrl.SetStati cString(1, "</span> ")
Line 329: AddHandler __ctrl.DataBind ing, AddressOf
Me.__DataBind__ control6
Line 330: Return __ctrl
Line 331: End Function
Line 332:
Line 333: Public Sub __DataBind__con trol6(ByVal sender As Object,
ByVal e As System.EventArg s)
Line 334: Dim Container As
System.Web.UI.W ebControls.Data GridItem
Line 335: Dim target As System.Web.UI.D ataBoundLiteral Control
Line 336: target =
CType(sender,Sy stem.Web.UI.Dat aBoundLiteralCo ntrol)
Line 337: Container =
CType(target.Bi ndingContainer, System.Web.UI.W ebControls.Data GridItem)
Line 338:
Line 339:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 173)
Line 340: target.SetDataB oundString(0,
System.Convert. ToString(Contai ner.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.C ontrol)
Line 346:
Line 347:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 348: Me.__BuildContr ol__control6
Line 349:
Line 350: #End ExternalSource
Line 351: Dim __parser As System.Web.UI.I ParserAccessor =
CType(__ctrl,Sy stem.Web.UI.IPa rserAccessor)
Line 352:
Line 353:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 354: __parser.AddPar sedSubObject(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.W ebControls.Temp lateColumn
Line 361:
Line 362:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 363: __ctrl = New
System.Web.UI.W ebControls.Temp lateColumn
Line 364:
Line 365: #End ExternalSource
Line 366: Me.__control4 = __ctrl
Line 367:
Line 368:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 369: __ctrl.HeaderTe xt = "#"
Line 370:
Line 371: #End ExternalSource
Line 372:
Line 373:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 374: __ctrl.ItemTemp late = New
System.Web.UI.C ompiledTemplate Builder(Address Of
Me.__BuildContr ol__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.W ebControls.Hype rLinkColumn
Line 381:
Line 382:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 383: __ctrl = New
System.Web.UI.W ebControls.Hype rLinkColumn
Line 384:
Line 385: #End ExternalSource
Line 386: Me.__control7 = __ctrl
Line 387:
Line 388:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 389: __ctrl.HeaderTe xt = "Last Name"
Line 390:
Line 391: #End ExternalSource
Line 392:
Line 393:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 394: __ctrl.DataNavi gateUrlField = "EmployeeID "
Line 395:
Line 396: #End ExternalSource
Line 397:
Line 398:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 399: __ctrl.DataNavi gateUrlFormatSt ring =
"employeedetail .aspx?x="
Line 400:
Line 401: #End ExternalSource
Line 402:
Line 403:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 404: __ctrl.DataText Field = "Lastname"
Line 405:
Line 406: #End ExternalSource
Line 407:
Line 408:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 409: __ctrl.Target = "_self"
Line 410:
Line 411: #End ExternalSource
Line 412:
Line 413:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 414: __ctrl.HeaderSt yle.HorizontalA lign =
System.Web.UI.W ebControls.Hori zontalAlign.Cen ter
Line 415:
Line 416: #End ExternalSource
Line 417:
Line 418:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 419: __ctrl.SortExpr ession = "Lastname"
Line 420:
Line 421: #End ExternalSource
Line 422: End Sub
Line 423:
Line 424: Private Function __BuildControl_ _control10() As
System.Web.UI.C ontrol
Line 425: Dim __ctrl As System.Web.UI.W ebControls.Labe l
Line 426:
Line 427:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 428: __ctrl = New System.Web.UI.W ebControls.Labe l
Line 429:
Line 430: #End ExternalSource
Line 431: Me.__control10 = __ctrl
Line 432:
Line 433:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 434: __ctrl.ID = "lblfirstNa me"
Line 435:
Line 436: #End ExternalSource
Line 437:
Line 438:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 439: AddHandler __ctrl.DataBind ing, 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__con trol10(ByVal sender As
Object, ByVal e As System.EventArg s)
Line 446: Dim Container As
System.Web.UI.W ebControls.Data GridItem
Line 447: Dim target As System.Web.UI.W ebControls.Labe l
Line 448:
Line 449:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 450: target =
CType(sender,Sy stem.Web.UI.Web Controls.Label)
Line 451:
Line 452: #End ExternalSource
Line 453:
Line 454:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 455: Container =
CType(target.Bi ndingContainer, System.Web.UI.W ebControls.Data GridItem)
Line 456:
Line 457: #End ExternalSource
Line 458:
Line 459:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 460: target.Text =
System.Convert. ToString(DataBi nder.Eval(Conta iner.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.C ontrol)
Line 466: Dim __parser As System.Web.UI.I ParserAccessor =
CType(__ctrl,Sy stem.Web.UI.IPa rserAccessor)
Line 467:
Line 468:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 469: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" "&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"
"))
Line 470:
Line 471: #End ExternalSource
Line 472:
Line 473:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 474: Me.__BuildContr ol__control10
Line 475:
Line 476: #End ExternalSource
Line 477:
Line 478:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 479: __parser.AddPar sedSubObject(Me .__control10)
Line 480:
Line 481: #End ExternalSource
Line 482:
Line 483:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 484: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl("
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.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.W ebControls.Temp lateColumn
Line 491:
Line 492:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 493: __ctrl = New
System.Web.UI.W ebControls.Temp lateColumn
Line 494:
Line 495: #End ExternalSource
Line 496: Me.__control8 = __ctrl
Line 497:
Line 498:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 499: __ctrl.HeaderTe xt = "First Name"
Line 500:
Line 501: #End ExternalSource
Line 502:
Line 503:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 504: __ctrl.HeaderSt yle.HorizontalA lign =
System.Web.UI.W ebControls.Hori zontalAlign.Cen ter
Line 505:
Line 506: #End ExternalSource
Line 507:
Line 508:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 509: __ctrl.SortExpr ession = "Firstname"
Line 510:
Line 511: #End ExternalSource
Line 512:
Line 513:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 514: __ctrl.ItemTemp late = New
System.Web.UI.C ompiledTemplate Builder(Address Of
Me.__BuildContr ol__control9)
Line 515:
Line 516: #End ExternalSource
Line 517: End Sub
Line 518:
Line 519: Private Function __BuildControl_ _control13() As
System.Web.UI.C ontrol
Line 520: Dim __ctrl As System.Web.UI.W ebControls.Labe l
Line 521:
Line 522:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 523: __ctrl = New System.Web.UI.W ebControls.Labe l
Line 524:
Line 525: #End ExternalSource
Line 526: Me.__control13 = __ctrl
Line 527:
Line 528:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 529: __ctrl.ID = "lblPhone"
Line 530:
Line 531: #End ExternalSource
Line 532:
Line 533:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 534: AddHandler __ctrl.DataBind ing, 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__con trol13(ByVal sender As
Object, ByVal e As System.EventArg s)
Line 541: Dim Container As
System.Web.UI.W ebControls.Data GridItem
Line 542: Dim target As System.Web.UI.W ebControls.Labe l
Line 543:
Line 544:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 545: target =
CType(sender,Sy stem.Web.UI.Web Controls.Label)
Line 546:
Line 547: #End ExternalSource
Line 548:
Line 549:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 550: Container =
CType(target.Bi ndingContainer, System.Web.UI.W ebControls.Data GridItem)
Line 551:
Line 552: #End ExternalSource
Line 553:
Line 554:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 555: target.Text =
System.Convert. ToString(DataBi nder.Eval(Conta iner.DataItem, "Phone"))
Line 556:
Line 557: #End ExternalSource
Line 558: End Sub
Line 559:
Line 560: Private Sub __BuildControl_ _control12(ByVa l __ctrl As
System.Web.UI.C ontrol)
Line 561: Dim __parser As System.Web.UI.I ParserAccessor =
CType(__ctrl,Sy stem.Web.UI.IPa rserAccessor)
Line 562:
Line 563:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 564: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" "&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"
"))
Line 565:
Line 566: #End ExternalSource
Line 567:
Line 568:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 569: Me.__BuildContr ol__control13
Line 570:
Line 571: #End ExternalSource
Line 572:
Line 573:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 574: __parser.AddPar sedSubObject(Me .__control13)
Line 575:
Line 576: #End ExternalSource
Line 577:
Line 578:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 579: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl("
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.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.W ebControls.Temp lateColumn
Line 586:
Line 587:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 588: __ctrl = New
System.Web.UI.W ebControls.Temp lateColumn
Line 589:
Line 590: #End ExternalSource
Line 591: Me.__control11 = __ctrl
Line 592:
Line 593:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 594: __ctrl.HeaderTe xt = "Phone#"
Line 595:
Line 596: #End ExternalSource
Line 597:
Line 598:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 599: __ctrl.HeaderSt yle.HorizontalA lign =
System.Web.UI.W ebControls.Hori zontalAlign.Cen ter
Line 600:
Line 601: #End ExternalSource
Line 602:
Line 603:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 604: __ctrl.SortExpr ession = "Phone"
Line 605:
Line 606: #End ExternalSource
Line 607:
Line 608:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 609: __ctrl.ItemTemp late = New
System.Web.UI.C ompiledTemplate Builder(Address Of
Me.__BuildContr ol__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.W ebControls.Data GridColumnColle ction)
Line 615:
Line 616:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 617: Me.__BuildContr ol__control4
Line 618:
Line 619: #End ExternalSource
Line 620:
Line 621:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 622: __ctrl.Add(Me._ _control4)
Line 623:
Line 624: #End ExternalSource
Line 625:
Line 626:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 627: Me.__BuildContr ol__control7
Line 628:
Line 629: #End ExternalSource
Line 630:
Line 631:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 632: __ctrl.Add(Me._ _control7)
Line 633:
Line 634: #End ExternalSource
Line 635:
Line 636:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 637: Me.__BuildContr ol__control8
Line 638:
Line 639: #End ExternalSource
Line 640:
Line 641:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 642: __ctrl.Add(Me._ _control8)
Line 643:
Line 644: #End ExternalSource
Line 645:
Line 646:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 647: Me.__BuildContr ol__control11
Line 648:
Line 649: #End ExternalSource
Line 650:
Line 651:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 652: __ctrl.Add(Me._ _control11)
Line 653:
Line 654: #End ExternalSource
Line 655: End Sub
Line 656:
Line 657: Private Function __BuildControlo Grid() As
System.Web.UI.C ontrol
Line 658: Dim __ctrl As System.Web.UI.W ebControls.Data Grid
Line 659:
Line 660:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 661: __ctrl = New System.Web.UI.W ebControls.Data Grid
Line 662:
Line 663: #End ExternalSource
Line 664: Me.oGrid = __ctrl
Line 665:
Line 666:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 667: __ctrl.ID = "oGrid"
Line 668:
Line 669: #End ExternalSource
Line 670:
Line 671:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 672: __ctrl.AutoGene rateColumns = false
Line 673:
Line 674: #End ExternalSource
Line 675:
Line 676:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 677: __ctrl.BorderCo lor = System.Drawing. Color.Black
Line 678:
Line 679: #End ExternalSource
Line 680:
Line 681:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 682: __ctrl.CellPadd ing = 2
Line 683:
Line 684: #End ExternalSource
Line 685:
Line 686:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 687: __ctrl.CellSpac ing = 0
Line 688:
Line 689: #End ExternalSource
Line 690:
Line 691:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 692: __ctrl.Font.Siz e =
System.Web.UI.W ebControls.Font Unit.Parse("10p t",
System.Globaliz ation.CultureIn fo.InvariantCul ture)
Line 693:
Line 694: #End ExternalSource
Line 695:
Line 696:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 697: __ctrl.ForeColo r = System.Drawing. Color.Black
Line 698:
Line 699: #End ExternalSource
Line 700:
Line 701:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 702: __ctrl.BackColo r = System.Drawing. Color.Beige
Line 703:
Line 704: #End ExternalSource
Line 705:
Line 706:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 707: __ctrl.ShowHead er = true
Line 708:
Line 709: #End ExternalSource
Line 710:
Line 711:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 712: __ctrl.ShowFoot er = true
Line 713:
Line 714: #End ExternalSource
Line 715:
Line 716:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 717: __ctrl.Alternat ingItemStyle.Fo reColor =
System.Drawing. Color.Black
Line 718:
Line 719: #End ExternalSource
Line 720:
Line 721:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 722: __ctrl.Alternat ingItemStyle.Fo nt.Name = "Arial"
Line 723:
Line 724: #End ExternalSource
Line 725:
Line 726:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 727: __ctrl.Alternat ingItemStyle.Fo nt.Bold = true
Line 728:
Line 729: #End ExternalSource
Line 730:
Line 731:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 732: __ctrl.Alternat ingItemStyle.Ba ckColor =
System.Drawing. Color.BurlyWood
Line 733:
Line 734: #End ExternalSource
Line 735:
Line 736:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 737: __ctrl.Alternat ingItemStyle.Fo nt.Size =
System.Web.UI.W ebControls.Font Unit.Parse("10p t",
System.Globaliz ation.CultureIn fo.InvariantCul ture)
Line 738:
Line 739: #End ExternalSource
Line 740:
Line 741:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 742: __ctrl.HeaderSt yle.Font.Bold = true
Line 743:
Line 744: #End ExternalSource
Line 745:
Line 746:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 747: __ctrl.FooterSt yle.BackColor =
CType(System.Dr awing.Color.Fro mArgb(155, 0, 0),System.Drawi ng.Color)
Line 748:
Line 749: #End ExternalSource
Line 750:
Line 751:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 752: __ctrl.FooterSt yle.Font.Bold = true
Line 753:
Line 754: #End ExternalSource
Line 755:
Line 756:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 757: __ctrl.HeaderSt yle.BackColor =
CType(System.Dr awing.Color.Fro mArgb(155, 0, 0),System.Drawi ng.Color)
Line 758:
Line 759: #End ExternalSource
Line 760:
Line 761:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 762: __ctrl.HeaderSt yle.ForeColor =
System.Drawing. Color.White
Line 763:
Line 764: #End ExternalSource
Line 765:
Line 766:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 767: __ctrl.HeaderSt yle.Font.Name = "Arial"
Line 768:
Line 769: #End ExternalSource
Line 770:
Line 771:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 772: __ctrl.HeaderSt yle.Font.Size =
System.Web.UI.W ebControls.Font Unit.Parse("11p t",
System.Globaliz ation.CultureIn fo.InvariantCul ture)
Line 773:
Line 774: #End ExternalSource
Line 775:
Line 776:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 777: __ctrl.Font.Nam e = "Arial"
Line 778:
Line 779: #End ExternalSource
Line 780:
Line 781:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 782: __ctrl.AllowPag ing = true
Line 783:
Line 784: #End ExternalSource
Line 785:
Line 786:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 787: __ctrl.PageSize = 20
Line 788:
Line 789: #End ExternalSource
Line 790:
Line 791:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 792: __ctrl.PagerSty le.Mode =
System.Web.UI.W ebControls.Page rMode.NumericPa ges
Line 793:
Line 794: #End ExternalSource
Line 795:
Line 796:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 797: __ctrl.PagerSty le.HorizontalAl ign =
System.Web.UI.W ebControls.Hori zontalAlign.Rig ht
Line 798:
Line 799: #End ExternalSource
Line 800:
Line 801:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 802: __ctrl.PagerSty le.NextPageText = "Next"
Line 803:
Line 804: #End ExternalSource
Line 805:
Line 806:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 807: __ctrl.PagerSty le.PrevPageText = "Prev"
Line 808:
Line 809: #End ExternalSource
Line 810:
Line 811:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 812: __ctrl.AllowSor ting = true
Line 813:
Line 814: #End ExternalSource
Line 815:
Line 816:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 817: Me.__BuildContr ol__control3(__ ctrl.Columns)
Line 818:
Line 819: #End ExternalSource
Line 820:
Line 821:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 822: AddHandler __ctrl.ItemData Bound, AddressOf
Me.dgEmployee_I temDataBound
Line 823:
Line 824: #End ExternalSource
Line 825:
Line 826:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 827: AddHandler __ctrl.PageInde xChanged, AddressOf
Me.oGrid_Page
Line 828:
Line 829: #End ExternalSource
Line 830:
Line 831:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 832: AddHandler __ctrl.SortComm and, 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.C ontrol
Line 839: Dim __ctrl As System.Web.UI.H tmlControls.Htm lForm
Line 840:
Line 841:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 842: __ctrl = New System.Web.UI.H tmlControls.Htm lForm
Line 843:
Line 844: #End ExternalSource
Line 845: Me.__control2 = __ctrl
Line 846:
Line 847:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 848: __ctrl.Name = "form1"
Line 849:
Line 850: #End ExternalSource
Line 851:
Line 852:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 853: __ctrl.Method = "post"
Line 854:
Line 855: #End ExternalSource
Line 856: Dim __parser As System.Web.UI.I ParserAccessor =
CType(__ctrl,Sy stem.Web.UI.IPa rserAccessor)
Line 857:
Line 858:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 859: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" "&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"
<table width=""35%"" border=""0"" cellspacing=""0 ""
cellpadding=""0 "">"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
<tr>"&Microsoft .VisualBasic.Ch rW(13)&Microsof t.VisualBasic.C hrW(10)&" "&
_
Line 860: " <td width=""45%"">S earch By Last Name:
</td>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&" <td
width=""55%"">& nbsp;</td>"& _
Line 861:
""&Microsoft.Vi sualBasic.ChrW( 13)&Microsoft.V isualBasic.ChrW (10)&"
</tr>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
<tr>"&Microsoft .VisualBasic.Ch rW(13)&Microsof t.VisualBasic.C hrW(10)&"
<td>"))
Line 862:
Line 863: #End ExternalSource
Line 864:
Line 865:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 866: Me.__BuildContr oltxtSearchLast Name
Line 867:
Line 868: #End ExternalSource
Line 869:
Line 870:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 871: __parser.AddPar sedSubObject(Me .txtSearchLastN ame)
Line 872:
Line 873: #End ExternalSource
Line 874:
Line 875:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 876: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" </td>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
<td>"))
Line 877:
Line 878: #End ExternalSource
Line 879:
Line 880:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 881: Me.__BuildContr olbtnSearch
Line 882:
Line 883: #End ExternalSource
Line 884:
Line 885:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 886: __parser.AddPar sedSubObject(Me .btnSearch)
Line 887:
Line 888: #End ExternalSource
Line 889:
Line 890:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 891: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" </td>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
</tr>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
</table>"&Microso ft.VisualBasic. ChrW(13)&Micros oft.VisualBasic .ChrW(10)&"
<p>&nbsp;
</p>"&Microsoft.V isualBasic.ChrW (13)&Microsoft. VisualBasic.Chr W(10)&"
<p>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
"))
Line 892:
Line 893: #End ExternalSource
Line 894:
Line 895:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 896: Me.__BuildContr olSQLStatement
Line 897:
Line 898: #End ExternalSource
Line 899:
Line 900:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 901: __parser.AddPar sedSubObject(Me .SQLStatement)
Line 902:
Line 903: #End ExternalSource
Line 904:
Line 905:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 906: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl("
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"
</p>"&Microsoft.V isualBasic.ChrW (13)&Microsoft. VisualBasic.Chr W(10)&" "))
Line 907:
Line 908: #End ExternalSource
Line 909:
Line 910:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 911: Me.__BuildContr oloGrid
Line 912:
Line 913: #End ExternalSource
Line 914:
Line 915:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 916: __parser.AddPar sedSubObject(Me .oGrid)
Line 917:
Line 918: #End ExternalSource
Line 919:
Line 920:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 921: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" "&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)))
Line 922:
Line 923: #End ExternalSource
Line 924: Return __ctrl
Line 925: End Function
Line 926:
Line 927: Private Sub __BuildControlT ree(ByVal __ctrl As
System.Web.UI.C ontrol)
Line 928: Dim __parser As System.Web.UI.I ParserAccessor =
CType(__ctrl,Sy stem.Web.UI.IPa rserAccessor)
Line 929:
Line 930:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 1)
Line 931: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl("
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&Microsoft.V isualBasic.ChrW (13)&Microsoft. VisualBasic.Chr W(10)&"<html>
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"<head>
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"<title>Fil l
A DataGrid From Access Database</title>
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"<met"& _
Line 932: "a http-equiv=""Content-Type"" content=""text/html;
charset=iso-8859-1""><style type="& _
Line 933:
"""text/css"">"&Microso ft.VisualBasic. ChrW(13)&Micros oft.VisualBasic .ChrW(10)&"<!--"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"body
{"&Microsoft.Vi sualBasic.ChrW( 13)&Microsoft.V isualBasic.ChrW (10)&Microsoft. VisualBasic.Chr W(9)&"backgroun d-color:
#e1ddcd;"&Micro soft.VisualBasi c.ChrW(13)&Micr osoft.VisualBas ic.ChrW(10)&"}" &Microsoft.Visu alBasic.ChrW(13 )&Microsoft.Vis ualBasic.ChrW(1 0)&"-->"&Microsoft.Vi sualBasic.ChrW( 13)&Microsoft.V isualBasic.ChrW (10)&"</style></head>
"& _
Line 934:
""&Microsoft.Vi sualBasic.ChrW( 13)&Microsoft.V isualBasic.ChrW (10)&"<body>"&M icrosoft.Visual Basic.ChrW(13)& Microsoft.Visua lBasic.ChrW(10) ))
Line 935:
Line 936: #End ExternalSource
Line 937:
Line 938:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 1)
Line 939: Me.__BuildContr ol__control2
Line 940:
Line 941: #End ExternalSource
Line 942:
Line 943:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 1)
Line 944: __parser.AddPar sedSubObject(Me .__control2)
Line 945:
Line 946: #End ExternalSource
Line 947:
Line 948:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 1)
Line 949: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" "&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"</body>
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"</html>
"))
Line 950:
Line 951: #End ExternalSource
Line 952: End Sub
Line 953:
Line 954: Protected Overrides Sub FrameworkInitia lize()
Line 955: Me.__BuildContr olTree(Me)
Line 956: Me.FileDependen cies =
ASP.employeedet ail_aspx.__file Dependencies
Line 957: Me.EnableViewSt ateMac = true
Line 958: Me.Request.Vali dateInput
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.432 2.2032;
ASP.NET Version:1.1.432 2.2032
<%@ Page language="VB" Debug="true" %>
<%@ Import Namespace="Syst em.Data" %>
<%@ Import Namespace="Syst em.Data.OleDb" %>
<%@ Import Namespace="Syst em.Configuratio n.Configuration Settings" %>
<%@ Import Namespace="Secu reQueryStringDl l" %>

<script language="VB" runat="server">
'Build the SQL string and made it static
Protected sComm As String = "Select EmployeeID, LastName, FirstName, Phone
FROM tblEmployeeChec klist where ActiveStatus=Ye s"
Sub Page_Load(Sende r as Object, E as EventArgs)
'++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ ++++++++++++++'
If Not Page.IsPostBack Then
SQLStatement.Te xt = sComm
BindData()
End if
End sub
Sub BindData()
Dim oConn As OleDbConnection
Dim oComm As OleDbDataAdapte r
Dim sConn As String
Dim oDataSet As New DataSet
' Create the queryString object
Dim qs = new SecureQueryStri ng()

--
Thanks,

Mar 28 '06 #2
Here are part of my code: I added -- Import Namespace="Secu reQueryStringDl l"
<%@ Page language="VB" Debug="true" %>
<%@ Import Namespace="Syst em.Data" %>
<%@ Import Namespace="Syst em.Data.OleDb" %>
<%@ Import Namespace="Syst em.Configuratio n.Configuration Settings" %>
<%@ Import Namespace="Secu reQueryStringDl l" %>

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

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

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

"Maarten" <No****@me.co m> wrote in message
news:O9******** ******@TK2MSFTN GP11.phx.gbl...
Type 'SecureQueryStr ing' is not defined. Dim qs = new
SecureQueryStri ng()

Do you have a reference to the DLL?

"momo" <ma***@seeourwe b.com> wrote in message
news:uD******** *****@TK2MSFTNG P11.phx.gbl...
Hello Guys,

I have a bit of a problem, I created a Dll called
SecureQueryStri ngDll.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\wwwr oot and it still does not work. Here is the error I get
from it:

temporary asp.net
files\root\d16a 94c5\8b912d73\a ssembly\dl2\1dc 1ef5c\006575a4_ 827ac301\metabu ilders.webcontr ols.rowselector column.dll"
/out:"C:\WINDOWS \Microsoft.NET\ Framework\v1.1. 4322\Temporary ASP.NET
Files\root\d16a 94c5\8b912d73\l hq6vhxb.dll" /D:DEBUG=1 /debug+
"C:\WINDOWS\Mic rosoft.NET\Fram ework\v1.1.4322 \Temporary ASP.NET
Files\root\d16a 94c5\8b912d73\l hq6vhxb.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\Micr osoft.NET\Frame work\v1.1.4322\ Temporary
ASP.NET Files\root\d16a 94c5\8b912d73\l hq6vhxb.0.vb(15 ) : error BC30466:
Namespace or type 'SecureQueryStr ingDll' for the Imports
'SecureQueryStr ingDll' cannot be found. Imports SecureQueryStri ngDll
~~~~~~~~~~~~~~~ ~~~~~
d:\inetpub\wwwr oot\websites\sp ecialk\employee detail.aspx(30) : error
BC30002: Type 'SecureQueryStr ing' is not defined. Dim qs = new
SecureQueryStri ng() ~~~~~~~~~~~~~~~ ~~

Show Complete Compilation Source:

Line 1:
'------------------------------------------------------------------------------
Line 2: ' <autogenerate d>
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.Visua lBasic
Line 15: Imports SecureQueryStri ngDll
Line 16: Imports System
Line 17: Imports System.Collecti ons
Line 18: Imports System.Collecti ons.Specialized
Line 19: Imports System.Configur ation
Line 20: Imports System.Configur ation.Configura tionSettings
Line 21: Imports System.Data
Line 22: Imports System.Data.Ole Db
Line 23: Imports System.Text
Line 24: Imports System.Text.Reg ularExpressions
Line 25: Imports System.Web
Line 26: Imports System.Web.Cach ing
Line 27: Imports System.Web.Secu rity
Line 28: Imports System.Web.Sess ionState
Line 29: Imports System.Web.UI
Line 30: Imports System.Web.UI.H tmlControls
Line 31: Imports System.Web.UI.W ebControls
Line 32:
Line 33: Namespace ASP
Line 34:
Line 35: <System.Runtime .CompilerServic es.CompilerGlob alScopeAttribut e()>
_
Line 36: Public Class employeedetail_ aspx
Line 37: Inherits System.Web.UI.P age
Line 38: Implements
System.Web.Sess ionState.IRequi resSessionState
Line 39:
Line 40: Private Shared __autoHandlers As Integer
Line 41:
Line 42:
Line 43:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 122)
Line 44: Protected txtSearchLastNa me As
System.Web.UI.W ebControls.Text Box
Line 45:
Line 46: #End ExternalSource
Line 47:
Line 48:
Line 49:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 50: Protected btnSearch As
System.Web.UI.W ebControls.Imag eButton
Line 51:
Line 52: #End ExternalSource
Line 53:
Line 54:
Line 55:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 128)
Line 56: Protected SQLStatement As
System.Web.UI.W ebControls.Labe l
Line 57:
Line 58: #End ExternalSource
Line 59:
Line 60: Private __control6 As
System.Web.UI.D ataBoundLiteral Control
Line 61:
Line 62:
Line 63:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 64: Private __control4 As
System.Web.UI.W ebControls.Temp lateColumn
Line 65:
Line 66: #End ExternalSource
Line 67:
Line 68:
Line 69:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 70: Private __control7 As
System.Web.UI.W ebControls.Hype rLinkColumn
Line 71:
Line 72: #End ExternalSource
Line 73:
Line 74:
Line 75:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 76: Private __control10 As System.Web.UI.W ebControls.Labe l
Line 77:
Line 78: #End ExternalSource
Line 79:
Line 80:
Line 81:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 82: Private __control8 As
System.Web.UI.W ebControls.Temp lateColumn
Line 83:
Line 84: #End ExternalSource
Line 85:
Line 86:
Line 87:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 88: Private __control13 As System.Web.UI.W ebControls.Labe l
Line 89:
Line 90: #End ExternalSource
Line 91:
Line 92:
Line 93:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 94: Private __control11 As
System.Web.UI.W ebControls.Temp lateColumn
Line 95:
Line 96: #End ExternalSource
Line 97:
Line 98:
Line 99:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 100: Private __control3 As
System.Web.UI.W ebControls.Data GridColumnColle ction
Line 101:
Line 102: #End ExternalSource
Line 103:
Line 104:
Line 105:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 106: Protected oGrid As System.Web.UI.W ebControls.Data Grid
Line 107:
Line 108: #End ExternalSource
Line 109:
Line 110:
Line 111:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 112: Private __control2 As
System.Web.UI.H tmlControls.Htm lForm
Line 113:
Line 114: #End ExternalSource
Line 115:
Line 116: Private Shared __initialized As Boolean = false
Line 117:
Line 118: Private Shared __fileDependenc ies As
System.Collecti ons.ArrayList
Line 119:
Line 120:
Line 121:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.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 tblEmployeeChec klist where ActiveStatus=Ye s"
Line 125:
Line 126:
Line 127: Sub Page_Load(Sende r as Object, E as EventArgs)
Line 128:
'++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ ++++++++++++++'
Line 129: If Not Page.IsPostBack Then
Line 130: SQLStatement.Te xt = 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 OleDbDataAdapte r
Line 139: Dim sConn As String
Line 140: Dim oDataSet As New DataSet
Line 141: ' Create the queryString object
Line 142: Dim qs = new SecureQueryStri ng()
Line 143: 'dim Pathdb as String
Line 144: 'Pathdb =
String.Format(s erver.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 = GetMsAccessOled bConnection(Pat hdb, "admin", "")
Line 152: oConn = GetMsAccessOled bConnection(app Settings("Pathd b"),
"admin", "")
Line 153:
Line 154: oComm = New OleDbDataAdapte r(SQLStatement. Text, oConn)
Line 155: 'Fill the dataset with the results of the query
Line 156: oComm.Fill(oDat aSet, "Employees" )
Line 157:
Line 158: 'Set the grid source to the dataset and bind the data
Line 159: oGrid.DataSourc e=oDataSet.Tabl es("Employees") .DefaultView
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(Sourc e As Object, E As
DataGridSortCom mandEventArgs)
Line 176: SQLStatement.Te xt = sComm & " ORDER BY " & E.SortExpressio n
Line 177: BindData()
Line 178: End Sub
Line 179:
Line 180:
'++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ ++++++++++++++'
Line 181: Sub oGrid_Page(Sour ce As Object, e As
DataGridPageCha ngedEventArgs)
Line 182: oGrid.CurrentPa geIndex = e.NewPageIndex
Line 183: BindData()
Line 184: End Sub
Line 185:
Line 186:
'++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ ++++++++++++++'
Line 187: public shared function GetMsAccessOled bConnection(ByV al
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=Micros oft.Jet.OLEDB.4 .0;Data 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_Item DataBound(ByVal sender As Object, ByVal e
As System.Web.UI.W ebControls.Data GridItemEventAr gs)
Line 195: if e.Item.ItemType = ListItemType.It em Or e.Item.ItemType =
ListItemType.Al ternatingItem Then
Line 196: e.Item.Attribut es.Add("onmouse over",
"this.style.bac kgroundColor='o range'")
Line 197: End if
Line 198: if e.Item.ItemType = ListItemType.It em Then
Line 199: e.Item.Attribut es.Add("onmouse out",
"this.style.bac kgroundColor='B eige'")
Line 200: else if e.Item.ItemType = ListItemType.he ader Or
e.Item.ItemType = ListItemType.fo oter Then
Line 201: e.Item.Attribut es.Add("onmouse out",
"this.style.bac kgroundColor='# 9B0000'")
Line 202: else
Line 203: e.Item.Attribut es.Add("onmouse out",
"this.style.bac kgroundColor='B urlywood'")
Line 204: End if
Line 205: End sub
Line 206:
Line 207:
'++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ ++++++++++++++'
Line 208: Sub btnSearch_Click (Sender as Object, E as
ImageClickEvent Args )
Line 209: SQLStatement.Te xt = sComm & " and Lastname Like '%" &
txtSearchLastNa me.text & "%'" 'ORDER BY " & E.SortExpressio n
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.Collecti ons.ArrayList
Line 220: If (ASP.employeede tail_aspx.__ini tialized = false)
Then
Line 221: dependencies = New
System.Collecti ons.ArrayList
Line 222:
dependencies.Ad d("d:\inetpub\w wwroot\websites \specialk\emplo yeedetail.aspx" )
Line 223: ASP.employeedet ail_aspx.__file Dependencies =
dependencies
Line 224: ASP.employeedet ail_aspx.__init ialized = true
Line 225: End If
Line 226: Me.Server.Scrip tTimeout = 30000000
Line 227: End Sub
Line 228:
Line 229: Protected Overrides Property AutoHandlers As Integer
Line 230: Get
Line 231: Return ASP.employeedet ail_aspx.__auto Handlers
Line 232: End Get
Line 233: Set
Line 234: ASP.employeedet ail_aspx.__auto Handlers = value
Line 235: End Set
Line 236: End Property
Line 237:
Line 238: Protected ReadOnly Property ApplicationInst ance As
System.Web.Http Application
Line 239: Get
Line 240: Return
CType(Me.Contex t.ApplicationIn stance,System.W eb.HttpApplicat ion)
Line 241: End Get
Line 242: End Property
Line 243:
Line 244: Public Overrides ReadOnly Property
TemplateSourceD irectory As String
Line 245: Get
Line 246: Return "/websites/specialk"
Line 247: End Get
Line 248: End Property
Line 249:
Line 250: Private Function __BuildControlt xtSearchLastNam e() As
System.Web.UI.C ontrol
Line 251: Dim __ctrl As System.Web.UI.W ebControls.Text Box
Line 252:
Line 253:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 122)
Line 254: __ctrl = New System.Web.UI.W ebControls.Text Box
Line 255:
Line 256: #End ExternalSource
Line 257: Me.txtSearchLas tName = __ctrl
Line 258:
Line 259:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 122)
Line 260: __ctrl.ID = "txtSearchLastN ame"
Line 261:
Line 262: #End ExternalSource
Line 263: Return __ctrl
Line 264: End Function
Line 265:
Line 266: Private Function __BuildControlb tnSearch() As
System.Web.UI.C ontrol
Line 267: Dim __ctrl As
System.Web.UI.W ebControls.Imag eButton
Line 268:
Line 269:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 270: __ctrl = New System.Web.UI.W ebControls.Imag eButton
Line 271:
Line 272: #End ExternalSource
Line 273: Me.btnSearch = __ctrl
Line 274:
Line 275:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 276: __ctrl.ID = "btnSearch"
Line 277:
Line 278: #End ExternalSource
Line 279:
Line 280:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 281: __ctrl.Alternat eText = " Search"
Line 282:
Line 283: #End ExternalSource
Line 284:
Line 285:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 286: __ctrl.ImageUrl =
"images/style/Oak/Images/en/ButtonSearch.gi f"
Line 287:
Line 288: #End ExternalSource
Line 289:
Line 290:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 291: __ctrl.ToolTip = "Click here to Search"
Line 292:
Line 293: #End ExternalSource
Line 294:
Line 295:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 123)
Line 296: AddHandler __ctrl.Click, AddressOf
Me.btnSearch_Cl ick
Line 297:
Line 298: #End ExternalSource
Line 299: Return __ctrl
Line 300: End Function
Line 301:
Line 302: Private Function __BuildControlS QLStatement() As
System.Web.UI.C ontrol
Line 303: Dim __ctrl As System.Web.UI.W ebControls.Labe l
Line 304:
Line 305:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 128)
Line 306: __ctrl = New System.Web.UI.W ebControls.Labe l
Line 307:
Line 308: #End ExternalSource
Line 309: Me.SQLStatement = __ctrl
Line 310:
Line 311:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 128)
Line 312: __ctrl.ID = "SQLStateme nt"
Line 313:
Line 314: #End ExternalSource
Line 315:
Line 316:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.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.C ontrol
Line 324: Dim __ctrl As
System.Web.UI.D ataBoundLiteral Control
Line 325: __ctrl = New
System.Web.UI.D ataBoundLiteral Control(2, 1)
Line 326: Me.__control6 = __ctrl
Line 327: __ctrl.SetStati cString(0, " <span>")
Line 328: __ctrl.SetStati cString(1, "</span> ")
Line 329: AddHandler __ctrl.DataBind ing, AddressOf
Me.__DataBind__ control6
Line 330: Return __ctrl
Line 331: End Function
Line 332:
Line 333: Public Sub __DataBind__con trol6(ByVal sender As
Object, ByVal e As System.EventArg s)
Line 334: Dim Container As
System.Web.UI.W ebControls.Data GridItem
Line 335: Dim target As
System.Web.UI.D ataBoundLiteral Control
Line 336: target =
CType(sender,Sy stem.Web.UI.Dat aBoundLiteralCo ntrol)
Line 337: Container =
CType(target.Bi ndingContainer, System.Web.UI.W ebControls.Data GridItem)
Line 338:
Line 339:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 173)
Line 340: target.SetDataB oundString(0,
System.Convert. ToString(Contai ner.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.C ontrol)
Line 346:
Line 347:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 348: Me.__BuildContr ol__control6
Line 349:
Line 350: #End ExternalSource
Line 351: Dim __parser As System.Web.UI.I ParserAccessor =
CType(__ctrl,Sy stem.Web.UI.IPa rserAccessor)
Line 352:
Line 353:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 354: __parser.AddPar sedSubObject(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.W ebControls.Temp lateColumn
Line 361:
Line 362:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 363: __ctrl = New
System.Web.UI.W ebControls.Temp lateColumn
Line 364:
Line 365: #End ExternalSource
Line 366: Me.__control4 = __ctrl
Line 367:
Line 368:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 369: __ctrl.HeaderTe xt = "#"
Line 370:
Line 371: #End ExternalSource
Line 372:
Line 373:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 172)
Line 374: __ctrl.ItemTemp late = New
System.Web.UI.C ompiledTemplate Builder(Address Of
Me.__BuildContr ol__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.W ebControls.Hype rLinkColumn
Line 381:
Line 382:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 383: __ctrl = New
System.Web.UI.W ebControls.Hype rLinkColumn
Line 384:
Line 385: #End ExternalSource
Line 386: Me.__control7 = __ctrl
Line 387:
Line 388:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 389: __ctrl.HeaderTe xt = "Last Name"
Line 390:
Line 391: #End ExternalSource
Line 392:
Line 393:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 394: __ctrl.DataNavi gateUrlField = "EmployeeID "
Line 395:
Line 396: #End ExternalSource
Line 397:
Line 398:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 399: __ctrl.DataNavi gateUrlFormatSt ring =
"employeedetail .aspx?x="
Line 400:
Line 401: #End ExternalSource
Line 402:
Line 403:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 404: __ctrl.DataText Field = "Lastname"
Line 405:
Line 406: #End ExternalSource
Line 407:
Line 408:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 409: __ctrl.Target = "_self"
Line 410:
Line 411: #End ExternalSource
Line 412:
Line 413:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 414: __ctrl.HeaderSt yle.HorizontalA lign =
System.Web.UI.W ebControls.Hori zontalAlign.Cen ter
Line 415:
Line 416: #End ExternalSource
Line 417:
Line 418:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 176)
Line 419: __ctrl.SortExpr ession = "Lastname"
Line 420:
Line 421: #End ExternalSource
Line 422: End Sub
Line 423:
Line 424: Private Function __BuildControl_ _control10() As
System.Web.UI.C ontrol
Line 425: Dim __ctrl As System.Web.UI.W ebControls.Labe l
Line 426:
Line 427:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 428: __ctrl = New System.Web.UI.W ebControls.Labe l
Line 429:
Line 430: #End ExternalSource
Line 431: Me.__control10 = __ctrl
Line 432:
Line 433:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 434: __ctrl.ID = "lblfirstNa me"
Line 435:
Line 436: #End ExternalSource
Line 437:
Line 438:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 439: AddHandler __ctrl.DataBind ing, 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__con trol10(ByVal sender As
Object, ByVal e As System.EventArg s)
Line 446: Dim Container As
System.Web.UI.W ebControls.Data GridItem
Line 447: Dim target As System.Web.UI.W ebControls.Labe l
Line 448:
Line 449:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 450: target =
CType(sender,Sy stem.Web.UI.Web Controls.Label)
Line 451:
Line 452: #End ExternalSource
Line 453:
Line 454:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 455: Container =
CType(target.Bi ndingContainer, System.Web.UI.W ebControls.Data GridItem)
Line 456:
Line 457: #End ExternalSource
Line 458:
Line 459:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 181)
Line 460: target.Text =
System.Convert. ToString(DataBi nder.Eval(Conta iner.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.C ontrol)
Line 466: Dim __parser As System.Web.UI.I ParserAccessor =
CType(__ctrl,Sy stem.Web.UI.IPa rserAccessor)
Line 467:
Line 468:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 469: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" "&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"
"))
Line 470:
Line 471: #End ExternalSource
Line 472:
Line 473:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 474: Me.__BuildContr ol__control10
Line 475:
Line 476: #End ExternalSource
Line 477:
Line 478:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 479: __parser.AddPar sedSubObject(Me .__control10)
Line 480:
Line 481: #End ExternalSource
Line 482:
Line 483:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 484: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl("
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.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.W ebControls.Temp lateColumn
Line 491:
Line 492:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 493: __ctrl = New
System.Web.UI.W ebControls.Temp lateColumn
Line 494:
Line 495: #End ExternalSource
Line 496: Me.__control8 = __ctrl
Line 497:
Line 498:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 499: __ctrl.HeaderTe xt = "First Name"
Line 500:
Line 501: #End ExternalSource
Line 502:
Line 503:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 504: __ctrl.HeaderSt yle.HorizontalA lign =
System.Web.UI.W ebControls.Hori zontalAlign.Cen ter
Line 505:
Line 506: #End ExternalSource
Line 507:
Line 508:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 509: __ctrl.SortExpr ession = "Firstname"
Line 510:
Line 511: #End ExternalSource
Line 512:
Line 513:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 179)
Line 514: __ctrl.ItemTemp late = New
System.Web.UI.C ompiledTemplate Builder(Address Of
Me.__BuildContr ol__control9)
Line 515:
Line 516: #End ExternalSource
Line 517: End Sub
Line 518:
Line 519: Private Function __BuildControl_ _control13() As
System.Web.UI.C ontrol
Line 520: Dim __ctrl As System.Web.UI.W ebControls.Labe l
Line 521:
Line 522:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 523: __ctrl = New System.Web.UI.W ebControls.Labe l
Line 524:
Line 525: #End ExternalSource
Line 526: Me.__control13 = __ctrl
Line 527:
Line 528:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 529: __ctrl.ID = "lblPhone"
Line 530:
Line 531: #End ExternalSource
Line 532:
Line 533:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 534: AddHandler __ctrl.DataBind ing, 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__con trol13(ByVal sender As
Object, ByVal e As System.EventArg s)
Line 541: Dim Container As
System.Web.UI.W ebControls.Data GridItem
Line 542: Dim target As System.Web.UI.W ebControls.Labe l
Line 543:
Line 544:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 545: target =
CType(sender,Sy stem.Web.UI.Web Controls.Label)
Line 546:
Line 547: #End ExternalSource
Line 548:
Line 549:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 550: Container =
CType(target.Bi ndingContainer, System.Web.UI.W ebControls.Data GridItem)
Line 551:
Line 552: #End ExternalSource
Line 553:
Line 554:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 187)
Line 555: target.Text =
System.Convert. ToString(DataBi nder.Eval(Conta iner.DataItem, "Phone"))
Line 556:
Line 557: #End ExternalSource
Line 558: End Sub
Line 559:
Line 560: Private Sub __BuildControl_ _control12(ByVa l __ctrl As
System.Web.UI.C ontrol)
Line 561: Dim __parser As System.Web.UI.I ParserAccessor =
CType(__ctrl,Sy stem.Web.UI.IPa rserAccessor)
Line 562:
Line 563:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 564: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" "&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"
"))
Line 565:
Line 566: #End ExternalSource
Line 567:
Line 568:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 569: Me.__BuildContr ol__control13
Line 570:
Line 571: #End ExternalSource
Line 572:
Line 573:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 574: __parser.AddPar sedSubObject(Me .__control13)
Line 575:
Line 576: #End ExternalSource
Line 577:
Line 578:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 579: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl("
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.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.W ebControls.Temp lateColumn
Line 586:
Line 587:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 588: __ctrl = New
System.Web.UI.W ebControls.Temp lateColumn
Line 589:
Line 590: #End ExternalSource
Line 591: Me.__control11 = __ctrl
Line 592:
Line 593:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 594: __ctrl.HeaderTe xt = "Phone#"
Line 595:
Line 596: #End ExternalSource
Line 597:
Line 598:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 599: __ctrl.HeaderSt yle.HorizontalA lign =
System.Web.UI.W ebControls.Hori zontalAlign.Cen ter
Line 600:
Line 601: #End ExternalSource
Line 602:
Line 603:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 604: __ctrl.SortExpr ession = "Phone"
Line 605:
Line 606: #End ExternalSource
Line 607:
Line 608:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 185)
Line 609: __ctrl.ItemTemp late = New
System.Web.UI.C ompiledTemplate Builder(Address Of
Me.__BuildContr ol__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.W ebControls.Data GridColumnColle ction)
Line 615:
Line 616:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 617: Me.__BuildContr ol__control4
Line 618:
Line 619: #End ExternalSource
Line 620:
Line 621:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 622: __ctrl.Add(Me._ _control4)
Line 623:
Line 624: #End ExternalSource
Line 625:
Line 626:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 627: Me.__BuildContr ol__control7
Line 628:
Line 629: #End ExternalSource
Line 630:
Line 631:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 632: __ctrl.Add(Me._ _control7)
Line 633:
Line 634: #End ExternalSource
Line 635:
Line 636:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 637: Me.__BuildContr ol__control8
Line 638:
Line 639: #End ExternalSource
Line 640:
Line 641:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 642: __ctrl.Add(Me._ _control8)
Line 643:
Line 644: #End ExternalSource
Line 645:
Line 646:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 647: Me.__BuildContr ol__control11
Line 648:
Line 649: #End ExternalSource
Line 650:
Line 651:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 652: __ctrl.Add(Me._ _control11)
Line 653:
Line 654: #End ExternalSource
Line 655: End Sub
Line 656:
Line 657: Private Function __BuildControlo Grid() As
System.Web.UI.C ontrol
Line 658: Dim __ctrl As System.Web.UI.W ebControls.Data Grid
Line 659:
Line 660:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 661: __ctrl = New System.Web.UI.W ebControls.Data Grid
Line 662:
Line 663: #End ExternalSource
Line 664: Me.oGrid = __ctrl
Line 665:
Line 666:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 667: __ctrl.ID = "oGrid"
Line 668:
Line 669: #End ExternalSource
Line 670:
Line 671:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 672: __ctrl.AutoGene rateColumns = false
Line 673:
Line 674: #End ExternalSource
Line 675:
Line 676:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 677: __ctrl.BorderCo lor = System.Drawing. Color.Black
Line 678:
Line 679: #End ExternalSource
Line 680:
Line 681:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 682: __ctrl.CellPadd ing = 2
Line 683:
Line 684: #End ExternalSource
Line 685:
Line 686:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 687: __ctrl.CellSpac ing = 0
Line 688:
Line 689: #End ExternalSource
Line 690:
Line 691:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 692: __ctrl.Font.Siz e =
System.Web.UI.W ebControls.Font Unit.Parse("10p t",
System.Globaliz ation.CultureIn fo.InvariantCul ture)
Line 693:
Line 694: #End ExternalSource
Line 695:
Line 696:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 697: __ctrl.ForeColo r = System.Drawing. Color.Black
Line 698:
Line 699: #End ExternalSource
Line 700:
Line 701:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 702: __ctrl.BackColo r = System.Drawing. Color.Beige
Line 703:
Line 704: #End ExternalSource
Line 705:
Line 706:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 707: __ctrl.ShowHead er = true
Line 708:
Line 709: #End ExternalSource
Line 710:
Line 711:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 712: __ctrl.ShowFoot er = true
Line 713:
Line 714: #End ExternalSource
Line 715:
Line 716:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 717: __ctrl.Alternat ingItemStyle.Fo reColor =
System.Drawing. Color.Black
Line 718:
Line 719: #End ExternalSource
Line 720:
Line 721:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 722: __ctrl.Alternat ingItemStyle.Fo nt.Name = "Arial"
Line 723:
Line 724: #End ExternalSource
Line 725:
Line 726:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 727: __ctrl.Alternat ingItemStyle.Fo nt.Bold = true
Line 728:
Line 729: #End ExternalSource
Line 730:
Line 731:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 732: __ctrl.Alternat ingItemStyle.Ba ckColor =
System.Drawing. Color.BurlyWood
Line 733:
Line 734: #End ExternalSource
Line 735:
Line 736:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 737: __ctrl.Alternat ingItemStyle.Fo nt.Size =
System.Web.UI.W ebControls.Font Unit.Parse("10p t",
System.Globaliz ation.CultureIn fo.InvariantCul ture)
Line 738:
Line 739: #End ExternalSource
Line 740:
Line 741:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 742: __ctrl.HeaderSt yle.Font.Bold = true
Line 743:
Line 744: #End ExternalSource
Line 745:
Line 746:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 747: __ctrl.FooterSt yle.BackColor =
CType(System.Dr awing.Color.Fro mArgb(155, 0, 0),System.Drawi ng.Color)
Line 748:
Line 749: #End ExternalSource
Line 750:
Line 751:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 752: __ctrl.FooterSt yle.Font.Bold = true
Line 753:
Line 754: #End ExternalSource
Line 755:
Line 756:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 757: __ctrl.HeaderSt yle.BackColor =
CType(System.Dr awing.Color.Fro mArgb(155, 0, 0),System.Drawi ng.Color)
Line 758:
Line 759: #End ExternalSource
Line 760:
Line 761:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 762: __ctrl.HeaderSt yle.ForeColor =
System.Drawing. Color.White
Line 763:
Line 764: #End ExternalSource
Line 765:
Line 766:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 767: __ctrl.HeaderSt yle.Font.Name = "Arial"
Line 768:
Line 769: #End ExternalSource
Line 770:
Line 771:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 772: __ctrl.HeaderSt yle.Font.Size =
System.Web.UI.W ebControls.Font Unit.Parse("11p t",
System.Globaliz ation.CultureIn fo.InvariantCul ture)
Line 773:
Line 774: #End ExternalSource
Line 775:
Line 776:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 777: __ctrl.Font.Nam e = "Arial"
Line 778:
Line 779: #End ExternalSource
Line 780:
Line 781:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 782: __ctrl.AllowPag ing = true
Line 783:
Line 784: #End ExternalSource
Line 785:
Line 786:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 787: __ctrl.PageSize = 20
Line 788:
Line 789: #End ExternalSource
Line 790:
Line 791:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 792: __ctrl.PagerSty le.Mode =
System.Web.UI.W ebControls.Page rMode.NumericPa ges
Line 793:
Line 794: #End ExternalSource
Line 795:
Line 796:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 797: __ctrl.PagerSty le.HorizontalAl ign =
System.Web.UI.W ebControls.Hori zontalAlign.Rig ht
Line 798:
Line 799: #End ExternalSource
Line 800:
Line 801:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 802: __ctrl.PagerSty le.NextPageText = "Next"
Line 803:
Line 804: #End ExternalSource
Line 805:
Line 806:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 807: __ctrl.PagerSty le.PrevPageText = "Prev"
Line 808:
Line 809: #End ExternalSource
Line 810:
Line 811:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 812: __ctrl.AllowSor ting = true
Line 813:
Line 814: #End ExternalSource
Line 815:
Line 816:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 817: Me.__BuildContr ol__control3(__ ctrl.Columns)
Line 818:
Line 819: #End ExternalSource
Line 820:
Line 821:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 822: AddHandler __ctrl.ItemData Bound, AddressOf
Me.dgEmployee_I temDataBound
Line 823:
Line 824: #End ExternalSource
Line 825:
Line 826:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 827: AddHandler __ctrl.PageInde xChanged, AddressOf
Me.oGrid_Page
Line 828:
Line 829: #End ExternalSource
Line 830:
Line 831:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 130)
Line 832: AddHandler __ctrl.SortComm and, 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.C ontrol
Line 839: Dim __ctrl As System.Web.UI.H tmlControls.Htm lForm
Line 840:
Line 841:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 842: __ctrl = New System.Web.UI.H tmlControls.Htm lForm
Line 843:
Line 844: #End ExternalSource
Line 845: Me.__control2 = __ctrl
Line 846:
Line 847:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 848: __ctrl.Name = "form1"
Line 849:
Line 850: #End ExternalSource
Line 851:
Line 852:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 853: __ctrl.Method = "post"
Line 854:
Line 855: #End ExternalSource
Line 856: Dim __parser As System.Web.UI.I ParserAccessor =
CType(__ctrl,Sy stem.Web.UI.IPa rserAccessor)
Line 857:
Line 858:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 859: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" "&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"
<table width=""35%"" border=""0"" cellspacing=""0 ""
cellpadding=""0 "">"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
<tr>"&Microsoft .VisualBasic.Ch rW(13)&Microsof t.VisualBasic.C hrW(10)&"
"& _
Line 860: " <td width=""45%"">S earch By Last Name:
</td>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
<td width=""55%"">& nbsp;</td>"& _
Line 861:
""&Microsoft.Vi sualBasic.ChrW( 13)&Microsoft.V isualBasic.ChrW (10)&"
</tr>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
<tr>"&Microsoft .VisualBasic.Ch rW(13)&Microsof t.VisualBasic.C hrW(10)&"
<td>"))
Line 862:
Line 863: #End ExternalSource
Line 864:
Line 865:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 866: Me.__BuildContr oltxtSearchLast Name
Line 867:
Line 868: #End ExternalSource
Line 869:
Line 870:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 871: __parser.AddPar sedSubObject(Me .txtSearchLastN ame)
Line 872:
Line 873: #End ExternalSource
Line 874:
Line 875:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 876: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" </td>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
<td>"))
Line 877:
Line 878: #End ExternalSource
Line 879:
Line 880:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 881: Me.__BuildContr olbtnSearch
Line 882:
Line 883: #End ExternalSource
Line 884:
Line 885:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 886: __parser.AddPar sedSubObject(Me .btnSearch)
Line 887:
Line 888: #End ExternalSource
Line 889:
Line 890:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 891: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" </td>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
</tr>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&"
</table>"&Microso ft.VisualBasic. ChrW(13)&Micros oft.VisualBasic .ChrW(10)&"
<p>&nbsp;
</p>"&Microsoft.V isualBasic.ChrW (13)&Microsoft. VisualBasic.Chr W(10)&"
<p>"&Microsoft. VisualBasic.Chr W(13)&Microsoft .VisualBasic.Ch rW(10)&" "))
Line 892:
Line 893: #End ExternalSource
Line 894:
Line 895:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 896: Me.__BuildContr olSQLStatement
Line 897:
Line 898: #End ExternalSource
Line 899:
Line 900:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 901: __parser.AddPar sedSubObject(Me .SQLStatement)
Line 902:
Line 903: #End ExternalSource
Line 904:
Line 905:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 906: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl("
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"
</p>"&Microsoft.V isualBasic.ChrW (13)&Microsoft. VisualBasic.Chr W(10)&"
"))
Line 907:
Line 908: #End ExternalSource
Line 909:
Line 910:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 911: Me.__BuildContr oloGrid
Line 912:
Line 913: #End ExternalSource
Line 914:
Line 915:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 916: __parser.AddPar sedSubObject(Me .oGrid)
Line 917:
Line 918: #End ExternalSource
Line 919:
Line 920:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 115)
Line 921: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" "&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)))
Line 922:
Line 923: #End ExternalSource
Line 924: Return __ctrl
Line 925: End Function
Line 926:
Line 927: Private Sub __BuildControlT ree(ByVal __ctrl As
System.Web.UI.C ontrol)
Line 928: Dim __parser As System.Web.UI.I ParserAccessor =
CType(__ctrl,Sy stem.Web.UI.IPa rserAccessor)
Line 929:
Line 930:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 1)
Line 931: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl("
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&Microsoft.V isualBasic.ChrW (13)&Microsoft. VisualBasic.Chr W(10)&"<html>
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"<head>
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"<title>Fil l
A DataGrid From Access Database</title>
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"<met"& _
Line 932: "a http-equiv=""Content-Type"" content=""text/html;
charset=iso-8859-1""><style type="& _
Line 933:
"""text/css"">"&Microso ft.VisualBasic. ChrW(13)&Micros oft.VisualBasic .ChrW(10)&"<!--"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"body
{"&Microsoft.Vi sualBasic.ChrW( 13)&Microsoft.V isualBasic.ChrW (10)&Microsoft. VisualBasic.Chr W(9)&"backgroun d-color:
#e1ddcd;"&Micro soft.VisualBasi c.ChrW(13)&Micr osoft.VisualBas ic.ChrW(10)&"}" &Microsoft.Visu alBasic.ChrW(13 )&Microsoft.Vis ualBasic.ChrW(1 0)&"-->"&Microsoft.Vi sualBasic.ChrW( 13)&Microsoft.V isualBasic.ChrW (10)&"</style></head>
"& _
Line 934:
""&Microsoft.Vi sualBasic.ChrW( 13)&Microsoft.V isualBasic.ChrW (10)&"<body>"&M icrosoft.Visual Basic.ChrW(13)& Microsoft.Visua lBasic.ChrW(10) ))
Line 935:
Line 936: #End ExternalSource
Line 937:
Line 938:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 1)
Line 939: Me.__BuildContr ol__control2
Line 940:
Line 941: #End ExternalSource
Line 942:
Line 943:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 1)
Line 944: __parser.AddPar sedSubObject(Me .__control2)
Line 945:
Line 946: #End ExternalSource
Line 947:
Line 948:
#ExternalSource ("d:\inetpub\ww wroot\websites\ specialk\employ eedetail.aspx", 1)
Line 949: __parser.AddPar sedSubObject(Ne w
System.Web.UI.L iteralControl(" "&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"</body>
"&Microsoft.Vis ualBasic.ChrW(1 3)&Microsoft.Vi sualBasic.ChrW( 10)&"</html>
"))
Line 950:
Line 951: #End ExternalSource
Line 952: End Sub
Line 953:
Line 954: Protected Overrides Sub FrameworkInitia lize()
Line 955: Me.__BuildContr olTree(Me)
Line 956: Me.FileDependen cies =
ASP.employeedet ail_aspx.__file Dependencies
Line 957: Me.EnableViewSt ateMac = true
Line 958: Me.Request.Vali dateInput
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.432 2.2032;
ASP.NET Version:1.1.432 2.2032
<%@ Page language="VB" Debug="true" %>
<%@ Import Namespace="Syst em.Data" %>
<%@ Import Namespace="Syst em.Data.OleDb" %>
<%@ Import Namespace="Syst em.Configuratio n.Configuration Settings" %>
<%@ Import Namespace="Secu reQueryStringDl l" %>

<script language="VB" runat="server">
'Build the SQL string and made it static
Protected sComm As String = "Select EmployeeID, LastName, FirstName,
Phone FROM tblEmployeeChec klist where ActiveStatus=Ye s"
Sub Page_Load(Sende r as Object, E as EventArgs)
'++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ +++++++++++++++ ++++++++++++++'
If Not Page.IsPostBack Then
SQLStatement.Te xt = sComm
BindData()
End if
End sub
Sub BindData()
Dim oConn As OleDbConnection
Dim oComm As OleDbDataAdapte r
Dim sConn As String
Dim oDataSet As New DataSet
' Create the queryString object
Dim qs = new SecureQueryStri ng()

--
Thanks,


Mar 28 '06 #3

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

21
6580
by: Dave | last post by:
After following Microsofts admonition to reformat my system before doing a final compilation of my app I got many warnings/errors upon compiling an rtf file created in word. I used the Help Workshop program: hcw.exe that's included with Visual Basic. This exact same file compiled perfectly with no notes, warnings or errors prior to reformatting my system. Prior to the reformatting, I copied the help.rtf file onto a CD and checked the box to...
9
4428
by: Tom | last post by:
A question for gui application programmers. . . I 've got some GUI programs, written in Python/wxPython, and I've got a help button and a help menu item. Also, I've got a compiled file made with the microsoft HTML workshop utility, lets call it c:\path\help.chm. My question is how do you launch it from the GUI? What logic do I put behind the "help" button, in other words. I thought it would be os.spawnv(os.P_DETACH,...
6
4373
by: wukexin | last post by:
Help me, good men. I find mang books that introduce bit "mang header files",they talk too bit,in fact it is my too fool, I don't learn it, I have do a test program, but I have no correct doing result in any way. Who can help me, I thank you very very much. list.cpp(main program) //-------------------------------------------------------------------------- - #pragma hdrstop #pragma argsused
3
3376
by: Colin J. Williams | last post by:
Python advertises some basic service: C:\Python24>python Python 2.4.1 (#65, Mar 30 2005, 09:13:57) on win32 Type "help", "copyright", "credits" or "license" for more information. >>> With numarray, help gives unhelpful responses:
7
5411
by: Corepaul | last post by:
Missing Help Files When I enter "recordset" as the keyword and search the Visual Basic Help index, I get many topics of interest in the resulting list. But there isn't any information available from clicking on many of the available topics (mostly methods but some properties are also unavailable). This same problem occurs with many, if not most, keywords. Is there any way I can activate these "missing" help topics? HELP!
5
3297
by: Steve | last post by:
I have written a help file (chm) for a DLL and referenced it using Help.ShowHelp My expectation is that a developer using my DLL would be able to access this help file during his development time using "F1" help within the VB IDE. Is this expectation achievable In trying to test my help file in the IDE, I have a solution with 2 projects: the DLL and a tester. VB does not look for my help file; instead, it looks for path to my source code...
8
3245
by: Mark | last post by:
I have loaded Visual Studio .net on my home computer and my laptop, but my home computer has an abbreviated help screen not 2% of the help on my laptop. All the settings look the same on both including search the internet for help, but the help is worthless. Any ideas?
10
3380
by: JonathanOrlev | last post by:
Hello everybody, I wrote this comment in another message of mine, but decided to post it again as a standalone message. I think that Microsoft's Office 2003 help system is horrible, probably the worst I ever seen. I almost cannot find anything I need, including things I
1
6152
by: trunxnirvana007 | last post by:
'UPGRADE_WARNING: Array has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"' 'UPGRADE_WARNING: Couldn't resolve default property of object Label. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' Label = New Object(){Box1, Box2, Box3, Box4, Box5, Box6, Box7, Box8, Box9, Box10, Box11,...
0
2909
by: hitencontractor | last post by:
I am working on .NET Version 2003 making an SDI application that calls MS Excel 2003. I added a menu item called "MyApp Help" in the end of the menu bar to show Help-> About. The application calls MS Excel, so the scenario is that I am supposed to see the Excel Menu bar, FILE EDIT VIEW INSERT ... HELP. I am able to see the menu bar, but in case of Help, I see the Help of Excel and help of my application, both as a submenu of help. ...
0
9978
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, weíll explore What is ONU, What Is Router, ONU & Routerís main usage, and What is the difference between ONU and Router. Letís take a closer look ! Part I. Meaning of...
0
9822
by: Hystou | last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
0
10462
tracyyun
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
0
7169
by: conductexam | last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert into image. Globals.ThisAddIn.Application.ActiveDocument.Select();...
0
5851
by: TSSRALBI | last post by:
Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
0
6045
by: adsilva | last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
1
4676
by: 6302768590 | last post by:
Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
2
4271
muto222
by: muto222 | last post by:
How can i add a mobile payment intergratation into php mysql website.
3
3277
bsmnconsultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.