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